aspSmartUpload og OPDATERING af eksisterende post i DB...
Jeg har lavet denne hersens Upload ting med aspSmartUpload komponenten.Selve Upload-funktionen med GEM i database virker fint.
Men når jeg så vil lave en RETTELSE i en eksisterende post får jeg den ene fejlmeddelelse efter den anden.
Den ka' skisme da ikke passe at man ikke kan det???
Fejlmeddelelsesen lyder som følger:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
Og min kode ser ud som følger:
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
If mySmartUpload.Files.Item(1).FileName <> "" Then
mySmartUpload.Save("../../../db/Billeder")
End If
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../db/FabK.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
'Tilføjer brugeren til databasen
If mySmartUpload.Files.Item(1).FileName <> "" Then
strSQL = "UPDATE Tab_Nyhed SET Fld_DK-Overskrift='" & mySmartUpload.Form("HeadLineDK") & "', "&_
"Fld_GB-Overskrift='" & mySmartUpload.Form("HeadLineGB") & "', "&_
"Fld_DK-Nyhed='" & mySmartUpload.Form("BroedDK") & "', "&_
"Fld_GB-Nyhed='" & mySmartUpload.Form("BroedGB") & "', "&_
"Fld_Dato='" & mySmartUpload.Form("Dato") & "', "&_
"Fld_Artist='" & mySmartUpload.Form("Artist") & "', "&_
"Fld_IMG='" & mySmartUpload.Files.Item(1).FileName & "' WHERE ID=" & request.QueryString("NyhedID")
Conn.Execute(strSQL)
Else
Response.Write(mySmartUpload.Form("HeadLineDK") & "<BR><BR>")
Response.Write(mySmartUpload.Form("HeadLineGB") & "<BR><BR>")
Response.Write(mySmartUpload.Form("BroedDK") & "<BR><BR>")
Response.Write(mySmartUpload.Form("BroedGB") & "<BR><BR>")
Response.Write(mySmartUpload.Form("Dato") & "<BR><BR>")
Response.Write(mySmartUpload.Form("Artist") & "<BR><BR>")
Response.Write(request.QueryString("NyhedID") & "<BR><BR>")
strSQL = "update Tab_Nyhed set Fld_DK-Overskrift = 'TEST' where ID = 3"
'strSQL = "UPDATE Tab_Nyhed SET Fld_DK-Overskrift='" & mySmartUpload.Form("HeadLineDK") & "', Fld_GB-Overskrift='" & mySmartUpload.Form("HeadLineGB") & "', Fld_DK-Nyhed='" & mySmartUpload.Form("BroedDK") & "', Fld_GB-Nyhed='" & mySmartUpload.Form("BroedGB") & "', Fld_Dato='" & mySmartUpload.Form("Dato") & "', Fld_Artist='" & mySmartUpload.Form("Artist") & "' WHERE ID='" & request.QueryString("NyhedID") & "'"
Conn.Execute(strSQL)
End If
Hvis jeg f.eks prøver en anden SQL-sætning som SELECT kan jeg sagtens lave udtræk med ovenstående kode(modificeret til SELECT selvfølgelig)
Kan nogen løse dette p.... irriterende UPDATE problem
Venlig Hilsen
Kristian Bjørn
