Visual Basic - ¡URGENTE! ELIMINAR TODOS LOS REGISTROS DE LA BD

Buenas, necesito saber como puedo eliminar todos los registros de la base de datos que tengo creada en access y cuando pulso un boton me borre la base de datos entera.

Muchas Gracias

Puedes utilizar la siguiente sintaxis

Bd.Execute "Delete * From Mi_Tabla"

Espero te sirva. Saludos Pola

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

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