Imprimir en Visual Basic 6.0

[dark_luzbel]

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

[mnek84]

Con tu Do While estas REMPLAZANDO LO QUE YA TENIA EL rs.field anterior!!!!

que tal si le das

Label6 = Label6 & " " & rs.Fields(0)
etc

[polliro]

Ok Mira si quieres mostrar totalmente los libros que se encuentran en tu biblioteca te recomiendo que uses un grid y agregues un boton de busqueda, agrega el componente datagrid y anexas todo tu recordset de esta forma, bueno yo uso esta forma es muy similar

SQL = "SELECT codigo,libro,autor,genero,editorial,ubicacion,disp onibles FROM Libros WHERE autor LIKE '" & Text2.Text & "'

Set rc = New ADODB.Recordset
rc.CursorLocation = adUseClient
rc.Open SQL , cn, adOpenStatic, adLockReadOnly

Set Grid.DataSource = rc
Grid.Refresh

asi mostrara en el grid os libros del autor, el problema en tu sentencia es que los label solo pueden mostrar un libro a la vez y en su case como lo decia mnek84 se van reemplazando, si tienes dudas te dejo mi messenger [email protected]