Slette x antal poster

delete top 50 * from Table order by id desc

Ups, sådan her skal det være:
delete top 50 * from Table order by id
Hvis du sætter desc på, sletter den de nyeste!

Skal den stå i Sql\'n?

Det er en sql query ja.
Du skal eksekvere den via din connection, som:
conn.execute(\"delete top 50 * from Table order by id\")

kan man det... det er da en syntaks fejl

jeg vil gøre det på den her måde

antal = request.form(\"antal\")
id = conn.execute(\"SELECT top 1 * from links order by id DESC\")(\"id\")

do until antal = 0

conn.execute(\"delete * from links where (id = id)\")

id = id + 1
antal = antal -1

loop

Øhh... roder sgu rundt i det nu - kunne jeg få dig til at taste et eksempel sammen?

Du har ret, den nægter at lave en top på delete.

Hmm... det spiller ikke helt - kan I gennemskue hvor fejlen er (\"Antal\" har jeg kaldt \"Linkcount\"):

<%
Linkcount = request.form(\"Linkcount\")

Set RS = server.createobject (\"ADODB.recordset\")
SQL = \"SELECT * FROM Links\"
RS.open SQL, ConnString, adOpenStatic, adLockOptimistic

id = RS.execute(\"SELECT top 1 * from Links order by id DESC\")(\"id\")
do until Linkcount = 0
RS.execute(\"delete * from links where (id = id)\")
id = id + 1
Linkcount = Linkcount -1
loop

RS.close
RS = null

%>

okay.. lad os se...

side1.htm

-------------------
<form method=\"POST\" action=\"slet.asp\" name=\"slet\">
  <p>Slet antal link</p>
  <p><input type=\"text\" name=\"antal\" size=\"20\"></p>
  <p><input type=\"submit\" value=\"Submit\" name=\"B1\"><input type=\"reset\" value=\"Reset\" name=\"B2\"></p>
</form>

slet.asp

------------------
response.buffer = true

session.LCID = 1030

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

set id = conn.execute(\"SELECT top 1 * from links order by id DESC\")(\"id\")
set antal = request.form(\"antal\")

do until antal = 0
conn.execute(\"delete * from links where (id = id)\")
id = id + 1
antal = antal -1
loop

set id = nothing
conn.close
set conn = nothing

hm... lad os prøve med
set rs = conn.execute(\"SELECT top 1 * from links order by id DESC\")
id = rs(\"id\")

så skal set id = nothing være set rs = nothing

btw, du behøver ikke at lave et recordset for at slette :)

Har prøvet med din, men den sletter ikke:

<%
antal = request.form(\"Linkcount\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open ConnString

set id = conn.execute(\"SELECT top 1 * from links order by id DESC\")(\"id\")

do until antal = 0
conn.execute(\"delete * from links where (id = id)\")
id = id + 1
antal = antal -1
loop

set id = nothing
conn.close
set conn = nothing

%>

prøv lige at ændre
set id = conn.execute(\"SELECT top 1 * from links order by id DESC\")(\"id\")
til
set rs = conn.execute(\"SELECT top 1 * from links order by id DESC\")
id = rs(\"id\")

og
set id = nothing
til
set rs = nothing

Det er det samme - der bliver ikke slettet!

allright... så må vi jo lave en fejlsøgning

slet.asp

antal = request.form(\"Linkcount\")

response.write \"VI skal slette \"& antal &\" links<br>\"

do until antal = 0
response.write  antal &\"<br>\"
response.write  id &\"<br>\"
response.write \"conn.execute(\'delete * from links where (id = \"& id &\")<br>\"
id = id +1
antal = antal -1
loop

Der er et eller andet helt galt - har slettet alt i links! Thank god for backups! Hmm... Tror jeg holder for i dag inden det hele går i smadder!

Her er et eksempel der virker

Delete from tabel where id in (Select top 50 id from tabel)

Så skifter du bare tallet til en variabel

-Per

lidt mere detaljeret :)

antal = request.form(\"Linkcount\")

response.write \"VI skal slette \"& antal &\" links<br>\"

do until antal = 0
response.write  \"antal tilbage: \"& antal &\"<br>\"
response.write  \"link id: \"& id &\"<br>\"
response.write \"conn.execute(\'delete * from links where (id = \"& id &\")<br>\"
id = id +1
antal = antal -1
loop

Glemte lige

Delete from tabel where id in (Select top 50 id from tabel order by id)

Hvis de ikke er lagt ind i en autoserie

-Per

hmmm... man tester da aldrig på sin originale database...

jaja, jeg prøvede... men jeg er altså ikke ligefrem ekspert til asp... endnu :D

men min funktion burde da virke, eller hvad siger du perla ??

perla >> Er det igen en del af sql\'n? Jeg ville blive superglad hvis du gad at flette det ind i resten af koden ovenfor?

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

Antal = request.form(\"antal\")
strSQL = \"Delete from tabel where id in (Select top \" & Antal & \" id from tabel order by id\"
set RS = conn.execute( strSQL )

-Per

Damn sætternisse

strSQL = \"Delete from tabel where id in (Select top \" & Antal & \" id from tabel order by id)\"

-Per

Perla >> Den er ikke helt tilfreds :

[Microsoft][ODBC Microsoft Access Driver] Syntax error. in query expression \'id in (Select top id from Links order by id)\'.

/test/database_delete.asp, line 16

Samlet kode:

<%
Antal = request.form(\"Linkcount\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open ConnString

strSQL = \"Delete from Links where id in (Select top \" & Antal & \" id from Links order by id)\"
set RS = Conn.execute( strSQL )


set rs = nothing
conn.close
set conn = nothing


%>

Det er fordi du ikke har fåett indsat hvor mange der skal slettes.

mellem \"top\" og id, har jeg indsat variablen Antal, men du får ikke sat den ind i Antal.

Prøv at sætte Antal = \"10\" i linien inden så vil det virke.

-Per

-Per

Ha - nej det var mig der havde lavet en dum fejl i min form på siden der kaldte scriptet!

Det virker nu! Thanx!

Selv tak, glad for kunne hjælpe :-)