COMPACTAR ACCESS NO VB10

LEONARDO136 29/12/2011 23:25:19
#392154
Bom pessoal gostaria de saber como faço para compactar um banco access, já vi milhares de exemplos na internet e até aqui no site,
mas nenhum eu consegui utilizar. Uso o VISUAL STUDIO 2010, se alguem tiver a solução, ficaria grato.
Espero respostas.
TECLA 30/12/2011 22:04:51
#392191 Resposta escolhida
Adicione uma referência no projeto para a biblioteca JRO (Microsoft Jet and Replication Objects 2.x) e copie o fonte abaixo.
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![Ô])
Tópico encerrado , respostas não são mais permitidas
Voltar