[VB6] Query di ricerca

[Dave Pantera]

Ciao a tutti,sto implementando un programmino collegato ad un database di access.
Dovrei dunque rendere disponibile una funzione ke permetta all'utente di riempire una combobox con campi che inizino con una lettera data in input (tramite inputbox) dall'utente.
Mi han consigliato l'utilizzo di query, ma non essendo capace ad usarle, chiedo a voi aiuto..

[marco1970]

ti connetti al database e

select * from tua_tabella where tuo_campo = tua_condizione

l'asterisco indica tutti i campi se vuoi invece solo alcuni sostituisci l'asterisco cin i nomi dei campi separati da virgola

[Dave Pantera]

Il punto è ke l'sql lo conosco, ma è come gestire l'sql in vb che non sono capace a fare..

[marco1970]

cosa utilizzi per connetterti con il database il controllo DATA o lo fai via codice?

[Dave Pantera]

via codice con:

Set db = OpenDatabase("archivio.mdb")
Set rs = db.OpenRecordset("Tabella", dbOpenTable)

[marco1970]

Dim dbs As Database
Dim rst As Recordset
Set dbs = OpenDatabase(percorso_database)
Set rst = dbs.OpenRecordset("SELECT * from tua_tabella where tuo_campo=cosa_cerchi)
   
With rst
If .BOF = True Then
non ci sono record
Else
ci sono record
End If
.Close
End With
dbs.Close

[Dave Pantera]

Adesso ci provo! Grazie Tante!!

[Dave Pantera]

Ho un problemino.Non riesco a passare alla query un valore inserito in input.

eseguo in questo modo:

Private Sub mnuricerca_Click()
Dim ris As String
Dim msg As String
Dim b As String
ris = InputBox("Secondo quale lettera vuoi raggruppare i campi?")

Set db = OpenDatabase("cd.mdb")
Set rscd = db.OpenRecordset("SELECT * FROM TCd WHERE TCd.Autore LIKE '[ris]*' ORDER BY Autore")

With rscd
If .BOF = True Then
    msg = MsgBox("Non ci sono record correnti che iniziano con quella lettera!", vbExclamation)
    Else
    cboseltitolo2.Clear
    riempicombo
    End If
    .Close
End With
db.Close

End Sub

All'interno della combobox mette sempre gli stessi risultati.In pratica ciò ke metto in ris la query lo ignora praticamente..Magari è sbagliata la sintassi?

[Jupy64]

Ciao
Set rscd = db.OpenRecordset("SELECT * FROM TCd WHERE TCd.Autore LIKE '" & ris & "*' ORDER BY Autore")

[Dave Pantera]

Grandeeee!!!!