Programación General > Visual Basic 6.0 e inferiores

 Busqueda Sensistiva En Datagrid Por Un Text1

(1/1)

desarrollo:
Hola gente,,,

alguien me puede ayudar, dentro del evento change de un text deseo hacer una busqueda sensistiva dentro de un Datagrid en un determinado campo..


saludos

DesarrollO :comp:

vbmc_2004:
hola
Debes especificar un poquito mas tu pregunta pero creo que tengo algo para ti., que ojala te sirva...


--- Código: Text --- Dim db As DatabaseDim mirec As RecordsetDim midato As String Private Sub Dato_Change()        midato = DATO & "*"    If Option2.Value = True Then        Set mirec = db.OpenRecordset("select * from peliculas where codpelicula like '" & (midato) & "'")    Else        Set mirec = db.OpenRecordset("select * from peliculas where nombrepelicula like '" & (midato) & "'")    End If        Set Data1.Recordset = mirecEnd Sub Private Sub dato_GotFocus()    DATO.BackColor = &HC0C000End Sub Private Sub dato_LostFocus()    DATO.BackColor = &H80000005End Sub Private Sub DBGrid1_Click() End Sub Private Sub Form_Load()        Set db = OpenDatabase(App.Path & "\video.mdb")    Option1_ClickEnd Sub  Private Sub Option1_Click()    DATO.Visible = False    Set mirec = db.OpenRecordset("select * from peliculas")    Set Data1.Recordset = mirecEnd Sub Private Sub Option2_Click()    DATO.Visible = True    DATO.SetFocusEnd Sub Private Sub Option3_Click()    DATO.Visible = True    DATO.SetFocusEnd Sub Private Sub VOLVER_Click()Unload MeEnd Sub  sabes en este codigo hace una consulta con la funcion "like" lo que hace este codigo es buscar por codigo,nombre,o rut en una caja de texto y lo muestra en un datagrid ahora
TE PIDO PIDO MIL DISCULPAS POR NO SER MAS CLARO ESTOY OCUPADO REALIZANDO UNA TRABAJO PARA LA UNIVERSIDAD Y TAMBIEN NO SE ALGUNAS COSAS

CHAU OJALA TE SIRVA
SALU2 :lightsabre:

fap1603:
Hola, este es el pedazo de codigo que yo utilizo, espero te sirva

en text_change:
For i = 1 To MSHFlexGrid1.Rows - 1 Step 1
            MSHFlexGrid1.Col = 1 'donde esta el dato,
            MSHFlexGrid1.Row = i 'busca entre en filas
            If Mid(MSHFlexGrid1.Text, 1, Len(Text1(6).Text)) = (Text1(6).Text) Then
                MSHFlexGrid1.Row = i
                MSHFlexGrid1.Col = 0
                Text1_LostFocus (6)
                Exit For
            End If
        Next i
en text_lostfocus
If Index = 6 Or Index = 7 Then
        MSHFlexGrid1.ColSel = 0
        MSHFlexGrid1.ColSel = 6
End If

lo tengo asi por que utilizo mas funciones, pero pueds convinarlas. Suerte

desarrollo:
gracias a todos de todas maneras me sirvio de mucho para ahora utilize un record set y con una consulta (select..like$...)

gracias

desarrollo  :comp:

pd:  :blink: claudia no sabe......

Navegación

[0] Índice de Mensajes