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 SubAhora ejecute su aplicaci�n presionando F5.
Fichero con el c�digo de ejemplo, (arCopiaBDAccess.zip 26,3 KB)