Hur ser den färdiga SQL-frågan ut?
Response.write SQL
Innan execute, så skrivs frågan till brusaren.
mvh,
7 svar · 205 visningar · startad av Gimbo
Hejsan,
så här ser min kod ut:
If Request.Querystring("action") = "spara" AND Session("koll") = Losen Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databasen.mdb")
SQL = "INSERT INTO filmtips ([Filmnamn],[Text],[Bild],[Datum]) VALUES('" & Request.Form("Filmnamn") & "','" & Request.Form("Text") & "','" & Request.Form("Bild") & "',#" & Now & "#)"
Conn.Execute(SQL)
Response.Redirect "laggtill.asp?action=ja"
End If
och jag får felmeddelandet:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression ''Styrka kan finnas i de minsta sakerna... .
/laggtill.asp, line 151
Detta sker när jag fylle ri ett formulär och ska skriva till databasen
Hur ser den färdiga SQL-frågan ut?
Response.write SQL
Innan execute, så skrivs frågan till brusaren.
mvh,
Jag förstår inte riktigt vad du menar med den färdiga SQL-frågan?
@nders menar den sträng som du bygger ihop i variabeln SQL.
If Request.Querystring("action") = "spara" AND Session("koll") = Losen Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databasen.mdb")
SQL = "INSERT INTO filmtips ([Filmnamn],[Text],[Bild],[Datum]) VALUES('" & Request.Form("Filmnamn") & "','" & Request.Form("Text") & "','" & Request.Form("Bild") & "',#" & Now & "#)"[b]
Response.write "Sql:" & SQL[/b]
'Conn.Execute(SQL)
Response.Redirect "laggtill.asp?action=ja"
End If
Kan du posta resultatet av den utskriften?
Du bör kommentera bort Response.Redirect "laggtill.asp?action=ja" också
If Request.Querystring("action") = "spara" AND Session("koll") = Losen Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databasen.mdb")
SQL = "INSERT INTO filmtips ([Filmnamn],[Text],[Bild],[Datum]) VALUES('" & Request.Form("Filmnamn") & "','" & Request.Form("Text") & "','" & Request.Form("Bild") & "',#" & Now & "#)"[b]
Response.write "Sql:" & SQL[/b]
'Conn.Execute(SQL)
'Response.Redirect "laggtill.asp?action=ja"
End If
När jag skrev in det du skrev i fetstil i min kod så fick jag det att fungera lokalt på min hårddisk men när jag sedan skickade upp filen till servern så fick jag samma felmeddelande plus en extra text över den, där den skrev ut det jag hade fyllt i formuläret...
Det är den texten vi vill se
Aj så dum jag är, fick det att fungera men tack i a f...