Yei
20 de Mayo del 2004

¿Cómo puedo buscar lo que estoy escribiendo (tal vez en un text) en un ComboBox, ó DbCombo, ó ListView, ó algún otro, etc ?
Les agradecería mucho la colaboración

bjavier
20 de Mayo del 2004

inserta un control flex grid y le colocas el nombre ms
beneficiario 'es mi tabla donde quiero consultar
txtdes.Text 'es el control donde escribo lo que quiero buscar. Utiliza este codigo si me escribes te envio el codigo fuente de un proyecto completo

Private Sub txtdes_Change()
Dim TCadena, T As Variant
On Error GoTo existereg
sql = "select count (*) as cont from beneficiario"
rs.open sql,conexion
If rs.recordcount > 0 Then
TCadena = Len(txtdes.Text)
rsl2.MoveFirst
While Not rsl2.EOF = True
Cadena = Mid((rsl2!nitbeneficiario), 1, Len (txtdes.Text))
If UCase(Cadena) Like UCase(txtdes.Text) Then
ms.Rows = ms.Rows + 1
ms.TextMatrix(ms.Rows - 1, 0) = rsl2!nitbeneficiario
ms.TextMatrix(ms.Rows - 1, 1) = rsl2!nombeneficiario
End If
rsl2.MoveNext
Wend
End If
end sub

Oskitar
20 de Mayo del 2004

programa tu control en el evento change y agregale a la consulta un like '%control%'