Borrar datos con chekbox....ayuda

[Tobo]

Que tal amigos..

Bueno mi problema es el siguiente:
estoy tratando de borrar datos con un chekbox segun lo explicado por urjose en las faq de asp pero no se estan borrando los registros si marco varios, solo se borra de uno a la vez y eso no me sirve. Alguien me puede decir en que estoy fallando? Le estare agradecido.

Aqui recojo el valor del codigo
input type="checkbox" name="IDclas" value="<%=Rs("cod")%

este es el sql, el valor de la variable si pasa.
SQL="DELETE * FROM clasificados WHERE cod IN('"&Request.Form("Idclas")&"')"
set rs=Con.Execute(SQL)

Muchas gracias de antemano

Tobo

[haven]

has probado a poner un response.write SQL para saber que datos te recoje en todo momento?

Un saludo

[Tobo]

Si haven y me esta recogiendo la cadena correctamente.

Gracias por tu interes.

Tobo

[AlZuwaga]

SQL="DELETE * FROM clasificados WHERE cod IN("&Request.Form("Idclas")&")"

no te están sobrando apóstrofes? Probá como puse arriba a ver que onda

[Tobo]

Que tal dazuaga

Si ya lo habia intentado pero me sale este error

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'cod IN()'.

Asi sale la cadena cuando escojo varios item

3270, 3271, 3272, 3273, 3274

Realmente no entiendo que me falta.

Gracias por tu interes

Tobo

[AlZuwaga]

puede que estén jorobando los espacios... probá de quitarlos con un replace


SQL="DELETE * FROM clasificados WHERE cod IN(" & Replace(Request.Form("Idclas"), " ", "") & ")"

[Tobo]

Gracias por yu interes y colaboracion dazuaga

Lo copie y sigue exactamente igual, no borra los registros cuando selecciono varias opciones, solo los borra cuando selecciono una opcion.

Existe otro metodo ya sea con un bucle que me permita hacer esto, asi sea mas complicada, se lo agradecere.

Saludos.


Tobo

[AlZuwaga]

con un bucle sería algo así..

Chek = Split(Request.Form("Idclas"), ", ")

For i = 0 to UBound(Chek)
SQL="DELETE * FROM clasificados WHERE cod = " & Chek(i)
Next



Otra cosa... creo que no hace falta el * en los DELETE =)

[Tobo]

Que tal Dazuaga, gracias por tu colaboracion.

No se si es el codigo o que pero con el bucle sigue igual, supongo que el error no esta ahi sino en el resto del codigo.

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

Chek = Split(Request.Form("Idclas"), ", ")
For i = 0 to UBound(Chek)
SQL="DELETE * FROM clasificados WHERE cod = " & Chek(i)
Next

con.close
set rs = nothing
set con = nothing

Tu ves algo mal?

Gracias de antemano


Tobo

[AlZuwaga]

Claro, tomaste el EJEMPLO sin modificarlo... Te faltó ejecutar la SQL =)

Probá así


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

Chek = Split(Request.Form("Idclas"), ", ")

For i = 0 to UBound(Chek)
SQL="DELETE * FROM clasificados WHERE cod = " & Chek(i)
con.Execute(SQL) 'sin esto, no hace nada de nada!
Next

con.close
set con = nothing

[Tobo]

Disculpa Dazuaga no me di cuenta.

Bueno amigo ahora si funciono pero me toco colocarle las comillas simples
SQL="DELETE * FROM clasificados WHERE cod = '"& Chek(i)&"'"

Te agradesco sobremanera tu colaboracion

Saludos


Tobo