RE:¡URGENTE! ELIMINAR TODOS LOS REGISTROS DE LA BD
Así es, además si tienes más de una tabla, habría que buscar el nombre de cada una de las tablas. Un ejemplo podría ser como siguie.
Hay que cargar la referencia “Microsoft ActiveX Data Objects 2.? Library”
Dim cnConexion As ADODB.Connection
Dim rsTablas As ADODB.Recordset
Dim SQL As String
Set cnConexion = New ADODB.Connection
Conexion= "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Ruta&NombreBaseDatos"
cnConexion .ConnectionString = Conexion
cnConexion .Open
Set rsTablas = New ADODB.Recordset
Set rsTablas = cnConexion.OpenSchema(adSchemaTables)
rsTablas.MoveFirst
While Not rsTablas.EOF
If Mid(rsTablas.Fields(2).Value, 1, 4) <> "MSys" Then
Ahora tienes dos opciones:
Si quieres borrar el contenido de las tablas...
SQL = “Delete * From “ & rsTablas.Fields(2).Value
Si lo que quieres es borrar todas las tablas que has creado...
SQL = “Drop Table “ & rsTablas.Fields(2).Value
cnConexion.Execute SQL
End If
rsTaulak.MoveNext
Wend
Con este código también se eliminiarían las consultas que tienes creadas [creo :o)]
---------------
Si quieres eliminar el archivo de base de datos directamente...
Dim NombreVariable As Object
Set NombreVariable = CreateObject("Scripting.FileSystemObject")
NombreVariable.DeleteFile Path&NombreBaseDatos, True
Espero que te sirva
Un saludo