Alle Datensätze in eine ListBox stellen

[newartco]

Moinmoin,
wieder einmal hat meine grenzenlose Begriffstutzigkeit zugeschlagen und ich brauche Eure Hilfe.

Ich habe eine Datenbank sequence und ein Tabelle mit dem Namen A0 und nur einer Columne!
Ich schaffe es aber nur den ersten Datensatz in die ListBox zu packen und mir fehlt die Syntax alle Datensätze durchzugehen und dann in der ListBox mit einer For-Schleife aufzuführen.

*****************************************************
Dim $hConn As New Connection
Dim sql As String

Dim resultP As Variant

Dim x As Integer


With $hConn
.Type = "mysql"
.Host = "localhost"
.Login = "pentilisea"
.Password = "150152finas"
.Name = "sequence"
.Open()
End With

sql = "SELECT * FROM A0"
resultP = $hConn.Exec(sql)



If resultP.Available Then
ListBox2.Add(resultP!seq0)
Endif

********************************************************************

Vielen Dank schonmal für Eure Zeit.

Klaus

PS: mit folgendem Code bekomme ich schon eine Liste mit Datensätzen, aber Datensätze mit gleichem Inhalt werden nicht angezeigt. Also es gibt 5 Datensätze mit einer 1, die 1 wird angezeigt, aber nicht die anderen 4 mit einer 1 drinn...

**********************************

For x = 0 To 100

sql = "SELECT * FROM A0 WHERE seq0 ='" & x & "'"
resultP = $hConn.Exec(sql)



If resultP.Available Then
ListBox2.Add(resultP!seq0)
Endif

Next

[Honsek]

Hallo NewArtCo,

ich würde erst einmal über alle Datensätze iterieren und mir alle Feldwerte des DB-Feldes `seq0` ausgeben lassen:
gambas code

    If $hCurDBResult.Available Then
       $hCurDBResult.MoveTo(0)
       For i = 0 To $hCurDBResult.Max
         Print $hCurDBResult["seq0"]
         $hCurDBResult.MoveNext()
       Next
    Endif

Anschließend kannst Du die Print-Anweisung durch
gambas code

ListBox2.Add($hCurDBResult!seq0)

ersetzen.

Mit flottem Gruß

Honsek

[newartco]

Besten Dank für die Hilfe.

Klaus