access – simple recordset operations – read

read data from a record set in a do – loop

‚if data exists
If rstMyData.RecordCount > 0 Then


rstMyData.MoveFirst
Do


rstTarget.AddNew
‚add data to rst
rstTarget(„ProjectID“) = CurrentProjectID
rstTarget(„Name“) = rstMyData(„Name“)
’save rst
rstTarget.Update
rstMyData.MoveNext

Loop Until rstMyData.EOF

End If

Advertisements

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s