COMPACTAR BANCO DE DADOS

JLAUROSOUZA 14/01/2011 17:19:55
#362300 Resposta escolhida

Posta a maneira que você tem pra ver-mos como é q você esta fazendo!!!

JOSESANTOS 14/01/2011 17:22:30
#362302

Private Sub cmdSelectFile_Click()
txtPassword.Text = [Ô][Ô]
txtPassword.Visible = False
lblFinalSize = [Ô][Ô]
lblOriginalSize = [Ô][Ô]
pbFinal.Value = 0
Text1 = OpenCommonDialog([Ô]Select Access DataBase to Optimize (Compact)[Ô], [Ô]Access Databases|*.mdb[Ô], [Ô]*.mdb[Ô])
If Text1 <> [Ô][Ô] Then
lblOriginalSize = GetFileSize(Text1)
pbFinal.Max = FileLen(Text1)
End If
End Sub
Private Sub cmdCompactDatabase_Click()
If Text1 = [Ô][Ô] Then cmdSelectFile_Click

CompactDB Text1, False
pbFinal.Value = FileLen(Text1)
lblFinalSize = GetFileSize(Text1)

If Ok = False Then
txtPassword.Visible = True
txtPassword.SetFocus
CompactDB Text1, False, txtPassword
pbFinal.Value = FileLen(Text1)
lblFinalSize = GetFileSize(Text1)
End If

End Sub

JLAUROSOUZA 14/01/2011 17:28:14
#362308

Quanto voce coloca [Ô] *.mdb[Ô] vc esta compactando todos os bancos correto?

ou vc tem um banco especifico?

se for um banco especifico, pq vc naum tenta fazer assim:

Text1 = OpenCommonDialog([Ô]Select Access DataBase to Optimize (Compact)[Ô], [Ô]Access Databases|Banco1.mdb[Ô], [Ô]BancoCompactada.mdb[Ô])

voce da um nome a o banco compactado!!!

me diz se é isso q vc esta precisando?, Espero ter ajudado, se naum vamos tentando ai!!!
se for me ponteia ai, BLZ!!!

JOSESANTOS 28/01/2011 21:59:13
#363747

Esse exemplo tá funcionando bem.
Todos os exemplos que eu vejo de compactação de banco access larga o banco compactado noutra pasta. Como usar o banco que foi compactado?
Parece primário, mas não sei.

Grato por qualquer ajuda.

Até!