ZEUS
12 de Noviembre del 2003

Como borrar todo el contenido de una base de datos de acces con visual basic.

sdemingo
12 de Noviembre del 2003

Hola,

pues tendrás que realizar la conexión a la BBDD, y luego hacer deletes de cada una de sus tablas.

Private Sub BorrarBBDD()

Dim oConexion as new ADODB.Connection
Dim strSql as String
Dim rs As New ADODB.Recordset

oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open "C:BaseDatos.mdb"

Set rs = oConexion.OpenSchema(adSchemaTables)
Do Until rs.EOF
If Not esTablaSistema(rs("TABLE_NAME")) Then
strSql = "Delete * from [" & rs("TABLE_NAME") & "]"
oConexion.Execute strSql
End If
rs.MoveNext
Loop
rs.Close
oConexion.Close

End Sub

Function esTablaSistema(nombreTabla As String) As Boolean
Dim tablaSistema As String

tablaSistema = Left(nombreTabla, 4)
If tablaSistema = "MSys" Then
esTablaSistema = True
Else
esTablaSistema = False
End If

End Function


No lo he probado porque lo he escrito aquí directamente, pero si tienes alguna duda ya sabes....

Un saludo
sdemingo