nicht angemeldet
Hi, ich habe folgendes Problem.
Ich muss in eine Datenbank über ASP Werte eingeben können. Nun hab ich aber das Problem, dass die ID (Primärschlüssel) bei der Tabelle ein Autowert ist.
Demnach kann ich die ID nicht über ein HTML-Formular wie die anderen Werte eingeben. Nach einigem hin und her kam nun folgende Fehlermeldung:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E2F)
[Microsoft][ODBC Microsoft Access Driver] Null-Wert in Index oder Primärschlüssel nicht möglich.
/test-bine/Auftrag31.asp, line 29
line 29:
objRs.Update
Ich habe leider absolut keine Idee wie ich hier weiter komme.
Habe auch schon im Archiv und auf anderen Pages gesucht, aber nichts gefunden. Wär nett, wenn mir jemand helfen kann.
Hier nochmal der komplette Code:
<html>
<head>
<title>neuen Auftrag anlegen</title>
</head>
<body>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
mKunID = Request.Form("mKunID")
mAuftragsdatum = Request.Form("Auftragsdatum")
mLieferdatum = Request.Form("Lieferdatum")
mUstSatz = Request.Form("UstSatz")
EnableSessionState = false
SET objConn = Server.CreateObject("ADODB.Connection")
SET objRs = Server.CreateObject("ADODB.Recordset")
objConn.open "FILEDSN=Interaktiv.dsn"
If Error=0 Then
objRs.open "TabAuftraege", objConn, adOpenKeyset, adLockOptimistic
objRs.AddNew
objRs.Fields("KunID")=Request.Form("mKunID")
objRs.Fields("AufAuftragsdatum")=Request.Form("Auftragsdatum")
objRs.Fields("AufLieferdatum")=Request.Form("Lieferdatum")
objRs.Fields("AufUstSatz")=Request.Form("UstSatz")
objRs.Update
Response.Write("Folgender Datensatz wurde gespeichert: <br>")
objRs.MoveLast
Response.Write("<table><tr><td> Auftrags-ID</td>" & objRs.Fields("AufID").Value & "</td> </tr>")
Response.Write("<tr><td> Kunden-ID</td>" & objRs.Fields("AufKunID").Value & "</td> </tr>")
Response.Write("<tr><td> Auftragsdatum</td>" & objRs.Fields("AufAuftragsdatum").Value & "</td> </tr>")
Response.Write("<tr><td> Lieferdatum</td>" & objRs.Fields("AufLieferdatum").Value & "</td> </tr>")
Response.Write("<tr><td> Umsatzsteuer</td>" & objRs.Fields("AufUstSatz").Value & "</td> </tr></table>")
ELSE
Response.Write "Fehler beim öffnen der Datenbank"
END IF
%>
</body>
</html>