Compactar base de datos access
Por favor necesito que me expliques como hacerlo desde lineas de código de programación, no tengo la menor idea.
Utilizo adodb, tengo access 2000
y visual basic 6.0
Muchas muchas gracias
Utilizo adodb, tengo access 2000
y visual basic 6.0
Muchas muchas gracias
1 respuesta
Respuesta de blackie
1
Debes usar la biblioteca Microsoft Jet and Replication Objects X.X library, donde X.X debe ser la version 2.1 en adelante.
Una vez que tengas esa referencia fácilmente puedes compactar tu BD usando las siguientes lineas :
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=PathDBOriginal", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=PathDBResultante;
Jet OLEDB:Engine Type=4"
Recuerda que la compactación te va a generar una nueva BD y debes renombrarla como la original...
Lo otro es el ultimo parámetro que te indica que Engine de Access estas usando. Los valores que puede tomar son:
1= JET10, 2=JET11, 3=JET2X, 4=JET3X, 5=JET4X
Si no le dices nada asume el valor de 5
Una vez que tengas esa referencia fácilmente puedes compactar tu BD usando las siguientes lineas :
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=PathDBOriginal", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=PathDBResultante;
Jet OLEDB:Engine Type=4"
Recuerda que la compactación te va a generar una nueva BD y debes renombrarla como la original...
Lo otro es el ultimo parámetro que te indica que Engine de Access estas usando. Los valores que puede tomar son:
1= JET10, 2=JET11, 3=JET2X, 4=JET3X, 5=JET4X
Si no le dices nada asume el valor de 5
