SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: mexican en Jueves 4 de Septiembre de 2003, 22:43

Título: Re: Codigo para Busqueda rapida dentro de ComBox
Publicado por: mexican en Jueves 4 de Septiembre de 2003, 22:43

Soy novato en esto de programacion
A ver si alguien me puede ayudar con el
codigo para Hacer una Buesqueda rapida
en un ComBox insertando las primeras letras, el Campo se llama "Cliente" logicamente conectandose a una base de datos, y a la vez me muestre hacia abajo o hacia arriba todos los clientes que coinciden con esas letras o al menos 10 clientes
Trabajo con "Control Data" "Recordset"
 
no se nada del SQL, ADO, etc.

De antemano Gracias
ramirog@valle.net.mx

Título: Codigo para Busqueda rapida dentro de ComBox
Publicado por: Brroz en Viernes 5 de Septiembre de 2003, 08:57

Prueba a ver si te vale esto:

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    If KeyCode < 32 Or KeyCode = 35 Or KeyCode = 36 Or KeyCode = 46 Then Exit Sub
    Dim int1 As Integer
    int1 = Len(Combo1.Text)
    Dim int2 As Integer, strW As String
    For int2 = 0 To Combo1.ListCount - 1
        strW = Combo1.List(int2)
        If UCase(Left(strW, int1)) = UCase(Combo1.Text) Then
            Combo1.ListIndex = int2
            Combo1.SelStart = int1
            Combo1.SelLength = Len(Combo1.Text) - int1
            Exit For
        End If
    Next int2
End Sub

Suerte.