Non visualizza in Listbox i dati del database

[mirkaccio80]

Ciao,
premetto che sono nuovo sia nel forum che nella programmazione in generale.
Sto seguendo un libro e faccio un programma che dato un database in mysql gia parzialmente riempito di dati ho un form con un pulsante carica dati che se clicco deve visualizzare nella Listbox sotto la lista dei libri(in questo caso), ma il problema e' che mi visualizza solo il primo.
Premetto che il codice l'ho controllato esattamente come lo scrive nel libro e l'ho ripassato piu volte.
ho controllato nel forum se c'era gia una risposta ma non l'ho trovata, (non so se per mia ignoranza)
Ecco il codice del pulsante:

Private Sub BtnCarica_Click(sender As Object, e As EventArgs) Handles BtnCarica.Click
Dim Records As New DataSet
Dim i As Integer
Dim s As String


Comando.Connection = Connessione
Comando.CommandText = "select * from libri"


Adapter.SelectCommand = Comando
Adapter.Fill(Records)


If Records.Tables(0).Rows.Count = 0 Then
MsgBox("Non ci sono libri nel database!")
Else
ListLibri.Clear()


For i = 0 To Records.Tables.Count - 1
s = Records.Tables(0).Rows(i).Item("cod_libro") & ""
s = s & Records.Tables(0).Rows(i).Item("titolo") & ""
s = s & Records.Tables(0).Rows(i).Item("cod_autore") & ""
ListLibri.Items.Add(s)
Next
End If
End Sub

[renygade]

Ciao,
premetto che sono nuovo sia nel forum che nella programmazione in generale.
Sto seguendo un libro e faccio un programma che dato un database in mysql gia parzialmente riempito di dati ho un form con un pulsante carica dati che se clicco deve visualizzare nella Listbox sotto la lista dei libri(in questo caso), ma il problema e' che mi visualizza solo il primo.
Premetto che il codice l'ho controllato esattamente come lo scrive nel libro e l'ho ripassato piu volte.
ho controllato nel forum se c'era gia una risposta ma non l'ho trovata, (non so se per mia ignoranza)
Ecco il codice del pulsante:

Private Sub BtnCarica_Click(sender As Object, e As EventArgs) Handles BtnCarica.Click
Dim Records As New DataSet
Dim i As Integer
Dim s As String


Comando.Connection = Connessione
Comando.CommandText = "select * from libri"


Adapter.SelectCommand = Comando
Adapter.Fill(Records)


If Records.Tables(0).Rows.Count = 0 Then
MsgBox("Non ci sono libri nel database!")
Else
ListLibri.Clear()


For i = 0 To Records.Tables.Count - 1
s = Records.Tables(0).Rows(i).Item("cod_libro") & ""
s = s & Records.Tables(0).Rows(i).Item("titolo") & ""
s = s & Records.Tables(0).Rows(i).Item("cod_autore") & ""
ListLibri.Items.Add(s)
Next
End If
End Sub

Ciao..
Non vorrei sbagliarmi ma direi che l'errore è qua:

For i = 0 To Records.Tables.Count - 1

Perché fai il ciclo da 0 a Numero TABELLE e non numero righe della tabella(0). Se nel tuo database hai una sola tabella, lui ti scrive solo la prima riga e poi esce dal ciclo.
Dovrebbe essere così:

For i = 0 To Records.Tables(0).Rows.Count - 1

Sono errori banali ma oltre a copiare il codice dovresti imparare anche a fare il debug, per individuare banali errori di distrazione.
Prova a vedere se nel tuo libro c'è una sezione che spiega come si fa il debug... Di solito la mettono...

[mirkaccio80]

aaah, Vero, ma come ho fatto!
Si è vero , devo andare piu da solo, senno non imparo, asdesso ci provo ma adesso questo inserimento del mysql mi deve ancora entrare bene in testa.
Grazie Mille!

[renygade]

Prego.
Buono studio.