¿Cómo borro una base de datos access desde un programa en visual basic usando datacontrol?
Como puedo borrar una base de datos desde visual basic.La base de datos esta en access y estoy utilizando un Datacontrol. Espero y me puedan Ayudar
1 respuesta
Respuesta de orande
1
¿Quieres borrar la base de datos o las tablas de una base de datos?.
Para la base de datos, física, lo que tienes que hacer es eliminar el fichero en si (Kill Filename). Si acaso quita la conexión del data control:
Data1.RecordSource = Empty
Data1.DatabaseName = Empty
Si lo que quieres es borrar las tablas házmelo saber, que el DataControl no sirve.
Para la base de datos, física, lo que tienes que hacer es eliminar el fichero en si (Kill Filename). Si acaso quita la conexión del data control:
Data1.RecordSource = Empty
Data1.DatabaseName = Empty
Si lo que quieres es borrar las tablas házmelo saber, que el DataControl no sirve.
Si lo que quiero hacer son borrar las tablas
Te doy el ejemplo utilizando DAO (referencia "Microsoft DAO 3.6. Object Library" o superior):
Dim BD As Database
Dim TD As TableDef
Dim InTrans As Boolean
Set BD = DBEngine.Workspaces(0).OpenDatabase(PathBD)
On Error GoTo TratarError
DBEngine.Workspaces(0).BeginTrans: InTrans = True
For Each TD In BD.TableDefs
If TD.Attributes = 0 Then
BD.TableDefs.Delete TD.Name
End If
Next TD
DBEngine.Workspaces(0).CommitTrans: InTrans = False
TratarError:
If InTrans Then DBEngine.Workspaces(0).Rollback
En el PathBD va el nombre de la BBDD con la ruta completa.
Dim BD As Database
Dim TD As TableDef
Dim InTrans As Boolean
Set BD = DBEngine.Workspaces(0).OpenDatabase(PathBD)
On Error GoTo TratarError
DBEngine.Workspaces(0).BeginTrans: InTrans = True
For Each TD In BD.TableDefs
If TD.Attributes = 0 Then
BD.TableDefs.Delete TD.Name
End If
Next TD
DBEngine.Workspaces(0).CommitTrans: InTrans = False
TratarError:
If InTrans Then DBEngine.Workspaces(0).Rollback
En el PathBD va el nombre de la BBDD con la ruta completa.
