Como realizar una copia a una Base de datos Access X (.MDB)
 

Fecha: 01/Sep/2003 (02/Sep/2003)

Autor: Angel Enrique Ruiz Pastor (Vzla), aruiz1979@hotmail.com

 

.

Es te código nos muestra como realizar una copia a una  Base de Datos Access  X (.MDB)

Abra un nuevo proyecto, En Proyectos de Visual Basic seleccione la plantilla Aplicación para Windows.

En la ventana Explorador de soluciones, haga click con el botón secundario del mouse (ratón) en el nodo Referencias y seleccione Agregar referencia.

En el cuadro de diálogo Agregar referencia, haga clic en la ficha COM y seleccione Biblioteca de Microsoft Jet y objetos de replicación 2.6. Haga clic en Seleccionar para agregarlo a "Componentes seleccionados". Haga click en Aceptar.

Coloque que Button (Boton) en el formulario

Ahora en el evento Click del Button (Boton) de este coloque el siguiente código:

Dim Compactar As JRO.JetEngine = New JRO.JetEngine()

Compactar.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BD_Original.mdb", _

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BD_Copia.mdb;Jet OLEDB:Engine Type=5")

MsgBox("Se ha Compactado la BD con exito")

Quedaría de la siguiente forma:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Compactar As JRO.JetEngine = New JRO.JetEngine()
    Compactar.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\biblio.mdb", _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BDCompactada.mdb;Jet OLEDB:Engine Type=5")
    MsgBox("Se ha Compactado la BD con exito")
End Sub

Ahora ejecute su aplicación presionando F5.


ir al índice

Fichero con el código de ejemplo, (arCopiaBDAccess.zip 26,3 KB)