Du solltest schaun, ob der sogenannte IUSER Schreibrechte hat f�r die
Datenbank. und f�r des Datum gibt es sofern Du VBScript verwendest eine
Funktion die datevalue hei�t, welche des ins passende Format von Access
konvertiert.


mfg
G�nter Samwald

-----Urspr�ngliche Nachricht-----
Von: Roman Pittroff [mailto:[EMAIL PROTECTED]]
Gesendet: Samstag, 20. Oktober 2001 09:20
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] RE: Insert Problem


Vesuche mal die datums mit # datum #

Gruss

Roman Pittroff
Consulting
Bangkok, Thailand

-----Original Message-----
From: Roland Stirnimann [mailto:[EMAIL PROTECTED]]
Sent: Saturday, October 20, 2001 2:14 PM
To: ASP Diskussionsliste fuer Anfaenger
Subject: [aspdebeginners] Insert Problem


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,endze
it,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
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ |
[aspdebeginners] als [EMAIL PROTECTED] subscribed |
http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie
knnen sich unter folgender URL an- und abmelden: |
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

Antwort per Email an