Consulta de Datos en Access desde VB 05

[rafuru]

Saludos n.n!!

Pues veran, tengo un proyecto que estoy realizando en Gambas (lenguaje tipo Basic para Linux) donde en un formulario tengo un campo "nombre" y al escribir algo como "javier" sale en una listbox todos los registros de una base de datos que contengan javier..

En la Base de datos tengo un campo nombre y uno apellido, para meterlos en la listbox unicamente concateno los resultados..

La cuestion es que en VB realmente no se como realizar dicha consulta..

segui los pasos que siguio este compañero:
http://www.forosdelweb.com/f29/uso-oledbdatareader-para-consultar-datos-783967/

Pero me quede hasta donde se ejecuta la consulta..

La cuestion es, como extraigo los resultados a fin de llenar una listbox?

Espero me puedan ayudar.. de antemano gracias por leer mi tema!

[Phillip]

Hola Rafuru

Llenalo de esta forma:

Código PHP:

   
        Dim cnn As OleDb.OleDbConnection 
        Dim cadenacon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\ORDENES.mdb" 
        cnn = New OleDb.OleDbConnection 
        cnn.ConnectionString = cadenacon 
        cnn.Open() 
        Dim sSQL As String = " SELECT  cedula,nombre+ ' ' + apellidos as lista  FROM EMPLEADOS WHERE EMPLEADOS.cedula LIKE '%" & TxtNombre.Text & "%'   ORDER BY nombre" 
        Dim oDataSet As DataSet = New DataSet 
        Dim oDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter 
        Dim oCommand As OleDb.OleDbCommand = New OleDb.OleDbCommand 
        oCommand.Connection = cnn 
 
        oCommand.CommandText = sSQL 
        oCommand.CommandTimeout = 120 
        oDataAdapter.SelectCommand = oCommand 
        oDataAdapter.Fill(oDataSet, "EMPLEADOS") 
 
        With ListBoxEmpleados 
            .DataSource = oDataSet.Tables("EMPLEADOS") 
            .DisplayMember = "lista" 
        
        End With  
   

De esta forma llenas comodamente tu ListBox, se ejecuta una consulta SQL que trae todos los que coincida con lo que se ingreso
en el TextBoxt TxtNombre.Text, en la consulta se concatena el nombre y el apellido y se guarda en una variable llamada "lista", esta variable concatenada en la que se mostrara en el ListBox.
Simplemente adaptalo a tus tablas.

Saludos