Autor Tema: Busqueda Sensistiva En Datagrid Por Un Text1 (Leído 1444 veces)

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

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 Database
Dim mirec As Recordset
Dim midato As String
 
Private Sub Dato_Change()
        midato = DATO & &#34;*&#34;
    If Option2.Value = True Then
        Set mirec = db.OpenRecordset(&#34;select * from peliculas where codpelicula like '&#34; & (midato) & &#34;'&#34;)
    Else
        Set mirec = db.OpenRecordset(&#34;select * from peliculas where nombrepelicula like '&#34; & (midato) & &#34;'&#34;)
    End If
        Set Data1.Recordset = mirec
End Sub
 
Private Sub dato_GotFocus()
    DATO.BackColor = &HC0C000
End Sub
 
Private Sub dato_LostFocus()
    DATO.BackColor = &H80000005
End Sub
 
Private Sub DBGrid1_Click()
 
End Sub
 
Private Sub Form_Load()
    
    Set db = OpenDatabase(App.Path & &#34;&#092;video.mdb&#34;)
    Option1_Click
End Sub
 
 
Private Sub Option1_Click()
    DATO.Visible = False
    Set mirec = db.OpenRecordset(&#34;select * from peliculas&#34;)
    Set Data1.Recordset = mirec
End Sub
 
Private Sub Option2_Click()
    DATO.Visible = True
    DATO.SetFocus
End Sub
 
Private Sub Option3_Click()
    DATO.Visible = True
    DATO.SetFocus
End Sub
 
Private Sub VOLVER_Click()
Unload Me
End 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

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

pd:

claudia no sabe......

SoloCodigo

Autor Tema: Busqueda Sensistiva En Datagrid Por Un Text1 (Leído 1444 veces)

desarrollo

Busqueda Sensistiva En Datagrid Por Un Text1

vbmc_2004

Re: Busqueda Sensistiva En Datagrid Por Un Text1

fap1603

Re: Busqueda Sensistiva En Datagrid Por Un Text1

desarrollo

Re: Busqueda Sensistiva En Datagrid Por Un Text1