Hallo
Ich habe ein Problem bei einem Insert Statement. Folgende Werte sollen in die Access DB geschrieben werden:
Kursbezeichnung: Motorradkurs
Treffpunkt: Rottal Gel�nde
Material: Motorrad und gute Kleider
Bemerkungen: Bei jedem Wetter
Startzeit: 07:10
Endzeit: 17:30
Startdatum: 02.04.2002
Enddatum: 09.04.2002
Kurstyp: 2 (Feld der DB, welches in einer Beziehung steht)
Kursstatus: 2 (Feld der DB, welches in einer Beziehung steht)
Diese Werte sind unten im SQL Statement als Variablen enthalten.
Und so sieht die Fehlermeldung aus:
Microsoft OLE DB Provider for ODBC Drivers- Fehler '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation muss eine aktualisierbare Abfrage verwenden.
/admin/speichern.asp, line 40
Folgender Code verwende ich:
<%
Dim pfad,treiber,bezeichnung,treffpunkt,material,bemerkungen,startzeit,endzeit,startdatum,enddatum,kurstyp,status,sql_eintragen
bezeichnung = Request.Form("bezeichnung")
treffpunkt = Request.Form("treffpunkt")
material = Request.Form("material")
startzeit = Request.Form("startzeit_h") & ":" & Request.Form("startzeit_min")
endzeit = Request.Form("endzeit_h") & ":" & Request.Form("endzeit_min")
startdatum = Request.Form("starttag_mr") & "." & Request.Form("startmonat_mr") & "." & Request.Form("startjahr_mr")
enddatum = Request.Form("endtag_mr") & "." & Request.Form("endmonat_mr") & "." & Request.Form("endjahr_mr")
kurstyp = Request.Form("kurstyp")
status = Request.Form("status")
if Request.Form("bemerkungen")="" then bemerkungen="keine besonderen Bemerkungen" else bemerkungen=Request.Form("bemerkungen") end if
Set dbverbindung = Server.CreateObject("ADODB.Connection")
pfad = Server.MapPath("kurse.mdb")
treiber = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & pfad
dbverbindung.Open(treiber)
sql_eintragen = "INSERT INTO MOTORRADKURSE (MR_ST_ID,MR_STARTDATUM,MR_ENDDATUM,MR_T_ID,MR_STARTMORGEN,MR_ENDEABEND,MR_MATERIAL,MR_TREFFPUNKT,MR_BEZEICHNUNG,MR_BEMERKUNGEN) VALUES (" & STATUS & ",'" & STARTDATUM & "','" & ENDDATUM & "'," & KURSTYP & ",'" & STARTZEIT & "','" & ENDZEIT & "','" & MATERIAL & "','" & TREFFPUNKT & "','" & BEZEICHNUNG & "','" & BEMERKUNGEN & "')"
dbverbindung.Execute(sql_eintragen)
dbverbindung.Close
%>
Ich habe genau das Statement auch mit Access als Abfrage probiert mit den genau gleichen Werten wie oben. Es hat bestens funkioniert.
Was l�uft hier falsch? Vielen Dank f�r Eure Hilfe.
Mit freundlichen Gr�ssen
Roland Stirnimann
