Laufzeitfehler '-2147418113 (8000ffff)' Schwerwiegender Fehler

10/09/2007 - 13:04 von sqall6000 | Report spam
Hallo,

folgende Ausgangssituation:

Server : Windows 2000 Server mit MS SQL Server 2000
Client: Windows XP SP2 mit Access 2000 SP4
MDAC 2.8 mit SP

MDB Datenbank mit verknüpften Tabellen (über ODBC) zum SQL Server

Im Formular sind 2 Kombinationsfelder und ein Button.
Beide Kombinationsfelder haben als Datensatzherkunft eine SQL Abfrage
in der 3 Tabellen miteinander verknüpft sind. Die Abfragen sind fast
identisch nur die Reihenfolge der Spalten sind anders angeordnet. (126
Werte liefert die Abfrage jeweils zurück)

Hinter dem Button liegt folgender Code:

dim cnnAktuDB As New ADODB.Connection

If cnnAktuDB.State <> adStateOpen Then
Set cnnAktuDB = CurrentProject.Connection
End If

Dim sql As String

sql = "UPDATE tbl..."

cnnAktuDB.Execute sql, , adExecuteNoRecords

If cnnAktuDB.State <> adStateClosed Then
cnnAktuDB.Close
Set cnnAktuDB = Nothing
End If


Wenn ich das Formular öffne und in beiden Kombinationsfelder einen
Wert auswàhle und den Button drücke kommt diese Fehlermeldung:

Laufzeitfehler '-2147418113 (8000ffff)'

Schwerwiegender Fehler

Die Tabelle wurde aber trotz dieser Meldung aktualisiert.
Wenn ich das gleiche mache und ca. 30 Sek. vorher warte bevor ich den
Button drücke dann kommt kein Fehler. Wenn ich anstelle einer Update
eine Insert SQL schreibe dann kommt kein Fehler.


Die Tabelle die geupdated wird steht in keinster Verbindung mit den
Tabellen hinter den Kombinationsfeldern.

Brauche dringend Rat.

Danke im vorraus.
 

Lesen sie die antworten

#1 Stefan Hoffmann
10/09/2007 - 13:32 | Warnen spam
hi,

schrieb:
Set cnnAktuDB = CurrentProject.Connection
Dim sql As String
sql = "UPDATE tbl..."
cnnAktuDB.Execute sql, , adExecuteNoRecords
Brauche dringend Rat.


Da CurrentProject.Connection auf deine MDB verweist, nimm einfach mal DAO:

On Local Error GoTo LocalError

Dim db As DAO.Database

Set db = CurrentDb

db.Execute "yourUpdateSql", dbFailOnError
MsgBox "Records affected:" & db.RecordsAffected

Exit Sub|Function

LocalError:
MsgBox Err.Number & vbCrLf & Err.Description



mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen