Radera flera poster ur databas

till är alltså av typen text!?

if request.querystring("id") <> "" then
ids = "'" & replace(replace(request.querystring("id"),"'","''"),",","','") & "'"
connect.execute "delete from kommentar where till in (" & ids & ")"
end if

Den borde inte ta bort något alls då den andra sql-satsen är felaktig.

Vad är det för datatyp på fältet 'till'? Är det texttyp? I så fall, läs det här inlägget.

Mvh,

Japp, "till" är av typen text.

Satte jag ihop det där rätt egentligen? Raderade bara en post igen.

' Radera även kommentarer
'On Error Resume Next
	Set Connect = Server.CreateObject("ADODB.Connection")
	connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("../databas/db1.mdb")
	Set RecSet = Server.CreateObject("ADODB.Recordset")

if request.querystring("id") <> "" then
ids = "'" & replace(replace(request.querystring("id"),"'","''"),",","','") & "'"
connect.execute "delete from kommentar where till in (" & ids & ")"
end if

'	Radera = "SELECT * FROM kommentar WHERE till = '" & Request.QueryString("ID") & "' "
'	Radera = "SELECT * FROM kommentar WHERE till = IN('"& request.QueryString("ID") &"')" 
'	RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic 

'	RecSet.Delete

' Slut på radera kommentarer

@nders:

Har provat med både ' och ". Ska tydligen vara '" & Request.QueryString("ID") & "' om jag fattat det hela rätt?

vad innehåller request.querystring("id")? Kan du göra en response.write på det. Jag förutsatta att det var en kommaseparerad lista av värden.

Response.write gav samma värde som i adressfältet på Explorer.
101, vilket alla poster hade som jag ville radera.

Hmm. Nu funkade det plötsligt?

Tack för hjälpen! :-)

Denna koden fungerar alltså:

' Radera även kommentarer
	Set Connect = Server.CreateObject("ADODB.Connection")
	connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("../databas/db1.mdb")
	Set RecSet = Server.CreateObject("ADODB.Recordset")

if request.querystring("id") <> "" then
ids = "'" & replace(replace(request.querystring("id"),"'","''"),",","','") & "'"
connect.execute "delete from kommentar where till in (" & ids & ")"
end if

' Slut på radera kommentarer