Postada em 16/04/2008 15:28 hs
galera, tow precisando de um codigo pra compactar meu BD Access 2003. Eu usava um que funcionava na versao 97, era assim:
======================================================
'Compacta o banco de dados
Dim je As New JRO.JetEngine
je.CompactDatabase "Data Source=C:anco.mdb", "Data Source=C:Temp.mdb"
'Copia a origem no destino
FileCopy "C:Temp.mdb", "C:anco.mdb"
'Apaga o arquivo temporário
Kill "C:Temp.mdb"
======================================================
bem simples, mas funciona
Se alguem souber um que funcione na versao 2003, posta ae, valew!
|
