värden ifrån checkboxar

2 svar · 174 visningar · startad av adde 2 juli 2001

addeMedlem sedan jan. 2000120 inlägg

Frågan2 juli 2001 11:58#1

Har gjort en sub som ska byta värde i fältet active när man kör den.
värdena hämtas ifrån en sida med checkboxar och retuneras typ 1,2,3.

Men det fungerar inte vad gör jag för fel?

sub delete_from_list

dim SQLStmt, RS, i, active, strDel, arrDel
active = "not"

strDel=Request.form("checkbox")
arrDel = Split(strDel,",")
For i = 0 to UBound(arrDel)
SQLStmt="UPDATE TBL_CDROM (strActive) VALUES ('"& active &"') WHERE id = " & arrDel(i)

dbConnect.Execute(SQLStmt)
Next

End Sub

LarsGMedlem sedan dec. 200012 464 inlägg

2 juli 2001 12:08#2

Du har blandat ihop syntaxen för insert och update.


SQLStmt="UPDATE TBL_CDROM set strActive='"& active &"' WHERE id = " & arrDel

------------------
essentitia preter non sans multiplicandum

LarsGMedlem sedan dec. 200012 464 inlägg

2 juli 2001 12:15#3

Vid närmare eftertanke så är det onödigt att göra många execute-anrop.

strDel=Request.form("checkbox")
SQLstmt = "update TBL_CDROM set strActive = '" & active & "' where id in (" & strDel & ")"

dbConnect.Execute SQLStmt,,128

------------------
essentitia preter non sans multiplicandum