ecco il codice
vi posto il codice della mia applicazione.
Option Explicit
Dim cn As ADODB.Connection 'cn è un nome arbitrario
Dim rs As ADODB.Recordset 'rs è un nome arbitrario
Dim cerca As String 'variabile di nome cerca di tipo String
Private Sub frm_database()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Datasource=" & App.Path & "\bambini.mdb"
cn.Open
End Sub
Private Sub cmd_ricerca_Click()
cerca = ""
cerca = cerca & "SELECT Cognome" & vbCrLf
cerca = cerca & "FROM bambini" & vbCrLf
cerca = cerca & "WHERE Cognome LIKE ' " & txt_ricerca.Text '
Set rs = cn.Execute(cerca)
While Not (rs.EOF)
flexgrid.AddItem rs("Cognome")
rs.MoveNext
Wend 'fine while
End Sub
Mi potete aiutare per favore.
Grazie a tutti
|