nicht angemeldet
Fehler im Code? SQL Anweisung hängt am "rs.Update"
Hallo Forumer,
bitte schaut Euch einmal den u. a. Code an. Dieses DB Aktualisierung habe ich mir zusammengebaut. Mit weniger rs.Fields Anweisungen geht auch alles gut. Allerdings hängt er sich bei diesem Code beim letzten "rs.Update" (Teil 2) auf. Und zwar mit der Fehlermeldung:
Microsoft OLE DB Provider for ODBC Drivers-Fehler '80040e2f'
[Microsoft][ODBC Microsoft Access Driver]Fehler in Zeile
/infonet_working/Aendern/MA_change_update.asp, Zeile 109
Zeile 109 wäre dann "rs.Update"
Allerdings kann ich den Fehler nicht finden (mit meinen bescheidenen Kenntnissen ;-))
Wer kann mir helfen?
Gruß
Tomcat
Erster Teil
___________________________________________________________
<body>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "LundbeckMitarbeiter","",""
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * FROM Lundbeck Where ID = " & Request.Form("ID")
rs.open sql, conn, 3, 3
rs.Fields("Vorname") = Request.Form("Vorname")
rs.Fields("Nachname") = Request.Form("Nachname")
rs.Fields("Titel") = Request.Form("Titel")
rs.Fields("GebCode") = Request.Form("GebCode")
rs.Fields("Abteilung") = Request.Form("Abteilung")
rs.Fields("Abteilungkurz") = Request.Form("Abteilungkurz")
rs.Fields("Status3") = Request.Form("Status3")
rs.Fields("Vorwahl") = Request.Form("Vorwahl")
rs.Fields("Telefon") = Request.Form("Telefon")
rs.Fields("Durchwahl") = Request.Form("Durchwahl")
rs.Fields("Strasse") = Request.Form("Strasse")
rs.Fields("Plz") = Request.Form("Plz")
rs.Fields("Ort") = Request.Form("Ort")
rs.Fields("eMail") = Request.Form("eMail")
rs.Fields("Kommunikation") = Request.Form("Kommunikation")
rs.Fields("Status") = Request.Form("Status")
rs.Fields("Status2") = Request.Form("Status2")
rs.Fields("photo") = Request.Form("eMail")
rs.Fields("Mobil") = Request.Form("Mobil")
pers = Request.Form("PersNr")
rs.update
conn.close
%>
___________________________________________________________________
Zweiter Teil (selbe Page)
___________________________________________________________________
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "LundbeckMitarbeiter","",""
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * FROM Hardware Where PersNr ='" & pers & "'"
rs.open sql, conn, 3, 3
if rs.BOF AND rs.EOF Then
rs.AddNew
rs.Fields("Vorname") = Request.Form("Vorname")
rs.Fields("Nachname") = Request.Form("Nachname")
rs.Fields("PersNR") = Request.Form("PersNr")
rs.Fields("PC") = Request.Form("PC")
rs.Fields("PC_SN") = Request.Form("PC_SN")
rs.Fields("PCAnlagenNr") = Request.Form("PCAnlagenNr")
rs.Fields("CareNr") = Request.Form("CareNr")
rs.Fields("Bildschirm") = Request.Form("Bildschirm")
rs.Fields("Bildschirm_SN") = Request.Form("Bildschirm_SN")
rs.Fields("BildschirmAnlagenNr") = Request.Form("BildschirmAnlagenNr")
rs.Fields("Drucker") = Request.Form("Drucker")
rs.Fields("Drucker_SN") = Request.Form("Drucker_SN")
rs.Fields("DruckerAnlagenNr") = Request.Form("DruckerAnlagenNr")
rs.Fields("Modem") = Request.Form("Modem")
rs.Fields("Modem_SN") = Request.Form("Modem_SN")
rs.Fields("Maus") = Request.Form("Maus")
rs.Fields("Handy") = Request.Form("Handy")
rs.Fields("HandyModell") = Request.Form("HandyModell")
rs.Fields("Handy_SN") = Request.Form("Handy_SN")
rs.Fields("ISDNAnschluss") = Request.Form("ISDNAnschluss")
rs.Fields("ISDNAnlageJaNein") = Request.Form("ISDNAnlageJaNein")
rs.Fields("ISDNAnlagenTyp") = Request.Form("ISDNAnlagenTyp")
rs.Fields("ISDNAnlagen_SN") = Request.Form("ISDNAnlagen_SN")
rs.Fields("TelefonJaNein") = Request.Form("TelefonJaNein")
rs.Fields("TelefonTyp") = Request.Form("TelefonTyp")
rs.Fields("Dialinaccess") = Request.Form("Dialinaccess")
rs.Fields("ElvisKennung") = Request.Form("ElvisKennung")
rs.Fields("ElvisPasswort") = Request.Form("ElvisPasswort")
rs.Fields("NTKennung") = Request.Form("eMail")
rs.Fields("NTPasswort") = Request.Form("NTPasswort")
rs.Fields("Photo") = Request.Form("Photo")
Else
rs.Fields("Vorname") = Request.Form("Vorname")
rs.Fields("Nachname") = Request.Form("Nachname")
rs.Fields("PC") = Request.Form("PC")
rs.Fields("PC_SN") = Request.Form("PC_SN")
rs.Fields("PCAnlagenNr") = Request.Form("PCAnlagenNr")
rs.Fields("CareNr") = Request.Form("CareNr")
rs.Fields("Bildschirm") = Request.Form("Bildschirm")
rs.Fields("Bildschirm_SN") = Request.Form("Bildschirm_SN")
rs.Fields("BildschirmAnlagenNr") = Request.Form("BildschirmAnlagenNr")
rs.Fields("Drucker") = Request.Form("Drucker")
rs.Fields("Drucker_SN") = Request.Form("Drucker_SN")
rs.Fields("DruckerAnlagenNr") = Request.Form("DruckerAnlagenNr")
rs.Fields("Modem") = Request.Form("Modem")
rs.Fields("Modem_SN") = Request.Form("Modem_SN")
rs.Fields("Maus") = Request.Form("Maus")
rs.Fields("Handy") = Request.Form("Handy")
rs.Fields("HandyModell") = Request.Form("HandyModell")
rs.Fields("Handy_SN") = Request.Form("Handy_SN")
rs.Fields("ISDNAnschluss") = Request.Form("ISDNAnschluss")
rs.Fields("ISDNAnlageJaNein") = Request.Form("ISDNAnlageJaNein")
rs.Fields("ISDNAnlagenTyp") = Request.Form("ISDNAnlagenTyp")
rs.Fields("ISDNAnlagen_SN") = Request.Form("ISDNAnlagen_SN")
rs.Fields("TelefonJaNein") = Request.Form("TelefonJaNein")
rs.Fields("TelefonTyp") = Request.Form("TelefonTyp")
rs.Fields("Dialinaccess") = Request.Form("Dialinaccess")
rs.Fields("ElvisKennung") = Request.Form("ElvisKennung")
rs.Fields("ElvisPasswort") = Request.Form("ElvisPasswort")
rs.Fields("NTKennung") = Request.Form("eMail")
rs.Fields("NTPasswort") = Request.Form("NTPasswort")
rs.Fields("Photo") = Request.Form("Photo")
End if
rs.Update
conn.close
%>
<table border="1" width="100%">
<tr>
<td width="100%">Die Daten wurden geändert.</td>
</tr>
</table>
</body>