Visual Basic - Case Sensitive

Life is soft - evento anual de software empresarial
 
Vista:

Case Sensitive

Publicado por El Guille (61 intervenciones) el 14/12/2005 17:38:56
Por favor si alguien me puede proporcionar codigo fuente de ejemplo sobre como puedo hacer para que a medida que voy escribiendo una palabra en un texbox me vayan apareciendo las diferentes coincidencias con dicha palabra contenida en una tabla de la base de datos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Case Sensitive

Publicado por Victor Tapia (41 intervenciones) el 14/12/2005 18:37:52
Holas..

Creo que se a lo que te refieres, (en este minuto estoy en un equipo sin Visual, Asi que voy a tratar de ser lo mas claro posible)

1º de veras trabajar en el evento Change, Seria mas o menos asi.
estas deveran ser tus variables definidas en un Modulo

Global Rs1 As Recordset
Global Con As Connection
Global sPathBase As String

y defines estos Procedimientos(en el modulo)

Sub Conectar()
sPathBase = app.path & "\Data1.mdb"
Set Con = New Connection
Set Rs1 = New Recordset
With Con
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPathBase
.Open
End With
End Sub

Sub Desconectar()
On Local Error Resume Next
Con.Close
Set Con = Nothing
Rs1.Close
Set Rs1 = Nothing
End Sub

2º Ahora nos vamos al codigo del Boton

Conectar
Rs1.Open "SELECT Nombre,Ciudad,Pais FROM Empleados WHERE Nombre LIKE '%" & Text1.Text & "%'", Con, adOpenDynamic, adLockBatchOptimistic
'Aca dentro del Rs1 esta el resultado de la consulta
Desconectar

Espero te Sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar