Avatar billede Slettet bruger
08. november 2010 - 10:20 Der er 3 kommentarer og
1 løsning

Slet fra database

Hej.

Jeg har følgende kode, som kommer med følgende fejl:

deleteComment.asp file
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression 'ID='13216'.

/u/DeleteComment.asp, line 14


Har gedet lidt rundt i "nyID" og "ID", så det kan være her fejlen ligger.

sletcomment.asp:

<%
Dim Conn, Rs, sql
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/mydb.mdb")
sql= "SELECT * FROM seneste;"
Rs.Open sql, Conn
Response.Write "<FORM name='Delete' method='post' action='DeleteComment.asp'>"
Response.Write "<table border=1 cellspacing=0>"
Response.Write "<tr>"&"<td colspan='3' align='center'>"&"Select a comment to delete and click delete"&"</td>"&"</tr>"
Response.Write "<tr>"&"<th align='center' colspan='2'>"&"Name"&"</th>"&"<th align='center'>"&"Comment"&"</th>"&"</tr>"
Do While not Rs.EOF
Response.Write ("<tr>")
Response.Write ("<td>"&"<input type='radio' name='nyID' value="&Rs("id")&">"&"</td>")
Response.Write ("<td>"&Rs("beskrivelse")&"</td>")
Response.Write ("<td>"&Rs("powerpoint")&"</td>")
Response.Write ("</tr>")
Rs.MoveNext
Loop
Response.Write("<tr>"&"<td colspan='3' align='center'>"&"<input type ='submit' name='submit' value='Delete' onClick='return validate();'>"&"</td>"&"</tr>")
Response.Write "</table>"
Response.Write "</form>"
Rs.Close
Set Rs = Nothing
Set Conn = Nothing
%>


DeleteComment.asp:

<%
Dim nyID
nyID = Request.Form("nyID")
if nyID="" then
  Response.Write "You did not select a name to delete!"
Else
Dim Conn
Dim Rs
Dim sql
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/mydb.mdb")
sql= "Delete * FROM seneste WHERE ID='" & nyID
Rs.Open sql, Conn
Conn.Close
Set Conn = Nothing
Response.Write "Successfully Deleted"
End If
%>

Håber der er nogen der kan hjælpe mig.

Mvh.
Henrik
Avatar billede Slettet bruger
08. november 2010 - 10:23 #1
Den finder jo den rigtige ID i database, men kan bare ikke slette den.
Avatar billede Slettet bruger
08. november 2010 - 10:33 #2
Det er følgende linje det er galt med, så det er nok noget med '" osv. der er sat forkert... :-)

sql= "Delete * FROM seneste WHERE ID='" & nyID
Avatar billede Slettet bruger
08. november 2010 - 10:55 #3
Jeg løste det med følgende:

sql= "Delete * FROM seneste WHERE id=" & request.form("nyID")
Avatar billede keysersoze Guru
08. november 2010 - 10:56 #4
sql= "Delete * FROM seneste WHERE ID = " & nyID
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester