25. november 2000 - 18:19
Der er
7 kommentarer og
1 løsning
Placer ordre....
Hej,
Jeg har et lille problem når jeg skal tilføje en linie i en tabel. Jeg skal blot have indsat kundedate fra en form i en tabel som ligger i Access.
Men jeg får denne fejl:
Microsoft JET Database Engine error \'80040e14\'
Syntax error in INSERT INTO statement.
/new2/butik/acceptOrder.asp, line 35
Håber på lidt hjælp...
Henrik
25. november 2000 - 18:24
#2
Dette er den kode som skulle indsætte dataen i tabelen...
<%
navn = Request.Form(\"navn\")
adr = Request.Form(\"adresse\")
postn = Request.Form(\"postnr\")
by = Request.Form(\"byen\")
tele = Request.Form(\"telefon\")
email = Request.Form(\"email\")
fax = Request.Form(\"fax\")
att = Request.Form(\"att\")
indnr = Request.Form(\"indkøbsnr\")
komm = Request.Form(\"KundeKommentar\")
strSQLUniqueValue = \"SELECT uniqueValue FROM TBL_COUNTER\"
Set cn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
cn.Open \"Data Source=\" & Server.Mappath(\"zuonline.mdb\") & \";Provider=Microsoft.Jet.OLEDB.4.0;\"
rs.Open strSQLUniqueValue,cn,,2
thisOrderNumber = rs(0)
rs(0) = thisOrderNumber+1
rs.Update
rs.Close
Set rs = Nothing
strSQLNewOrder = \"INSERT INTO Ordre \" _
&\"(ORDERID,ORDERDATE,navn,\" _
&\"adresse,postnr,by,telefon,email,fax,att,indkøbsnr,kundekomm)\" _
&\"VALUES(\" & thisOrderNumber & \",#\" & Now() & \"#,\'\"_
& navn & \"\',\'\" & adr & \"\',\'\" & postn & \"\',\'\" & by & \"\',\'\"_
& tele & \"\',\'\" & email & \"\',\'\" & fax & \"\',\'\" & att & \"\',\'\"_
& indnr & \"\',\'\" & komm & \"\')\"
cn.Execute strSQLNewOrder
For Each item In Request.Cookies
If Left(item,3) = \"txt\" Then
itemId = Mid(item,4)
quantity = Request.Cookies(item)
strSQLOrderDetails=\"INSERT INTO ordredetalie \" _
&\"(ITEMID,ORDERID,QUANTITY)VALUES(\" _
& itemId & \",\" & thisOrderNumber & \",\" & quantity & \")\"
cn.Execute strSQLOrderDetails
Response.Cookies(item).Expires = Now()-1000
End If
Next
cn.Close
Set cn = Nothing
%>
25. november 2000 - 18:24
#3
Det er temmelig svært at hjælpe når der ikke foreligger noget kode. Et vildt gæt fra min side er, at det er i koden problemet ligger. Et endnu vildere gæt er, at det måske er din INSERT INTO statement som ikke spiller.
But you never know...
/ortrak
25. november 2000 - 21:05
#6
prøv denne:
<%
navn = Request.Form(\"navn\")
adr = Request.Form(\"adresse\")
postn = Request.Form(\"postnr\")
by = Request.Form(\"byen\")
tele = Request.Form(\"telefon\")
email = Request.Form(\"email\")
fax = Request.Form(\"fax\")
att = Request.Form(\"att\")
indnr = Request.Form(\"indkøbsnr\")
komm = Request.Form(\"KundeKommentar\")
strSQLUniqueValue = \"SELECT uniqueValue FROM TBL_COUNTER\"
Set cn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
cn.Open \"Data Source=\" & Server.Mappath(\"zuonline.mdb\") & \";Provider=Microsoft.Jet.OLEDB.4.0;\"
rs.Open strSQLUniqueValue,cn,,2
thisOrderNumber = rs(0)
rs(0) = thisOrderNumber+1
rs.Update
rs.Close
Set rs = Nothing
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set rs2 = Server.CreateObject(\"ADODB.RecordSet\")
strSQLNewOrder = \"Select * From Ordre\"
rs2.Open strSQLNewOrder, cn, adOpenKeyset, adLockOptimistic
rs2.AddNew
rs2(\"ORDERID\") = thisOrderNumber
rs2(\"ORDERDATE\") = Now()
rs2(\"navn\") = navn
rs2(\"adresse\") = adr
rs2(\"postnr\") = now()
rs2(\"by\") = by
rs2(\"telefon\") = tele
rs2(\"email\") = email
rs2(\"fax\") = fax
rs2(\"att\") = att
rs2(\"indkøbsnr\") = indnr
rs2(\"kundekomm\") = komm
rs2.Update
For Each item In Request.Cookies
If Left(item,3) = \"txt\" Then
itemId = Mid(item,4)
quantity = Request.Cookies(item)
Set rs3 = Server.CreateObject(\"ADODB.RecordSet\")
strSQLOrderDetails = \"Select * From ordredetalie\"
rs3.Open strSQLOrderDetails, cn, adOpenKeyset, adLockOptimistic
rs3.AddNew
rs3(\"ITEMID\") = itemId
rs3(\"ORDERDATE\") = thisOrderNumber
rs3(\"QUANTITY\") = quantity
rs3.Update
Response.Cookies(item).Expires = Now()-1000
End If
Next
cn.Close
Set cn = Nothing
%>
Ny bruger
Nybegynder
Opret
Preview
