Guten Tag zusammen,
beim Update eines Recordsets tritt o.a. Fehler auf. Kann die Ursache nicht finden.
z.B.
Der Schleifenwert i filtert zw. 20-40 Datensätze aus dem Recordset, wobei etliche Sätze mehrfach upgedatet werden.
Das 2. Update eines Satzes bringt den Fehler.
Weiss nicht, was ich da jetzt falsch mache.
Wäre wirklich dankbar für einen Tipp.
Gruss
beim Update eines Recordsets tritt o.a. Fehler auf. Kann die Ursache nicht finden.
z.B.
Visual Basic-Quellcode
- Guten Tag zusammen,
- beim Update eines Recordsets tritt o.a. Fehler auf. Kann die Ursache nicht finden.
- z.B.
- 'Zuweisen SQL-String
- sql = "SELECT * FROM Tabelle1;"
- 'Öffnen
- Set RS = New ADODB.Recordset
- With RS
- .ActiveConnection = Conn
- .CursorLocation = adUseClient
- .LockType = adLockPessimistic
- .source = sql
- .Open
- End With
- For i = 1 To n 'Durchlaufen einer Schleife
- With RS
- .MoveFirst
- sql = "Feld1='" & i & "'" 'Filter für alle Objekte mit Inhalt i
- .Filter = sql 'Bringt jew. zw. 20-50 Datensätze
- Do While Not .EOF 'Filter durchlaufen
- debug.Print i, .Fields("ID") 'Kontrolle
- 'Jetzt z.B.
- .Fields("Feld6") = .Fields("Feld6") + 1
- If .Fields("Feld8") < 1 Then .Fields("Feld8") = i
- x = i - .Fields("Feld10") - 1
- If x > .Fields("Feld9") Then .Fields("Feld9") = x
- .Fields("Feld13") = i
- On Err Resume Next
- Err.Clear
- .Update 'Hier Fehler beim 2. Update eines Satzes
- if Err then
- Debug.Print Err, Err.Description
- stop
- end if
- .MoveNext
- Loop
- End With
- Next
Der Schleifenwert i filtert zw. 20-40 Datensätze aus dem Recordset, wobei etliche Sätze mehrfach upgedatet werden.
Das 2. Update eines Satzes bringt den Fehler.
Weiss nicht, was ich da jetzt falsch mache.
Wäre wirklich dankbar für einen Tipp.
Gruss