Boton De Buscar Bd En Vb6 Ayudaaaa ¡¡¡LEELO

[GeoAvila]

bueno si no estoy mal no estas abriendo la conexion y otra cosas lo que esta qui abajo es lo unico que tendrias que tener en tu form es una manera de hacerlo...

Código:

Private Sub Command1_Click() 
Dim cn As New adodb.Connection 
Dim rs As New adodb.Recordset 
Dim sql As String 
cn.open = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;" 
sql = "select Nombre,Telefono,Fax,Email,Direccion from Directorio where Nombre like %'" & txtNombre.Text & "'%" 
Set rs = cn.Execute(sql) 
If IsNull(rs(0)) Then 
MsgBox "No Existe el registro" 
Else 
txtNombre.Text = rs!Nombre ' o tambien rs(1) 
End If 
End Sub 
 

aqui esta otra manera, estas variables estarian declaradas para cualquier evento dentro del form...

Código:

Dim cn As New adodb.Connection 
Dim rs As New adodb.Recordset 
Dim sql As String
Private Sub Command1_Click() 
cn.open = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;" 
sql = "select Nombre,Telefono,Fax,Email,Direccion from Directorio where Nombre like %'" & txtNombre.Text & "'%" 
Set rs = cn.Execute(sql) 
If IsNull(rs(0)) Then 
MsgBox "No Existe el registro" 
Else 
txtNombre.Text = rs!Nombre ' o tambien rs(1) 
End If 
End Sub