Ayuda - Visual Basic (Base de Datos) en el foro de Programación:

Hola que tal, pasaba porque tenia una duda que probablemetne sea muy simple de solucionar.

Toy haciendo un trabajo para el colegio que consiste en armar una base de datos en excel, pasarla a acces y leerla con el visual basic (usamos el Msft VB 5.0). La cuestion es que todo resulta perfecto pero no se me ocurre como hacer para que al realizar la busqeuda en el list salgan todos los campos de la tabla y no solo el que responde a la busqueda.

Basicamente lo que yo quiero hacer es o bien que en el list salgan todos los campos o que haciendo click en lo que aparece en el list me abra una ventana con todos los datos.

Otra cosa que no puedo solucionar es el hecho de que al buscar por autor me tire como resultado los libros y no los autores, al final les dejo el codigo donde de por si esta mal, porque pongo "List1.AddItem reg(Combo1)", con lo cual es inevitable que me ponga Autor cuando busco por Autor y Libro cuando busco por libro.

Les dejo el codigo...
Desde ya muchas gracias por su ayuda

Private Sub Command1_Click()
List1.Clear
Dim datas As Database
Dim reg As Recordset
Dim cons As String
Set datas = OpenDatabase(App.Path + "\dbase.mdb")
If Combo1 = "Autor" Then
cons = "select Autor from Hoja1 where Autor like'"
ElseIf Combo1 = "Titulo" Then
cons = "select Titulo from Hoja1 where Titulo like'"
End If
cons = cons + Text1.Text + "*'"
Set reg = datas.OpenRecordset(cons, dbOpenSnapshot)
Do While Not reg.EOF
If reg.NoMatch Then
Print "no se encontro nada"
Else
List1.AddItem reg(Combo1)
reg.MoveNext
End If
Loop
End Sub

hOLA QUE TAL, BAJATE ALGUN MODULO DE LA PAGINA PLANET-SOURCE.COM

en ambos consultas (Select) tenes el mismo tema por el cual te esta mostrando solamente un campo y es que le estas pidiendo que te traiga solo un campo
Tu codigo es :
cons = "select Autor from Hoja1 where Autor like'" (en este caso solo le pedis que te traiga el campo Autor)
Tu Codigo Arreglado :
cons = "select * from Hoja1 where Autor like'" (cuando le pones un asterisco (*) en vez de un nombre del campo, te trae TODOS los campos de la tabla, si no queres que te traiga todos lo campos, fijate que campos tenes y ponelos separados por una coma ",")
Espero te sea util.
Saludos

Capo, tabula !!!! no entendi si lo que queres es en VB6 o en el VB de access