Loop Until Res.Isendofdata überspringt letzten Datensatz

[ralph71]

Hallo zusammen,

über den unten (abgekürzten) Code hole ich mir aus einer SQL-Datenbank Datensätze (res) und durchlaufe diese über eine Do-Loop.

Dim res As New ODBCResultSet
....
Res.FirstRow
Do
        'Mach irgendwas
   Res.NextRow
Loop Until Res.Isendofdata

Wenn ich das laufen lasse, dann führt mir der Loop den Code "Mach irgendwas" nur einmal aus, obwohl im ODBCResultSet 2 Datensätze sind (sehe ich im Debugger auch unter Currentrow = 2)

Ablauf:
hole den ersten Satz aus res (Currentrow =1) --> ""Mach irgendwas" --> gehe zum nächsten Satz (Currentrow = 2) --> Loop Until Res.Isendofdata --> Ende!!
Die Bedingung Isendofdata killt den letzten Satz. res ist doch noch nicht auf endofdata (steht ja auf Satz 2)?
Wo ist mein Denkfehler bzw wie erreiche ich, dass er den letzten Satz auch bearbeitet?
Danke!

Grüße
Ralph

[jBubbleBoy]

versuch es mal damit:

Code

res.Execute
Do
	res.NextRow
	'-- mach was
Loop Until res.IsEndOfData

[ralph71]

"Res.Execute" hab ich natürlich drin.

Was mir völlig unverständlich ist_

Do
        'Mach irgendwas
   Res.NextRow
Loop

... führt zu keinem Fehler. Endlos-Loop. Versteh ich nicht. Kann das am ODBC-Treiber liegen?

[ralph71]

Treffer!
Ein

Res.Execute
Do
      Res.NextRow
Loop Until Res.Isendofdata

Saved my day!

[ralph71]

Sorry, zu früh gefreut.

Geht so nicht...

Res.Execute
Do
     'mach was
     Res.NextRow
     'mach was
Loop Until Res.Isendofdata

Ablauf:
nimmt den ersten Satz --> macht was --> NextRow (macht er nicht!! weil der Currentrow =1 bleibt) --> mach was --> Loop --> mach was --> NextRow (macht er!! Currentrow =2) --> mach was --> ENDE
Dh er killt wieder den letzten Satz

Ich checks ned... Macht keinen Sinn.

[ralph71]

so, habe jetzt den Code auf ein Beispiel reduziert:

Sub Initialize

Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim res As New ODBCResultSet
Dim ProfilMitgliedsnummer As String
Dim NextProfilMitgliedsnummer As String
Dim ProfilMail As String

   If Con.ConnectTo("webprofil")Then
      Set Qry.Connection = Con
      Qry.SQL = "Select nr,email,optin from users WHERE deleted_at Is Null and nr = 12345678"

      Set Res.Query = Qry
      Res.Execute    
   End if


   Do
      ProfilMitgliedsnummer = Res.Getvalue("nr",ProfilMitgliedsnummer)
      ProfilMail = Res.Getvalue("email",ProfilMail)
      
      Res.NextRow
      
      NextProfilMitgliedsnummer = Res.Getvalue("nr",NextProfilMitgliedsnummer)
      
      If NextProfilMitgliedsnummer = ProfilMitgliedsnummer then
         'machwas
      End if
      
         
   Loop Until Res.Isendofdata   
   
End Sub

Verhalten: nach dem Res.NextRow und Loop holt mir ProfilMail = Res.Getvalue("email",ProfilMail) nicht den nächsten Satz....

[jBubbleBoy]

res.getValue muss nach res.nextRow aufgerufen werden 

[jBubbleBoy]

Dein Problem ist das neben dem Auslesen der Tabelle auch eine Verarbeitung der Daten durchgeführt wird, dabei kommst Du durcheinander - mein Tipp mach eins nach dem anderen, also zuerst nur Daten lesen, dann Daten auswerten / verarbeiten 

[CarstenH]

Res.Execute
Do
     'mach was
     Res.NextRow
     'mach was
Loop Until Res.Isendofdata

Ablauf:
nimmt den ersten Satz --> macht was --> NextRow (macht er nicht!! weil der Currentrow =1 bleibt) --> mach was --> Loop --> mach was --> NextRow (macht er!! Currentrow =2) --> mach was --> ENDE
Dh er killt wieder den letzten Satz

Ich checks ned... Macht keinen Sinn.

Das Verhalten ist ganz einfach erklärt: Der erste (!) Aufruf von NextRow positioniert immer auf Row 1, da es ja noch keine vorherige Position gab und diese quasi undefiniert ist. Du kannst zwar schon auf Daten zugreifen weil DU weißt dass der Zeiger auf dem ersten Datensatz stehen müsste aber der interne Zeiger, mit dem NextRow arbeitet, steht auf Null.

Damit sieht es so aus als würde der erste Datensatz doppelt angesprungen werden aber das wird er nicht da erst nach dem NextRow überhaupt ein definierter Zustand vorliegt!
Ein anderes Vorgehen, also mit FirstRow etc. wird ausschließlich dann benötigt, wenn der erste Datensatz eine andere Behandlung als der Rest bekommen muss.

Daher gilt, was dir jBubbleBoy im ersten Post geschrieben hat:
result.Execute
Do
  result.NextRow
  code for processing one row
Loop Until result.IsEndOfData

Ich würde unabhängig davon Code zur Fehlerbehandlung empfehlen und Zwischenmeldungen (z.B. Counter) einbauen.

HTH
Carsten

[ralph71]

Danke für Eure Hinweise. Eine Änderung der Verarbeitungslogik sollte jetzt die Lösung bringen. :-)