SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: desarrollo en Sábado 4 de Diciembre de 2004, 18:26

Título: Busqueda Sensistiva En Datagrid Por Un Text1
Publicado por: desarrollo en Sábado 4 de Diciembre de 2004, 18:26
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:
Título: Re: Busqueda Sensistiva En Datagrid Por Un Text1
Publicado por: vbmc_2004 en Sábado 4 de Diciembre de 2004, 19:21
hola
Debes especificar un poquito mas tu pregunta pero creo que tengo algo para ti., que ojala te sirva...

Código: Text
  1.  
  2. Dim db As Database
  3. Dim mirec As Recordset
  4. Dim midato As String
  5.  
  6. Private Sub Dato_Change()
  7.         midato = DATO & "*"
  8.     If Option2.Value = True Then
  9.         Set mirec = db.OpenRecordset("select * from peliculas where codpelicula like '" & (midato) & "'")
  10.     Else
  11.         Set mirec = db.OpenRecordset("select * from peliculas where nombrepelicula like '" & (midato) & "'")
  12.     End If
  13.         Set Data1.Recordset = mirec
  14. End Sub
  15.  
  16. Private Sub dato_GotFocus()
  17.     DATO.BackColor = &HC0C000
  18. End Sub
  19.  
  20. Private Sub dato_LostFocus()
  21.     DATO.BackColor = &H80000005
  22. End Sub
  23.  
  24. Private Sub DBGrid1_Click()
  25.  
  26. End Sub
  27.  
  28. Private Sub Form_Load()
  29.    
  30.     Set db = OpenDatabase(App.Path & "\video.mdb")
  31.     Option1_Click
  32. End Sub
  33.  
  34.  
  35. Private Sub Option1_Click()
  36.     DATO.Visible = False
  37.     Set mirec = db.OpenRecordset("select * from peliculas")
  38.     Set Data1.Recordset = mirec
  39. End Sub
  40.  
  41. Private Sub Option2_Click()
  42.     DATO.Visible = True
  43.     DATO.SetFocus
  44. End Sub
  45.  
  46. Private Sub Option3_Click()
  47.     DATO.Visible = True
  48.     DATO.SetFocus
  49. End Sub
  50.  
  51. Private Sub VOLVER_Click()
  52. Unload Me
  53. End Sub
  54.  
  55.  
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:
Título: Re: Busqueda Sensistiva En Datagrid Por Un Text1
Publicado por: fap1603 en Lunes 6 de Diciembre de 2004, 04:56
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
Título: Re: Busqueda Sensistiva En Datagrid Por Un Text1
Publicado por: desarrollo en Lunes 6 de Diciembre de 2004, 19:26
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......