MySQL-Abrfage mit VBA-Code

[bjole]

Hallo VBA Freunde,
ich habe ein für mich schwerwiegendes Problem, (Wissenslücke).

Ich habe mir eine MySql-Abfrage gebastelt, die für einfache einzellne Datensätze ganz gut funktioniert.
Jetzt möchte ich mittels einer KundenNr z.B. "1234" in einer Tabelle namens TVertrag alle Datensätze zur weiteren Bearbeitung mit den dazugehörigen Feldern heraus lesen. Das muss ja mit einer Schleife ablaufen. Ich schaffe es nur immer den selben Datensatz zu finden, ich habe nach allen mir verständlichen Versuchen keine Lösung gefunden.
Mein Einstiegsbeispiel:

Public iKundeNr as Integer

Sub DB_Abfrage()
iKundeNr = 1234

Call Modul8.database_öffnen

abfrage= "SELECT * FROM TVertrag WHERE SpKundeNr = " & iKundeNr

DBS.open abfrage, ADOC
Betrag = DBS!btrg
VertragDatum = DBS!vdate
DBS.close

Call Modul8.database_schließen
End Sub


Damit habe ich den ersten Datensatz gefunden. Aber wie kann ich die anderen Datensätze mit der selben KundenNr finden die nicht hintereinander in der Datenbank erfasst wurden Nach der TVertrag_ID kann ich nicht suchen, weil diese dem Nutzer nicht bekannt ist.
Ich weiß nicht weiter
kann mir jemand helfen ?

Danke im Voraus
mfG bjole

 

[Nirraven]

Erzeug doch ein recordset. und dann ist es mit

Do While Not rs.EOF
<Anweisung>
rs.MoveNext
Loop

wunderbar getan.

 

[bjole]

Danke Nirraven,
ich habe das Problem gelöst,
Gruß bjole