Slet fra Access 2000 DB

Hvilken fejl får du?

id er sikkert numerisk...

strSQL = "DELETE FROM tbl_kalender WHERE Id = " & booknr
Set rs = Conn.Execute(strSQL)

ellers skal du sørge for at booknr indeholder en numerisk værdi

Når ID er et tal som du skriver (autonummer) så skal der ikke ' omkring tallet i SQL-sætningen:

strSQL = "DELETE FROM tbl_kalender WHERE Id =" & booknr & ";"

Prøv det her:
strSQL = "DELETE * FROM tbl_kalender WHERE Id ='" & booknr & "'"
Set rs = Conn.Execute(strSQL)

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Could not find file '(unknown)'.
/e-test/Booking/delete.asp, line 17


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Q312461)

Page:
GET /e-test/Booking/delete.asp

linje 17:
Conn.Open DSN

eagleeye har ret i det med "tal", den havde jeg lige overset...

kimiwan>> hehe har du læst spørgsmålet? "Id er i tabellen Autonummeret!"

Svar på samme minut og sekund!!!

hvordan ser din connectionstring (DSN) ud??

Nå men "Svar på samme minut og sekund!!!"  var til jacobfedefifi  cool

hehe eagleeye.. gad vide, hvad jeg har gjort for at stå først :o)

'hele delete.asp
<%
bruger = Request.Querystring("id")
booknr = Request.Querystring("bookid")

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

strSQL = "DELETE FROM tbl_kalender WHERE Id =" & booknr & ";"
Set rs = Conn.Execute(strSQL)
response.write "Bruger: " & bruger & "<br>"
response.write "Book Nr.: " & booknr & " er nu slettet!!!"
' Rydder op efter os
Conn.Close
Set Conn = Nothing
%>

hov ja.. jeg kunne heller ikke forstå det med minut ogsekund først,... men så kiggede jeg igen, og så gav det mening (må ha' set fejl anden gang) :o)

Det er fordi jeg kan...

ligger din database kalender.mdb i en undermappe "database" til den folder hvor din asp side er???

SKRIV:
--------
DSN = DSN & "DBQ=" & Server.MapPath ("../data/kalender.mdb")

jacob: er du synsk? kan du se, hvor hans database ligger????

Jep

min DB ligger i mappen data som ligger i roden!
../data/kalender giver denne fejl:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] '(unknown)' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.
/e-test/Booking/delete.asp, line 17

Man skal så vidt jeg ved altid starte med .. hvis man vil ind i en mappe som ikke er den samme som den hvor filen ligger

Hvis du rettet tilbage til /data/kalender.mdb altså som før får du så en fejl?

/ betyder normalt roden
. betyder denne folder
.. betyder en folder tilbage

ja, samme fejl

whoops.. så tog jeg måske fejl til at starte med.. men prøv det her:

set conn = server.createobject("adodb.connection")
DSN = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Server.MapPath ("data/kalender.mdb")
conn.open DSN

måske det hjælper

Error Type:
Microsoft JET Database Engine (0x80004005)
Could not find file 'E:\ASP-proj\Booking\data\kalender.mdb'.
/e-test/Booking/delete.asp, line 16

16:
conn.open DSN

E:????
Ligger det offline eller på din egen server?

Tusind tak for hjælpen.
jeg fortjener dumme dask.
STAVEFEJL, doh hvor dum kan man være?

når jeg nu har lært at stave!
Kan man så lave en slet ja/nej ting, i stedet for at bare lige slette?

du kan lave en form først på siden som spørger om man vil slette.. to sec

eagleeye: se lige http://www.eksperten.dk/spm/198678

Sådan noget i denne stil:

'hele delete.asp
<%
bruger = Request.Querystring("id")
booknr = Request.Querystring("bookid")
mode = Request.Form("mode")

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

if mode = "" then
  strSQL = "SELECT * FROM tbl_kalender WHERE Id =" & booknr & ";"
  Set rs = Conn.Execute(strSQL)
  %><form method="POST" action="delete.asp?id=<%=bruger%>&bookid=<%=booknr%>"><br>
  Slet bog <%=rs("Id")%> + andre felter omkring bogen.<br>
  <input type="hidden" name="mode" value="slet"><br>
  <inpyt type="submit" name="delete" value="delete">
  </form>
  <%
else
  strSQL = "DELETE FROM tbl_kalender WHERE Id =" & booknr & ";"
  Set rs = Conn.Execute(strSQL)
  response.write "Bruger: " & bruger & "<br>"
  response.write "Book Nr.: " & booknr & " er nu slettet!!!"
end if
' Rydder op efter os
Conn.Close
Set Conn = Nothing
%>