Sitter här och har lite problem med att ta bort poster.
Har använt mej av :
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=c:\alternativ\databaser\allt.mdb"
Set rs = Connection.Execute("SELECT TOP 5 ID, TITEL FROM FILMER ORDER BY DATUM ASC")
%>
<%
Do Until rs.EOF
Response.Write"<a href=../filmer.asp?ID="& rs("ID") & ">"& rs("TITEL") & "</a> <a href=../delete/deleting.asp?DELETE&ID="& rs("ID") &"> Ta bort</a><BR>"
rs.MoveNext
loop
rs.Close
Set rs = Nothing
Connection.Close
Set Connection = Nothing
%>
Med hjälp av andra länken går jag till deleting.asp
som är tänkt att med hjälp av ID nr ta bort den posten, med rätt ID..
Har använt mig av:
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=c:\alternativ\databaser\allt.mdb"
connection.execute sql,,128
If Request.QueryString = "DELETE" Then
SQL = "DELETE FROM FILMER Where ID=" & Request.QueryString("ID")
Connection.close
End If
%>
Men jag får ett fel:
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)
Det angavs inte någon kommandotext för kommandoobjektet.
/delete/deleting.asp, line 10
Någon som har en suck om vad som är fel?
Är mycket tacksam för hjälp.
/Dwarfen
connection.execute sql,,128
If Request.QueryString = "DELETE" Then
SQL = "DELETE FROM FILMER Where ID=" & Request.QueryString("ID")
Connection.close
End If
bör inte connection.execute .... ligga inne i ifsatsen efter att du sätter variabeln sql .... som det är nu så innehåller variabeln sql ingenting precis som felmeddelandet talar om.
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=c:\alternativ\databaser\allt.mdb"
If Request.QueryString = "DELETE" Then
SQL = "DELETE FROM FILMER Where ID=" & Request.QueryString("ID")
connection.execute SQL,,128
Connection.close
End If
%>
ASP-kod tolkas uppifrån och ner. I din kod försökte du exekvera din DELETE-sats innan du hade skapat den. Variabeln SQL var alltså tom.
men...snyft...det funkar inte fortfarnade, min Querystring är ju ID...
så det borde ju bli:
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=c:\alternativ\databaser\allt.mdb"
If Request.QueryString("ID") = "DELETE" Then
SQL = "DELETE FROM FILMER Where ID=" & Request.QueryString("ID")
Koden:
Delete.asp:
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=c:\alternativ\databaser\allt.mdb"
Set rs = Connection.Execute("SELECT *, TITEL FROM FILMER ORDER BY DATUM ASC")
%>
<%
Do Until rs.EOF
Response.Write"<a href=../filmer.asp?ID="& rs("ID") & ">"& rs("TITEL") & "</a> <a href=../delete/deleting.asp?DELETE&ID="& rs("ID") &"> Ta bort</a><BR>"
rs.MoveNext
loop
rs.Close
Set rs = Nothing
Connection.Close
Set Connection = Nothing
%>