Buscar resultados en un dataGrid mientras se digita (Ado)

Lostan · #1 (**permalink**) 18/08/2010, 14:00

Hola,
amigos foreros, necesito de su ayuda

Tengo en un Form con un DataGrid conectado a un Adodc y tres Textbox conectados a los campos.

necesito que al momento de digitar un numero en el TextBox llamado "TextID"
aparescan en el DataGrid1 los registros que comiencen con los numeros que voy digitando,

He buscado en el foro y encontre este codigo:

Código:

Private Sub TextID_Change()

Adodc1.RecordSource = "SELECT % FROM tabla1 WHERE ID LIKE '" & TextID & "%'"
Adodc1.Refresh

End Sub

El problema es que al ejecutar el Form y cambiar los datos en el textbox NO PASA NADA¡¡¡¡

favor su ayuda muchachos, si logro entender esto me seria de mucha utilidad

Insomnia · #2 (**permalink**) 20/08/2010, 01:27

Hola

Prueba a volver a asignar el adodc1 al Datagrid y refrescarlo (el datagrid). Yo no lo hago con un ADODC, utilizo un recordset, y cada vez que lo cambio, vuelvo a cargar el Grid:

Código:

    With Rejilla
        Set .DataSource = reg
        .Refresh
    End With

P.D.: reg es un recordset donde meto la consulta select con la condición, pero tiene que funcionar igual con un Adodc

--Saludos--

buxforever · #3 (**permalink**) 20/08/2010, 01:29

Prueba con esto...

Código vb:

Ver originalWith Adodc1
         If Text1 <> "" Then
            'Fltrar por el campo especificado en Combo1
            .Recordset.Filter = CAMPO1 & " LIKE '*" + Text1 + "*'"
            'Enlazar el Grid con el recordset
            Set DataGrid1.DataSource = Adodc1.Recordset
        Else
            'Limpiar el Filtro
            .Recordset.Filter = ""
        End If
        'Refrescar el control ADO
        .Refresh
        ''Habilitar el (Timer1)
        Timer1.Enabled = True

Nota: CAMPO1 es el campo que deseas filtrar y lo declaras de esta manera

Código vb:

Ver originalPrivate Const CAMPO1 As String = "[No Control]"

Lostan · #4 (**permalink**) 20/08/2010, 08:16

Gracias Muchahcos por sus respuestas,
no se si yo no lo hago bien, pero no me funciona ninguna de las dos opciones
ahora estoy yntentando con este codigo:

Código:

Private Sub Text1_Change()

Adodc1.RecordSource = "SELECT * FROM tabla1 WHERE RUT LIKE '" & Text1 & "*'"
Adodc1.Refresh

End Sub

Cambie el textbox en el cual voy a digitar lo que necesito y sustituí el % por *
Text1 es el cuadro de texto y el campo que esta enlazado a el se llama RUT la tabla se llama Tabla1 y la base de datos es de acces 2003 y se llama bd1, esta ubicada en el mismo directorio que la aplicacion.

necesito que el codigo se ejecute en el evento Change del Textbox y esto es lo mas similar, pero no me funciona.

Muchas gracias por su ayuda muchachos

buxforever · #5 (**permalink**) 20/08/2010, 09:31

Podrias basarte en este ejemplo....Hace exactamente lo que quieres..

http://www.recursosvisualbasic.com.a...igo-de-ado.htm

Lostan · #6 (**permalink**) 20/08/2010, 10:33

bux

ese ejemplo es justo lo que buscaba, muchas gracias

pero ahora tengo un solo problema
el ejemplo tiene la coneccion en declaraciones, las cuales llama con el evento Load Form,

Código:

' 
Cadena de conexión
Private Const s_CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                             "Data Source=C:\Archivos de programa" & _
                                             "\Microsoft Visual Studio\VB98\" & _
                                             "NWIND.MDB;Persist Security Info=False"


Private Const SQL As String = "Select * From Proveedores"
Private Const CAMPO_A_FILTRAR As String = "NombreContacto"

como hago para que este codigo se paresca a esto???

Código:

Private Sub Form_Load()
    ' Indicar la base de datos a usar
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=" & App.Path & "\bd1.mdb"
    
    Adodc1.CursorType = adOpenDynamic
    ' Conectarlo a la tabla de prueba
    Adodc1.RecordSource = "Tabla1"
    ' Refresh es necesario para que se cargue la tabla
    Adodc1.Refresh
   
End Sub

Lostan · #7 (**permalink**) 23/08/2010, 09:22

Amigos,
favor su ayuda,
en el primer codigo la conneccion se hace a un archivo de acces que esta ubicado en una ubicacion especifica

necesito que la coneccion se realice al mismo directorio donde este unicada la aplicacion
untente adaptandolo a mi segundo codigo, pero no me funciona.

que podra ser???

buxforever · #8 (**permalink**) 23/08/2010, 13:35

No tendras por ahi el proyecto para darle una checada.

Ya que con remplazar la ruta del (Connection string) deberia de funcionar..

Lostan · #9 (**permalink**) 23/08/2010, 14:41

estos son los codigos

Cita:

Iniciado por Lostan

bux

ese ejemplo es justo lo que buscaba, muchas gracias

pero ahora tengo un solo problema
el ejemplo tiene la coneccion en declaraciones, las cuales llama con el evento Load Form,

Código:

' 
Cadena de conexión
Private Const s_CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                             "Data Source=C:\Archivos de programa" & _
                                             "\Microsoft Visual Studio\VB98\" & _
                                             "NWIND.MDB;Persist Security Info=False"


Private Const SQL As String = "Select * From Proveedores"
Private Const CAMPO_A_FILTRAR As String = "NombreContacto"

como hago para que este codigo se paresca a esto???

Código:

Private Sub Form_Load()
    ' Indicar la base de datos a usar
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=" & App.Path & "\bd1.mdb"
    
    Adodc1.CursorType = adOpenDynamic
    ' Conectarlo a la tabla de prueba
    Adodc1.RecordSource = "Tabla1"
    ' Refresh es necesario para que se cargue la tabla
    Adodc1.Refresh
   
End Sub

el primero es el que tu me diste, lo ajuste a mi base de datos y funciona bien, pero no puedo conectarme a la base de datos cambiando la ubicacion en el codigo

buxforever · #10 (**permalink**) 23/08/2010, 15:55

Realizalo de esta manera... unicamente adaptas tu ruta de la base de datos

Código vb:

Ver original'Ruta a la base de datos
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=C:\Base Principal.MDB;Persist Security Info=False"
                              
    With Adodc1
        ''Establecer el tipo de Comando ( Consulta SQL )
        .CommandType = adCmdText
        'Seleccione de la base de datos la tabla (Registro)
        .RecordSource = "Select * From Registro"
        'Realize un (Refresh) en el control
        .Refresh
         DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
        'Coloque el origen del (Datagrid1) = Al origen del (Recordset)
        Set DataGrid1.DataSource = Adodc1.Recordset
      
    End With