arkivering och borttagning av poster

Tjena! Jag tänkte göra en arkiveringsprocedur men har kört fast. Frågar därför er om ni har någon lösning och om min tanke är rätt angående proceduren.

sql = "select count(*) from tabell"
Set rs = con.Execute(sql)

If Int(rs(0) - 100) > 0 Then
	sql = "insert into arkiv select * from tabell order by id desc limit "&rs(0) - 100
	Set rs = con.execute(sql)
[b]line 27[/b]	While Not rs.eof
		sql = "delete from tabell where id = "&rs(0)
		con.execute(sql)
		rs.MoveNext
	WEnd
End If

Felmeddelande

ADODB.Recordset fel '800a0e78' 
Åtgärden är inte tillåten när objektet är stängt. 
/pagin/index.asp, line 27

Det här borde nog gå bättre:

sql = "select count(*) from tabell"
Set rs = con.Execute(sql)

If Int(rs(0) - 100) > 0 Then
	sql = "insert into arkiv select * from tabell order by id desc limit "&rs(0) - 100
	con.execute(sql)

	Set rs2 = con.execute("select * from tabell order by id desc limit "&rs(0) - 100)
	While Not rs2.eof
		sql = "delete from tabell where id = "&rs2("id")
		con.execute(sql)
		rs.MoveNext
	WEnd
End If

Testas på egen risk! ;)

Jag måsta alltså använda två recordset för att göra detta?

Eftersom jag inte riktigt fattar vad du ska göra vet jag inte, men när jag kollade på din kod såg det ut som om det var sådär du ville göra det. :)

Hoppsan! Måste varit trött när jag skrev denna fråga.

Vad jag vill göra är att plocka ut alla poster efter de första hundra, placera dem i en annan tabell och sedan ta bort posterna från ursprungstabellen.

Funkar koden jag skrev innan eller är det något fel i den? (Skulle vara bra att veta om man ska skriva om den ;))

Jo, visst fungerar den. Jag tänkte bara om det gick att göra det utan två recordset eftersom du i insert into redan skrivit select * from

LR^evil.sid skrev:

Jo, visst fungerar den. Jag tänkte bara om det gick att göra det utan två recordset eftersom du i insert into redan skrivit select * from

Jo, men det är en "version" av INSERT INTO, inte en SELECT-sats. :)

Ok, tack för hjälpen.