Discussione: Database con VB 6
View Single Post
Old 08-02-2005, 17:35   #13
komet
Member
 
Iscritto dal: Nov 2004
Messaggi: 48
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
komet è offline   Rispondi citando il messaggio o parte di esso