|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Reparar/Compactar banco de dados
|
 |
|
|
|
Postada em 15/11/2004 por ~Ð@®£@Ñ
Repara e compacta banco access com [DAO] usando senha e mantendo a senha.
Vá no menu Project -> Reference
Marque a opção Microsoft DAO 3.51 Object Library
[code]
Screen.MousePointer = 11
DBEngine.RepairDatabase App.Path & "Dados.Mdb"
If Dir(App.Path & "Dados2.Mdb") <> "" Then Kill App.Path & "Dados2.Mdb" 'Verifica se o arquivo existe, e deleta
DBEngine.CompactDatabase App.Path & "Dados.Mdb", App.Path & "Dados2.Mdb", dbLangGeneral & "; pwd=senha", , "; pwd=senha" 'cria o arquivo compactado e mantem senha
Kill App.Path & "Dados.Mdb" 'deleta o arquivo antigo
FileCopy App.Path & "Dados2.Mdb", App.Path & "Dados.Mdb" 'efetua a cópia do novo para o antigo
Kill App.Path & "Dados2.Mdb" 'deleta o arquivo novo
Screen.MousePointer = 0
[/code]
|
|
|
|
|
