Formulario de Busqueda en bd de Access con conexion adodb

FiXeR
06 de Agosto del 2004
Hola tengo un formiulario y una conexion a una bd de access por medio de adodb y lo que quiero hacer es que al ingrsar un caracter en un text box busque en la base de datos las coincidencias y las ponga en una lista "list" gracias.

Gustavo
06 de Agosto del 2004
Tenés que hacerlo con código

Private Sub Text1_Change()
Dim cn As Object
Dim rs As Object
Dim sSQL As String

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.ConnectionString = Me.Adodc1.ConnectionString
cn.Open
sSQL = "SELECT el_nombre_del_campo " & _
"FROM el_nombre_de_la_tabla " & _
"WHERE el_nombre_del_campo LIKE " & _
Me.Text1.Text

rs.Open sSQL, cn
Me.List1.Clear
Do Until rs.EOF
Me.List1.AddItem rs("el_nombre_del_campo")
Loop
End Sub

Ni no tenés el objeto data ADO en el formulario (para esto no lo necesitás para nada), tenés que escibir la cadena de conexión ( llenar las propiedades de a una) a mano. Lo más rápido es agregar el data ADO, usar el asistente para crear la cadena de connexión, copiarla, pegarla en el codigo, y después, eliminar el data ADO.
Espero que te sirva