Visual Basic - Busqueda por caracter presionado

Life is soft - evento anual de software empresarial
   
Vista:

Busqueda por caracter presionado

Publicado por Emerson (12 intervenciones) el 13/09/2007 17:15:49
Mi pregunta es que si me puede ayudar algiuien con el codigo, para hacer un buscador que me busque las concidencias por caracter escrito sobre un textbox en visual basic
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:Busqueda por caracter presionado

Publicado por P. J. (173 intervenciones) el 13/09/2007 18:02:41
Uhmm, agrega a tu form 2 TextBox y 2 CommandButton, y pega:

Dim inicio, ultimo As Integer

Private Sub cmdBuscar_Click()
For inicio = ultimo To Len(Me.Text1.Text)
If UCase(Me.Text2.Text) = UCase(Mid(Me.Text1.Text, ultimo, Len(Me.Text2.Text))) Then
Me.Text1.SetFocus
Me.Text1.SelStart = ultimo - 1
Me.Text1.SelLength = Len(Me.Text2.Text)
ultimo = inicio + Len(Me.Text2.Text)
Exit For
Else
ultimo = ultimo + 1
End If
If inicio = Len(Me.Text1.Text) Then
MsgBox "es el final"
End If
Next
End Sub

Private Sub cmdNueva_Click()
inicio = 1
ultimo = 1
End Sub

Private Sub Form_Load()
inicio = 1
ultimo = 1
End Sub

Cada que quieras volver a buscar das click a cmdNueva, para que empiece desde cero. Adecualo a tu necesidad, espero te ayude.

Suerte!
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

RE:Busqueda por caracter presionado

Publicado por Emerson (12 intervenciones) el 13/09/2007 18:46:12
la verdad lo que necisito por medio de un texto, cada vez que escriba sobre el texbox se me ejecute una consulta en sql con la considencias de los caracteres y poder mostar la consulta hecha en una grilla
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

Avisa ps

Publicado por P. J. (173 intervenciones) el 13/09/2007 19:33:35
Bueno, como no especificaste que era en BD por eso te mande lo otro. XD
Agrega tus referencias, 1 datagrid y 1 textbox. Pega:

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider = SQLOLEDB.1.0; Data Source =(local); database=northwind; user id=sa; password=sa"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "Select * from customers", cn, adOpenDynamic, adLockOptimistic
Set Me.DataGrid1.DataSource = rs
End Sub

Private Sub Text1_Change()
If Not Me.Text1.Text = Empty Then
rs.Filter = "CompanyName like '" & Me.Text1.Text & "*'"
End If
End Sub

Tambien funcionaria con una consulta SQL con el LIKE algo asi:
Private Sub Text1_Change()
rs.Close
rs.Open "Select * from customers where companyname like '" & Me.Text1.Text & "%'", cn, adOpenDynamic, adLockOptimistic
Set Me.DataGrid1.DataSource = rs
End Sub

Ya tu ve cual usas. Suerte!
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

RE:aporte gratificante

Publicado por emerson (12 intervenciones) el 13/09/2007 20:38:29
muchas gracias colega, su aporte me hacido de gran ayuda.
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