Borrar registros en dos tablas

[dieguicho]

hola, si utilizo

DELETE FROM tabla1, tabla2 where tabla1.id = TABLA2.otroid

me borrara en total dos registros no? uno de la tabla 1 y otro de la tabla 2
o necesito hacer dos selects por separado?

gracias y

[RootK]

No sería mejor relacionar las tablas y dar la opcion de borrar en cascada..??, porque la sintaxis no la veo correcta.

Saludos

[Avelar]

Necesitas hacer los DELETE por separado

[dieguicho]

aaahja... yo haog los recordsets con el dreamweaver.
puedo reutilizar un recordset o tengo que abrir uno nuevo
para borrar registros de varias tablas?

Código:

set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_pruebita_STRING
rs1.Source = "delete from tabla1 where id = 4"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 3
rs1.Open()
rs1_numRows = 0

[Avelar]

De forma normal puedes reutilizarlo, de hecho en vez del recordset se usa el command, pero con el DreamWeaver no estoy seguro de que te permita usar el mismo objeto.

[dieguicho]

podrias darme un ejemplo de como harias tu con command para borrar registros de dos tablas.
y cual es la diferencia entre command y recordset?

[Avelar]

El Recordset se utiliza para almacenar en memoria los registros devueltos por una consulta que (obvio) regresa registros, es decir las SELECT.

El Command se utiliza para las consultas de acción: INSERT, DELETE, UPDATE.

Aquí está un ejemplo del empleo del Command:

Código:

<%
  
  Dim cSQL         'Cadena para consulta SQL
  Dim AdoCommand   'Objeto Command

  'Crear objeto. 
  Set AdoCommand = Server.CreateObject("ADODB.Command")
  
  cSQL = "DELETE FROM Tabla1 WHERE Id = 4 "
  
  'Insertar el registro.
  With AdoCommand
    .ActiveConnection = MM_pruebita_STRING 'Indicar la conección activa para el objeto ADODB.Command.
    .CommandTimeout = 600
    .CommandText = cSQL
    .Execute 'Aquí se borra el o los registros de Tabla1
  End With

  cSQL = "DELETE FROM Tabla2 WHERE OtroId = 4 "
  
  'Aquí se borra el o los registros de Tabla2
  AdoCommand.Execute
  
  'Descargar de memoria el objeto Command.
  Set AdoCommand = Nothing
%>