ayuda con la busqueda
Publicado por marcelo (4 intervenciones) el 25/04/2006 14:40:15
Hola buen dia, necesito ayuda con esta busqueda la cual busca en un solo campo y vuelca el valor en un solo list1.
Yo quiero que me de el el resultado del campo seleccionado en el list1(como lo hace ahora) mas el resultado de los otros campos (base de datos)en otro list.
Dim bd As dao.Database
Dim t As dao.Recordset
Private Sub Command1_Click()
Dim cri As String
cri = Text1.Text
Set bd = OpenDatabase("ruta de la base de datos")
Set t = bd.OpenRecordset("SELECT socios.codsocio From SOCIOS Where SOCIOS.codsocio Like '" & cri & "*'")
Me.List1.Clear
Do While t.EOF = False
List1.AddItem t.Fields(0)
t.MoveNext
Loop
End Sub
Yo quiero que me de el el resultado del campo seleccionado en el list1(como lo hace ahora) mas el resultado de los otros campos (base de datos)en otro list.
Dim bd As dao.Database
Dim t As dao.Recordset
Private Sub Command1_Click()
Dim cri As String
cri = Text1.Text
Set bd = OpenDatabase("ruta de la base de datos")
Set t = bd.OpenRecordset("SELECT socios.codsocio From SOCIOS Where SOCIOS.codsocio Like '" & cri & "*'")
Me.List1.Clear
Do While t.EOF = False
List1.AddItem t.Fields(0)
t.MoveNext
Loop
End Sub
Valora esta pregunta
0