Laufzeitfehler '-2147217913 (80040e07)'

bulltownboy · 23. Februar 2009, 12:12

Laufzeitfehler '-2147217913 (80040e07)'
Datentypen in Kriteirenausdruck unverträglich.

cmd.CommandText = "update Zeugnis SET Deutsch = '" & Me.txtDeutsch.Value & "' WHERE SchuelerID='" & Wert & "';"
cmd.Execute anzahl

Kann mir jemand sagen, warum der Fehler kommt ?

Danke

Gruß Basti

Manü · 23. Februar 2009, 13:33

ahoi,

versuch es mal damit vielleicht geht das dann

evtl. muss das Me auch gar nich sein

bulltownboy · 23. Februar 2009, 14:15

Im Debug-Modus wird

cmd.Execute anzahl

angezeigt. Egal ob mit oder ohne "ME" funktioniert es nicht :huh:

Manü · 23. Februar 2009, 16:04

wie deklarierst du anzahl denn und was gibst du in anzahl ?

bulltownboy · 23. Februar 2009, 16:45

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim anzahl As Integer
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "Data Source=C:\zeugnis.mdb"
rs.ActiveConnection = cn
cmd.ActiveConnection = cn
rs.Open "SELECT SchuelerID FROM Schueler WHERE name like '" & Me.txtName.Value & "';", cn, , adLockOptimistic
If (rs.EOF = falsch) Then
Wert = rs("SchuelerID")
Wert = rs("SchuelerID")
Debug.Print (Wert)
cmd.CommandText = "update Zeugnis SET Deutsch = '" & txtDeutsch.Text & "' WHERE SchuelerID='" & Wert & "';"
cmd.Execute anzahl
End If

Manü · 24. Februar 2009, 08:30

k dann muss ich jetzt auch erstmal n bisschen rudern

versuch mal bitte mit

anzahl = cmd.ExecuteNonQuery()

is jetzt erstmal n schuss ins blaue aber ich schau noch ob ich noch was finde