Hola espero esten bien...

bueno tengo que eliminar los registros de una BD que cuenta con 35 tablas y elimino por tabla una a una...

hay otra forma de eliminar toda la BD sin eliminar el archivo claro aunque una froma seria esa!!!, la BD esta hecha en access...

espero me puedan ayudar o alguna idea que me puedan dar

agradesco de antemano su ayudaEdited by: Tino

TU QUIERES ELIMINAR TODOS LOS REGISTROS DE TODAS LAS TABLAS DE TU BASE DE DATOS?????? A ESO TE REFIERES.

Si a eso me refiero quiero eliminarlos pero no por tabla sino todas de una sola vez si se puede claro

Te pongo una forma sencilla de hacer lo que quieres:

Código:

Private Sub Command1_Click()
 Dim cn As ADODB.Connection
 Dim rs As ADODB.Recordset
 Set cn = New ADODB.Connection
 cn = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\MiBD.mdb"
 cn.Open
 Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
 Do Until rs.EOF
 cn.Execute "delete * from " & rs!TABLE_NAME
 rs.MoveNext
 Loop
End Sub

Esto elimina todos los registros de las tablas de la base de datos, pero no elimina las tablas, si quisieras hacer esto, tendría que ser con un DROP.

Saludos

Para vaciar las tablas podes utilizar la sentencia

Truncate table MITABLA

(creo que recibe un parametro opcional que es algo como reuse storage,
para aprovechar el espacio que ocupaban los registros, a futuro)

Otra sentencia que quizas te sea util (elimina la tabla con su definicion) es

DROP table MITABLA



Creo que se puede escribir drop tables all (o algo asi)



Suerte, Omar