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), [email protected]

 

.

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)