Autor Tema: Borrar Todos Los Registros De Las Tablas (Leído 1221 veces)

UserCode · « **en:** Miércoles 3 de Enero de 2007, 22:21 »

Feliz Año Nuevo para toda la comunidad, que todos sus deseos, proyecciones o planes para este nuevo año se cumplan sin contratiempo alguno.

Disuclpas por este post, ya que si debe de haber temas de esto en el foro, pero no sé, tal vez el buscador no permite string SQLs ya que SQL Delete From es lo que puse en el buscar para ver post con eso, pero el buscador me produce error, incluso buscando luego con SQL borrar base de datos, no sé si le esten haciando algun mantenimiento a la web, aviso:

Citar

Disculpa, ocurrió un error. Si no estás seguro de cómo utilizar alguna característica, o no sabes por qué has obtenido este mensaje de error, prueba a mirar en los archivos de ayuda para más información.

El error devuelto fue:

Disculpa, pero no se ha encontrado coincidencia alguna

Tengo en una ventanita llamada Configuración, relacionada a un programita, una sección que es de hacer respaldo de la BD y borra sus tablas luego de ello. Guardar un backup y comenzar con la BD en blanco, un screenshot a mostrar de esa ventanita:

Pero las SQLs para borrar las tablas me estan dando error y no sé bien a qué es debido ya que al menos viendo esta web, pareciese servir como lo he puesto, pero no es así.

Bueno este es el código, yo lo veo bien, pero funciona mal

