dark_luzbel
06-05-2006, 01:53
Quetal estoy haciendo un programa para una biblioteca y necesito crear una busqueda, pero tengo un problema cuando busco un autor solo me aparece en los label el ultimo libro y no todos, como le puedo hacer, el codigo que uso es el sig:
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\biblioteca.mdb"
cn.Open
Data1.DatabaseName = App.Path & "\biblioteca.mdb"
Set rs = cn.Execute("SELECT codigo,libro,autor,genero,editorial,ubicacion,disp onibles FROM Libros WHERE autor LIKE '" & Text2.Text & "'")
rs.MoveFirst
Do While Not rs.EOF
Label6 = " " & rs.Fields(0)
Label9 = " " & rs.Fields(1)
Label10 = " " & rs.Fields(2)
Label11 = " " & rs.Fields(3)
Label12 = " " & rs.Fields(4)
Label13 = " " & rs.Fields(5)
Label14 = " " & rs.Fields(6)
rs.MoveNext
Loop
End Sub
:( ayudenme de favor
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\biblioteca.mdb"
cn.Open
Data1.DatabaseName = App.Path & "\biblioteca.mdb"
Set rs = cn.Execute("SELECT codigo,libro,autor,genero,editorial,ubicacion,disp onibles FROM Libros WHERE autor LIKE '" & Text2.Text & "'")
rs.MoveFirst
Do While Not rs.EOF
Label6 = " " & rs.Fields(0)
Label9 = " " & rs.Fields(1)
Label10 = " " & rs.Fields(2)
Label11 = " " & rs.Fields(3)
Label12 = " " & rs.Fields(4)
Label13 = " " & rs.Fields(5)
Label14 = " " & rs.Fields(6)
rs.MoveNext
Loop
End Sub
:( ayudenme de favor