Compactar una base de datos acces con visual basic .net

Module Module1



Sub Main()



Dim jro As JRO.JetEngine



jro = New JRO.JetEngine()



jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:wind.mdb", _

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



MsgBox("Finished Compacting Database!")

End Sub



End Module


Espero que te sirva. Salu2.

"Gabriel" escribió en el mensaje
news:
Mostrar la cita

Como se puede compactar una base de datos de acces con visual basic .net ?

Lo probaremos de inmediato, gracias...

Hola mira soy nuevo en esto de la programacion, intente compactar la base
como lo dices tu aqui pero no me reconoce el JRO.JetEngine, tendre que
agregar alguna referencia o algo asi, por tu atencion muchas gracias. trabajo
con net 2005

"Cid" wrote:

Mostrar la cita

Module Module1



Sub Main()



Dim jro As JRO.JetEngine



jro = New JRO.JetEngine()



jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:wind.mdb", _

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



MsgBox("Finished Compacting Database!")

End Sub



End Module


Espero que te sirva. Salu2.

"Gabriel" escribió en el mensaje
news:
> Como se puede compactar una base de datos de acces con visual basic .net ?

"hectore" escribió:

Mostrar la cita

intente compactar la base ... pero no me reconoce el
JRO.JetEngine, tendre que agregar alguna referencia
o algo asi ...

Hola:

Tendrás que hacer una referencia expresa en tu proyecto a la biblioteca JRO
mediante la capa COM Interop del marco de trabajo de .net. Para ello, abre
el cuadro de diálogo «Agregar referencia» (menú Proyecto --> Agregar
referencia... ), y en la pestaña COM selecciona la biblioteca «Microsoft Jet
and Replication Objects 2.6 Library».

En el siguiente enlace de la Base del Conocimiento (en inglés), encontrarás
un ejemplo:

How to compact a Microsoft Access database by using Visual Basic .NET
http://support.microsoft.com/defaul...-us;306287

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.