Código: Text

 
            If MsgBox(&#34;ESTA A PUNTO DE REALIZAR UNA OPERACION DELICADA PARA EL SISTEMA&#34; & vbCrLf & vbCrLf & _
                      &#34;UNA VEZ QUE BORRE LOS REGISTROS, ESTOS NO PODRAN SER RECUPERADOS&#34; & vbCrLf & _
                      &#34;SE RECOMIENDA HACER UN RESPALDO DE LA BASE DE DATOS ANTES DE PROCEDER CON ESTA OPERACION&#34; & vbCrLf & vbCrLf & _
                      &#34;¿CONFIRMA QUE DESEA BORRAR LOS REGISTROS DE LAS GESTIONES SELECCIONADAS?&#34;, vbQuestion + vbYesNo, &#34;CONFIRMANDO&#34;) = vbYes Then
                'Todos:
                If ChkMasivos.Value = 1 And ChkContratados.Value = 1 And ChkServiciosInt.Value = 1 And _
                   ChkCuentasEspeciales.Value = 1 And ChkSiniestros.Value = 1 And ChkDistMasivaGestOp.Value = 1 And ChkDistMasivaGestCalidad.Value = 1 Then
                   'Masivos, Contratados y Serv.Int:
                    BD.Execute &#34;DELETE TR_SERVICIO.* FROM TR_SERVICIO, TB_CONFIG &#34; & _
                               &#34;WHERE TR_SERVICIO.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_SERVICIO.CodRegion=TB_CONFIG.CodRegion AND TR_SERVICIO.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                    'Dist.Masiva GestOp:
                    BD.Execute &#34;DELETE DISTMASIVA_GESTOP.* FROM DISTMASIVA_GESTOP, TB_CONFIG &#34; & _
                               &#34;AND DISTMASIVA_GESTOP.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND DISTMASIVA_GESTOP.CodRegion=TB_CONFIG.CodRegion AND DISTMASIVA_GESTOP.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE DISTMASIVA_GESTOP_MOTIVO_DEVOLUCION.* FROM DISTMASIVA_GESTOP_MOTIVO_DEVOLUCION, TB_CONFIG &#34; & _
                               &#34;AND DISTMASIVA_GESTOP_MOTIVO_DEVOLUCION.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND DISTMASIVA_GESTOP_MOTIVO_DEVOLUCION.CodRegion=TB_CONFIG.CodRegion AND DISTMASIVA_GESTOP_MOTIVO_DEVOLUCION.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                    'Dist.Masiva GestCalidad:
                    BD.Execute &#34;DELETE DISTMASIVA_GESTCALIDAD.* FROM DISTMASIVA_GESTCALIDAD, TB_CONFIG &#34; & _
                               &#34;AND DISTMASIVA_GESTCALIDAD.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND DISTMASIVA_GESTCALIDAD.CodRegion=B.CodRegion AND DISTMASIVA_GESTCALIDAD.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE DISTMASIVA_GESTCALIDAD_DETALLE.* FROM DISTMASIVA_GESTCALIDAD_DETALLE, TB_CONFIG &#34; & _
                               &#34;AND DISTMASIVA_GESTCALIDAD_DETALLE.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND DISTMASIVA_GESTCALIDAD_DETALLE.CodRegion=TB_CONFIG.CodRegion AND DISTMASIVA_GESTCALIDAD_DETALLE.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                    'Cuent Esp:
                    BD.Execute &#34;DELETE CUENTESP_CTRL_SOBRETIEMPO.* FROM CUENTESP_CTRL_SOBRETIEMPO AS A, TB_CONFIG &#34; & _
                               &#34;AND Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND CUENTESP_CTRL_SOBRETIEMPO.CodRegion=TB_CONFIG.CodRegion AND CUENTESP_CTRL_SOBRETIEMPO.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE CUENTESP_SERVESP.* FROM CUENTESP_SERVESP, TB_CONFIG &#34; & _
                               &#34;AND CUENTESP_SERVESP.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND CUENTESP_SERVESP.CodRegion=TB_CONFIG.CodRegion AND CUENTESP_SERVESP.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                    'Siniestros:
                    BD.Execute &#34;DELETE TR_SINIESTROS_ENVASES.* FROM TR_SINIESTROS_ENVASES, TB_CONFIG &#34; & _
                               &#34;AND TR_SINIESTROS_ENVASES.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_SINIESTROS_ENVASES.CodRegion=TB_CONFIG.CodRegion AND TR_SINIESTROS_ENVASES.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE TR_SINIESTROS_ENVASES_DETALLE.* FROM TR_SINIESTROS_ENVASES_DETALLE, TB_CONFIG &#34; & _
                               &#34;AND TR_SINIESTROS_ENVASES_DETALLE.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_SINIESTROS_ENVASES_DETALLE.CodRegion=TB_CONFIG.CodRegion AND TR_SINIESTROS_ENVASES_DETALLE.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE TR_SINIESTROS_VEHICULOS.* FROM TR_SINIESTROS_VEHICULOS, TB_CONFIG &#34; & _
                               &#34;AND TR_SINIESTROS_VEHICULOS.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_SINIESTROS_VEHICULOS.CodRegion=TB_CONFIG.CodRegion AND TR_SINIESTROS_VEHICULOS.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                    'Gastos SGV:
                    BD.Execute &#34;DELETE TR_GASTOS.* FROM TR_GASTOS, TB_CONFIG &#34; & _
                               &#34;AND TR_GASTOS.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_GASTOS.CodRegion=TB_CONFIG.CodRegion AND TR_GASTOS.TxtSucursal='&#34; & SUCURSAL & &#34;'&#34;
                    'Mant SGV:
                    BD.Execute &#34;DELETE TR_BATERIAS.* FROM TR_BATERIAS, TB_CONFIG AS B &#34; & _
                               &#34;AND TR_BATERIAS.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_BATERIAS.CodRegion=TB_CONFIG.CodRegion AND TR_BATERIAS.TxtSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE TR_CAUCHOS.* FROM TR_CAUCHOS, TB_CONFIG &#34; & _
                               &#34;AND TR_CAUCHOS.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_CAUCHOS.CodRegion=TB_CONFIG.CodRegion AND TR_CAUCHOS.TxtSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE TR_SERV_BIMENSUAL_MANT_PREVENTIVO.* FROM TR_SERV_BIMENSUAL_MANT_PREVENTIVO, TB_CONFIG &#34; & _
                               &#34;AND TR_SERV_BIMENSUAL_MANT_PREVENTIVO.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_SERV_BIMENSUAL_MANT_PREVENTIVO.CodRegion=TB_CONFIG.CodRegion AND TR_SERV_BIMENSUAL_MANT_PREVENTIVO.TxtSucursal='&#34; & SUCURSAL & &#34;'&#34;
                    
                    'Inventario SGV:
                    BD.Execute &#34;DELETE TR_CTRL_VEHIC_KM.* FROM TR_CTRL_VEHIC_KM, TB_CONFIG &#34; & _
                               &#34;AND TR_CTRL_VEHIC_KM.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_CTRL_VEHIC_KM.CodRegion=TB_CONFIG.CodRegion AND TR_CTRL_VEHIC_KM.TxtSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE TR_UNID_PARALIZADAS.* FROM TR_UNID_PARALIZADAS, TB_CONFIG &#34; & _
                               &#34;AND TR_UNID_PARALIZADAS.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_UNID_PARALIZADAS.CodRegion=TB_CONFIG.CodRegion AND TR_UNID_PARALIZADAS.TxtSucursal='&#34; & SUCURSAL & &#34;'&#34;
                End If
                'Individual:
                If ChkMasivos.Value = 1 Then
                    BD.Execute &#34;DELETE TR_SERVICIO.* FROM TR_SERVICIO AS A, TB_CONFIG &#34; & _
                               &#34;WHERE TR_SERVICIO.TipoServicio=1 AND TR_SERVICIO.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_SERVICIO.CodRegion=TB_CONFIG.CodRegion AND TR_SERVICIO.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                End If
                If ChkContratados.Value = 1 Then
                    BD.Execute &#34;DELETE TR_SERVICIO.* FROM TR_SERVICIO, TB_CONFIG &#34; & _
                               &#34;WHERE TR_SERVICIO.TipoServicio=2 AND TR_SERVICIO.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_SERVICIO.CodRegion=TB_CONFIG.CodRegion AND TR_SERVICIO.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                End If
                If ChkServiciosInt.Value = 1 Then
                    BD.Execute &#34;DELETE TR_SERVICIO.* FROM TR_SERVICIO, TB_CONFIG &#34; & _
                               &#34;WHERE TR_SERVICIO.TipoServicio=3 AND TR_SERVICIO.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_SERVICIO.CodRegion=TB_CONFIG.CodRegion AND TR_SERVICIO.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                End If
                If ChkDistMasivaGestOp.Value = 1 Then
                    BD.Execute &#34;DELETE DISTMASIVA_GESTOP.* FROM DISTMASIVA_GESTOP, TB_CONFIG &#34; & _
                               &#34;AND DISTMASIVA_GESTOP.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND DISTMASIVA_GESTOP.CodRegion=TB_CONFIG.CodRegion AND DISTMASIVA_GESTOP.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE DISTMASIVA_GESTOP_MOTIVO_DEVOLUCION.* FROM DISTMASIVA_GESTOP_MOTIVO_DEVOLUCION, TB_CONFIG &#34; & _
                               &#34;AND DISTMASIVA_GESTOP_MOTIVO_DEVOLUCION.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND DISTMASIVA_GESTOP_MOTIVO_DEVOLUCION.CodRegion=TB_CONFIG.CodRegion AND A.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                End If
                If ChkDistMasivaGestCalidad.Value = 1 Then
                    BD.Execute &#34;DELETE DISTMASIVA_GESTCALIDAD.* FROM DISTMASIVA_GESTCALIDAD, TB_CONFIG &#34; & _
                               &#34;AND DISTMASIVA_GESTCALIDAD.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND DISTMASIVA_GESTCALIDAD.CodRegion=TB_CONFIG.CodRegion AND A.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE DISTMASIVA_GESTCALIDAD_DETALLE.* FROM DISTMASIVA_GESTCALIDAD_DETALLE, TB_CONFIG &#34; & _
                               &#34;AND DISTMASIVA_GESTCALIDAD_DETALLE.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND DISTMASIVA_GESTCALIDAD_DETALLE.CodRegion=TB_CONFIG.CodRegion AND DISTMASIVA_GESTCALIDAD_DETALLE.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE DISTMASIVA_GESTCALIDAD_FORMULAS.* FROM DISTMASIVA_GESTCALIDAD_FORMULAS, TB_CONFIG &#34; & _
                               &#34;AND DISTMASIVA_GESTCALIDAD_FORMULAS.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND DISTMASIVA_GESTCALIDAD_FORMULAS.CodRegion=TB_CONFIG.CodRegion AND DISTMASIVA_GESTCALIDAD_FORMULAS.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                End If
                If ChkCuentasEspeciales.Value = 1 Then
                    BD.Execute &#34;DELETE CUENTESP_CTRL_SOBRETIEMPO.* FROM CUENTESP_CTRL_SOBRETIEMPO, TB_CONFIG &#34; & _
                               &#34;AND CUENTESP_CTRL_SOBRETIEMPO.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND CUENTESP_CTRL_SOBRETIEMPO.CodRegion=TB_CONFIG.CodRegion AND CUENTESP_CTRL_SOBRETIEMPO.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE CUENTESP_SERVESP.* FROM CUENTESP_SERVESP, TB_CONFIG &#34; & _
                               &#34;AND CUENTESP_SERVESP.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND CUENTESP_SERVESP.CodRegion=TB_CONFIG.CodRegion AND CUENTESP_SERVESP.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                End If
                If ChkSiniestros.Value = 1 Then
                    BD.Execute &#34;DELETE TR_SINIESTROS_ENVASES.* FROM TR_SINIESTROS_ENVASES, TB_CONFIG &#34; & _
                               &#34;AND TR_SINIESTROS_ENVASES.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_SINIESTROS_ENVASES.CodRegion=TB_CONFIG.CodRegion AND TR_SINIESTROS_ENVASES.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE TR_SINIESTROS_ENVASES_DETALLE.* FROM TR_SINIESTROS_ENVASES_DETALLE, TB_CONFIG &#34; & _
                               &#34;AND TR_SINIESTROS_ENVASES_DETALLE.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_SINIESTROS_ENVASES_DETALLE.CodRegion=TB_CONFIG.CodRegion AND TR_SINIESTROS_ENVASES_DETALLE.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE TR_SINIESTROS_VEHICULOS.* FROM TR_SINIESTROS_VEHICULOS, TB_CONFIG &#34; & _
                               &#34;AND TR_SINIESTROS_VEHICULOS.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_SINIESTROS_VEHICULOS.CodRegion=TB_CONFIG.CodRegion AND TR_SINIESTROS_VEHICULOS.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
                End If
                'SGV:
                If ChkGastosSGV.Value = 1 Then
                    BD.Execute &#34;DELETE TR_GASTOS.* FROM TR_GASTOS, TB_CONFIG &#34; & _
                               &#34;AND TR_GASTOS.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_GASTOS.CodRegion=TB_CONFIG.CodRegion AND TR_GASTOS.TxtSucursal='&#34; & SUCURSAL & &#34;'&#34;
                End If
                If ChkMantSGV.Value = 1 Then
                    BD.Execute &#34;DELETE A.* FROM TR_BATERIAS, TB_CONFIG &#34; & _
                               &#34;AND TR_BATERIAS.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_BATERIAS.CodRegion=TB_CONFIG.CodRegion AND TR_BATERIAS.TxtSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE TR_CAUCHOS.* FROM TR_CAUCHOS, TB_CONFIG &#34; & _
                               &#34;AND TR_CAUCHOS.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_CAUCHOS.CodRegion=TB_CONFIG.CodRegion AND TR_CAUCHOS.TxtSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE TR_SERV_BIMENSUAL_MANT_PREVENTIVO.* FROM TR_SERV_BIMENSUAL_MANT_PREVENTIVO, TB_CONFIG &#34; & _
                               &#34;AND TR_SERV_BIMENSUAL_MANT_PREVENTIVO.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_SERV_BIMENSUAL_MANT_PREVENTIVO.CodRegion=TB_CONFIG.CodRegion AND TR_SERV_BIMENSUAL_MANT_PREVENTIVO.TxtSucursal='&#34; & SUCURSAL & &#34;'&#34;
                End If
                If ChkInventarioSGV.Value = 1 Then
                    BD.Execute &#34;DELETE TR_CTRL_VEHIC_KM.* FROM TR_CTRL_VEHIC_KM, TB_CONFIG &#34; & _
                               &#34;AND TR_CTRL_VEHIC_KM.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_CTRL_VEHIC_KM.CodRegion=TB_CONFIG.CodRegion AND TR_CTRL_VEHIC_KM.TxtSucursal='&#34; & SUCURSAL & &#34;'&#34;
                               
                    BD.Execute &#34;DELETE TR_UNID_PARALIZADAS.* FROM TR_UNID_PARALIZADAS, TB_CONFIG &#34; & _
                               &#34;AND TR_UNID_PARALIZADAS.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                               &#34;AND TR_UNID_PARALIZADAS.CodRegion=TB_CONFIG.CodRegion AND TR_UNID_PARALIZADAS.TxtSucursal='&#34; & SUCURSAL & &#34;'&#34;
                End If
            Else
                Exit Sub
            End If
 
 

Si tenían Alias las tablas FROM Tabla As A, TB_CONFIG As B y todo era WHERE A.Campo = B.Campo AND A.Fecha < variable
Pero aun sabiendo que sería igual o lo mismo, quise ver si tal vez los Alias daban algun problema por lo que los quite, pero claro que con tablas con nombres largos, habian Alias que volvere a poner.

Alguna observación sobre esto a comentar ¿?

ElNapster · « **Respuesta #1 en:** Jueves 4 de Enero de 2007, 00:33 »

Código: Text

 BD.Execute &#34;DELETE TR_SERVICIO.* FROM TR_SERVICIO, TB_CONFIG&#34; & _
                              &#34;WHERE TR_SERVICIO.Fecha&#60;&#34; & DTPFecha.Value & &#34; &#34; & _
                              &#34;AND TR_SERVICIO.CodRegion=TB_CONFIG.CodRegion AND TR_SERVICIO.IDSucursal='&#34; & SUCURSAL & &#34;'&#34;
 

Porque el *
Una pregunta ? se pueden borrar 2 tablas al mismo tiempo ? si es asi ya no te puedo ayudar porque nunca lo he hecho , y sino estas poniendo 2 tablas en tu delete ......

Yo para borrar datos de una tabla hago lo siguiente

Código: Text

 
Delete tabla
Where codigo = 1

UserCode · « **Respuesta #2 en:** Jueves 4 de Enero de 2007, 00:48 »

bueno, se me paso que tambien puse en las SQL lo de DELETE NombreTabla.*
en el caso de cuando tenian Alias las tablas era DELETE A.* From 1raTabla As A, 2daTabla as B

Con solo el * ahí si que la SQL como que no sabe qué registros de cuál de las dos tablas desea uno que borre, pero aun colocando lo anteriormente escrito, no funciona, saca el error de Error de sintaxis en la cláusula From

Pero mi problema es que en el WHERE se valida un dato de la tabla con el campo de otra Tabla, porque si es cierto que si la SQL estuviese compuesta de una sola Tabla, si funcionaría, pero e ahí el problema.

Si para una sola tabla Delete * From Tabla Where Campo = codicion
Cómo sería para una SQL que relaciona más de una tabla ¿?

Ya que ni con Delete A.* From Tabla1 As A, Tabla2 As B Where A.Campo1 = B.Campo1

UserCode · « **Respuesta #3 en:** Jueves 4 de Enero de 2007, 18:30 »

Bueno, probando con la misma SQL y tambien con alguna otra ideao que a uno le viene a la mente, y viene cuando quiere y el día que quiera, pues, en vez de la SQL, pues con código nativo propio del VB colocando las condiciones del WHERE de la SQL en un IF quedando entonces o reemplazando la SQL por esto:

Código: Text

 
If RsServicio.RecordCount &#62; 0 Then
   RsServicio.MoveFirst
   While Not RsServicio.EOF
     If RsServicio(&#34;TipoServicio&#34;) = 1 And RsServicio(&#34;Fecha&#34;) &#60; DTPFecha.Value And _
        RsServicio(&#34;CodRegion&#34;) = RsConfig(&#34;CodRegion&#34;) And RsServicio(&#34;IDSucursal&#34;) = SUCURSAL Then
        RsServicio.Delete
     End If
     RsServicio.MoveNext
   Wend
End If
 
 

En todo caso, si alguien sabe como resolver problemas de SQL como las expuestas, por favor, aviseme

SoloCodigo

Autor Tema: Borrar Todos Los Registros De Las Tablas (Leído 1221 veces)

UserCode

Borrar Todos Los Registros De Las Tablas

ElNapster

Re: Borrar Todos Los Registros De Las Tablas

UserCode

Re: Borrar Todos Los Registros De Las Tablas

UserCode

Re: Borrar Todos Los Registros De Las Tablas