Hjælp med SLET af Recordset!

Den kommer med fejl i linie 28...

Du sletter recorden også prøver du at udskrive den bagefter.... Kan selvfølgelig ikke lade sig gøre. Du skal gemme recorderen i et recordset, også slette fra databasen med din connection i stedet for at bruge recordset til at slette med. Så har du nemlig stadig en kopi af dine data i recordset.

DeleteRsNumber= CLng(Request.QueryString("ID"))

set ADO_Connection = server.Createobject("ADODB.Connection")
ADO_Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/db.mdb")
set rsSletMenu = server.Createobject("ADODB.Recordset")

SQL_STRING = "Select * from menu WHERE id=" & DeleteRsNumber
rsSletMenu.LockType = 3
rsSletMenu.Open SQL_STRING, ADO_Connection
ADO_Connection.execute("delete from menu WHERE id=" & DeleteRsNumber)

'response.write "Siden " & rsSletMenu("name") & " er slettet"
'response.redirect "slet_side.asp"
rsSletMenu.close
set rsSletMenu = Nothing
set ADO_Connection = Nothing

Den melder nu stadigvæk fejl:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Der kan ikke slettes fra de angivne tabeller.
/editor/siden_slettet.asp, line 28

Så prøv uden et "ADODB.Recordset". Det kan være den ikke er glad for at man blander de to connectionstyper sammen. Dette har jeg i hvert fald brugt mange gange:

set ADO_Connection = server.Createobject("ADODB.Connection")
ADO_Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/db.mdb")
set rsSletMenu = ADO_Connection.execute("Select * from menu WHERE id=" & DeleteRsNumber)
ADO_Connection.execute("delete from menu WHERE id=" & DeleteRsNumber)

'response.write "Siden " & rsSletMenu("name") & " er slettet"
'response.redirect "slet_side.asp"
rsSletMenu.close
set rsSletMenu = Nothing
set ADO_Connection = Nothing

Den melder sgu sadig fejl i denne linje her:
ADO_Connection.execute("delete from menu WHERE id=" & DeleteRsNumber)

Den skriver:
Operation is not allowed when the object is open.

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Der kan ikke slettes fra de angivne tabeller.

<%
Dim ADO_Connection
Dim rsSletMenu
Dim SQL_STRING
Dim DeleteRsNumber

DeleteRsNumber = Request.QueryString("id")

set ADO_Connection = server.Createobject("ADODB.Connection")
ADO_Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/db.mdb")
set rsSletMenu = ADO_Connection.execute("Select * from menu WHERE id=" & DeleteRsNumber)
'rsSletmenu.LockType = 3

ADO_Connection.execute("delete from menu WHERE id=" & DeleteRsNumber)

rsSletMenu.close
set rsSletMenu = Nothing
set ADO_Connection = Nothing
%>

Det er somom at der er noget galt i denne linje her:
set rsSletMenu = ADO_Connection.execute("Select * from menu WHERE id=" & DeleteRsNumber)

Har lige prøvet den igen:
<%
Dim ADO_Connection
Dim rsSletMenu
Dim SQL_STRING
Dim DeleteRsNumber

DeleteRsNumber= CLng(Request.QueryString("ID"))
Set ADO_Connection= Server.CreateObject("ADODB.Connection")
ADO_Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/db.mdb")
Set rsSletMenu= Server.CreateObject("ADODB.Recordset")
SQL_STRING= "SELECT menu.* FROM menu WHERE ID=" & DeleteRsNumber

rsSletMenu.LockType = 3
rsSletMenu.Open SQL_STRING, ADO_Connection
rsSletMenu.Delete

rsSletMenu.Close
Set rsSletMenu= Nothing
Set ADO_Connection= Nothing

Response.Redirect "slet_side.asp"
%>

Det fatter jeg ikke... Har for en sikkerhedsskyld lige tjekket med den kode jeg har brugt, og den ser sådan ud:

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open = "En connection-string"
...
...
if mode="delete" and uID <> "" then
  set oRs = oConn.Execute("select name from GREEN_MeterType where id="& uID)
  oConn.Execute("delete from GREEN_MeterType where id="& uID)
  if not oRs.eof then
    response.write oRs("name") & " has been deleted!!"
  end if
end if

og det er i bund og grund magen til din kode. Det eneste jeg så kan komme på er at du ikke har skriverettigheder til databasen, men så burde den komme med en "access denied" fejl.

Nej jeg fatter det heller ikke.... tror det er min localhost der er sat forkert op!

Nu har jeg prøvet at hente en kildekode ned som jeg har redigeret i og se lige her:

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Databasen eller objektet er skrivebeskyttet og kan ikke opdateres.
/editor/menu_page_added.asp, line 21

Hvad nu hvis jeg bruger denne her:
<%
Response.Write "Siden " & ("<b><u>") & Request.Form("name") & ("</u></b>") & " er blevet tilføjet menuen"

Dim Conn
Dim strSQL

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN

strSQL = "Insert into menu (name) values('" & Request.Form("name") & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>

Det er fordi du ikke har skriverettigheder til databasen.

højerklik på mdb filen >> egenskaber >> sikkerhed >> giv "IUSR_maskinnavn" fuld rettighed til filen.

Du kan evt give "Alle" fuld rettighed til filen, men så nedsætter du sikkerheden på filen.

Du burde ikke kunne ændre/indsætte/slette data fra databasen, når det ikke er sat på database filen.

Det hjalp sgu på den... men den er MEGET ustabil!

Fejltype:
Provider (0x80004005)
Uspecificeret fejl
/editor/menu_delete.asp, line 14

Det er en fejl, jeg også oplever, når jeg bruger Access derhjemme. Ofte er det fordi jeg ikke har fået lukket min database forbindelse, men den kan godt forkomme alligevel. Jeg har desværre aldrig fundet ud af hvilken indstilling der skal til, for at det virker optimalt, som det gør på webhotellerne. Og jeg har endnu ikke funden en løsning her på E.

Normalt finder jeg mig i problemet, da jeg ved, det ikke opstår, når jeg først har uploaded filerne til webhotellet.

Tjaa... hvad kan jeg sige....

www.frip.dk/dominoconsult/menu_edit.asp

Det virker sgu!!!