Eliminar registros de forma masiva en varias tablas

[Prefontaine]

Buenas,
Tengo el siguiente codigo pero no se como hacer que en una misma select me elimine dos tablas los registros relacionados en común, la cuestión es que en una tabla me elimiina, pero en la otra no.

borrar = CINT(Request.QueryString("codigo"))

Set rsDeleteEntry = Server.CreateObject("ADODB.Recordset")

strSQL = "Delete * FROM atletas_ins WHERE codigo="&borrar
strSQL = "Delete * FROM equipos WHERE ID=" & borrar

rsDeleteEntry.LockType = 3

rsDeleteEntry.Open strSQL, Conn

rsDeleteEntry.Delete

Response.Redirect "ok.asp"

[Muzztein]

delete * no es una instruccion SQL estandar valida.

[Prefontaine]

He provado con el select y me hace lo mismo.

[Muzztein]

te recomendo que te leas un manual de sql.

aqui hay uno bueno.

www.w3schools.com/sql

[Prefontaine]

Lo leí y el DELETE sale de la misma manera que yo lo utilizo.

[Prefontaine]

Que puedo hacer? alguien me ayuda?

[Muzztein]

mnmnmnmnmnmnmnmnmnmnm y cual es el error qyue tye da????????????

tienes problemas con las constrains???
o algo parecido???

no puedes borrar en cascada???

aun no te comprendo

[Prefontaine]

Pués borrar borra, pero el campo que tienen en común solo borra uno.
Por ejemplo quiero que borre todos los que contengan el numero 666 y hay 10 registros como ese, pués solo borra uno en vez de hacerlo en los 10.

Gracias.

[Neuron_376]

El metodo que usas me parece muy mal.. pero pues ya lo resolviste, entonces hazlo asi...

strSQL = "Delete * FROM atletas_ins WHERE codigo like %"&borrar & "%"
strSQL = "Delete * FROM equipos WHERE ID like %" & borrar & "%"

[Prefontaine]

pués me da el mismo error, no se que diferencia hay.

[Neuron_376]

No me referia a como arreglarlo, me refiero a la parte de masivo...

WHERE codigo like %"&borrar & "%"
WHERE ID like %" & borrar & "%"

De esa forma borraras cualquier cadena que contenga lo que tu necesitas.

Suerte!!

[robertonavarro]

Ya no entendí cual es el problema, que te borra los que quieres borrar de la primera tabla pero no de la segunda, o te borra solo el primer registro que cumple con la condición del where ¿o las dos cosas?

Algo mas, estás tomando en cuanta que la instrucción

strSQL = "Delete * FROM atletas_ins WHERE codigo="&borrar

se anula cuando es sobreescrita por

strSQL = "Delete * FROM equipos WHERE ID=" & borrar

[oooriii]

Claro te borra solo lo de la segunda comanda SQL!

borrar = CINT(Request.QueryString("codigo"))

Set rsDeleteEntry = Server.CreateObject("ADODB.Recordset")

strSQL = "Delete * FROM atletas_ins WHERE codigo="&borrar
strSQL = "Delete * FROM equipos WHERE ID=" & borrar

rsDeleteEntry.LockType = 3

rsDeleteEntry.Open strSQL, Conn

rsDeleteEntry.Delete

Mira yo lo haria asi:
Creo primero un objeto Connection llamado conn y luego
strSQL = "Select * FROM atletas_ins WHERE codigo="&Request.QueryString("codigo")
strSQL2 = "Select * FROM equipos WHERE codigo="&Request.QueryString("codigo")

Set rsDeleteEntry= Server.CreateObject("ADODB.Recordset")
rsDeleteEntry.Open strSQL, conn, adOpenKeyset, adLockOptimistic, adCmdText
Set rsDeleteEntry2= Server.CreateObject("ADODB.Recordset")
rsDeleteEntry2.Open strSQL2, conn, adOpenKeyset, adLockOptimistic, adCmdText
While not rsDeleteEntry.Eof
rsDeleteEntry.Delete
rsDeleteEntry.MoveNext
Wend
rsDeleteEntry.Close
While not rsDeleteEntry2.Eof
rsDeleteEntry2.Delete
rsDeleteEntry2.MoveNext
Wend
rsDeleteEntry2.Close

No hace falta pasar el Request.QueryString("codigo") a int, puesto k sql es un string
Hay k recorrer todo el recordset puesto que puede contener mas de una fila (todos los que tengan codigo = Request.QueryString("codigo"))


Espero haberte podido ayudar un poco

Saludos

[Prefontaine]

Pués nada de nada sigue igual, es más nisiquiera borra, el codigo es el siguiente:

<%
Dim strSQL2
Dim rsDeleteEntry2

strSQL = "Select * FROM atletas_ins WHERE codigo="&Request.QueryString("codigo")
strSQL2 = "Select * FROM equipos WHERE ID="&Request.QueryString("codigo")

Set rsDeleteEntry= Server.CreateObject("ADODB.Recordset")
rsDeleteEntry.Open strSQL, conn, adOpenKeyset, adLockOptimistic, adCmdText

Set rsDeleteEntry2= Server.CreateObject("ADODB.Recordset")
rsDeleteEntry2.Open strSQL2, conn, adOpenKeyset, adLockOptimistic, adCmdText
While not rsDeleteEntry.Eof
rsDeleteEntry.Delete
rsDeleteEntry.MoveNext
Wend
rsDeleteEntry.Close
While not rsDeleteEntry2.Eof
rsDeleteEntry2.Delete
rsDeleteEntry2.MoveNext
Wend
rsDeleteEntry2.Close
Response.Redirect "crear_equipo.asp?noregistrado=Su equipo no a sido registrado, cree uno de nuevo."

rsDeleteEntry.Close
Set rsDeleteEntry = Nothing
Set Conn = Nothing

%>

[trasgukabi]

has probado esto? así tiene que funcionar por pelotas.

Código:

strSQL = "delete FROM atletas_ins WHERE codigo="&Request.QueryString("codigo")
strSQL2 = "delete FROM equipos WHERE ID="&Request.QueryString("codigo")
conn.execute strSQL
conn.execute strSQL2

y si no te funciona, CODIGO e ID son los dos numéricos, no? no tendrás alguno de ellos como texto.
OOORII, para qué gastar tiempo de servidor si lo puede hacer todo el motor SQL?

[Prefontaine]

Los dos campos son numericos y le coloco el delete en vez del select y me sale lo mismo.

[trasgukabi]

que no, cojones!! que no es eso lo único que tienes que hacer!!
pruebalo tal y como te lo he puesto y nos comentas.

[Prefontaine]

Muchisimas gracías, ahora sí!!! resulta que con 4 lineas bastava, joder... de verdad muchas gracias, ole, ole y oleeeeee!!!