Acc XP Probleme mit MoveNext

19/01/2009 - 09:05 von Andreas Ahrens | Report spam
Hi NG,

im unteren Listing gibt es ein Problem mit rs.MoveNext. Ich kann zwar einmal
weiterschalten, aber ein zweites Mal funktioniert das nicht mehr. In der
Datenbank
befindet sich keine Tabelle.

Private Sub sFnaechster_Click()

conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Dokumente und
Einstellungen\Andy\Eigene Dateien\Datenbank\ADO-Test.mdb"
conn.Open

Set rs = New ADODB.Recordset
rs.Open "SELECT KdID, Anrede, NName, VName FROM Kunden", conn

rs.Move 1

Me.KdID = rs.Fields("KdID")
Me.Anrede = rs.Fields("Anrede")
Me.NName = rs.Fields("NName")
Me.VName = rs.Fields("VName")

rs.Close
conn.Close
End Sub

Wo liegt der Fehler?

Gruss
Andy
 

Lesen sie die antworten

#1 Lutz Uhlmann
19/01/2009 - 09:41 | Warnen spam
im unteren Listing gibt es ein Problem mit rs.MoveNext. Ich kann zwar
einmal
weiterschalten, aber ein zweites Mal funktioniert das nicht mehr. In der
Datenbank
befindet sich keine Tabelle.



Vielleicht weil nur ein (bzw. zwei Datensàtze im Recordset sind ?
Welchen Fehler bekomst du denn???

Du stehst mit Öffnen des Recordsets schon auf dem 1. Datensatz, mit Move 1
gehst du auf den nàchsten Datensatz.
Prüfe vor dem MoveNext auf EOF ...

Probiere mal folgendes (je nachdem was du genau bezwecken willst?

Do Until rs.EOF

// Code

rs.MoveNext
Loop

Ähnliche fragen