COMPACTAR ACCESS C/ SENHA

UNIAO 18/09/2006 14:06:20
#172155
Amigos, porque quando coloco senha no banco access não consigo compactar ??? existe uma solução para isso ?
obs: estou usando o brazip para fazer a compactação....
UNIAO 18/09/2006 15:27:40
#172185
o que seria a linha ConectaBanco.........
USUARIO.EXCLUIDOS 18/09/2006 15:45:12
#172197
é a função que conecta o banco.

No seu caso pode desonsiderar, é que no meu caso eu abro o banco novamente caso aconteça algum erro.
elimine essa linha.
EVERSON.PASETTO 18/12/2006 11:14:00
#190579
Estou usando este codigo, mas esta dando um errinho

Private Sub mnucompactar_Click()

Dim dbpath As String
dbpath = App.Path & "\Cliente.mdb"

On Error GoTo ErrorDes
Screen.MousePointer = vbHourglass
If dbpath = "" Then
MsgBox "Não foi encontrada a Base de Dados", vbExclamation, "Compactação da Base deDados"
Else
If Dir(dbpath) = "" Then

MsgBox "Não foi encontrada a Base de Dados", vbExclamation, "Compactação da Base deDados"
Else

FileCopy dbpath, App.Path + "\Dados\TempDB.mdb"
Kill dbpath

'Aqui esta dando o erro, acho que falta algo no codigo
'Dá erro 424 - Object Required
DBEngine.CompactDatabase App.Path & "\Dados\TempDB.mdb", False, False, ";pwd=12345", dbpath


If Dir(dbpath) = "" Then

MsgBox "Compactação falhou, por favor tente novamente ", vbExclamation, "Compactação da Base de Dados"
FileCopy App.Path + "\TempDB.mdb", dbpath
'lblPercentage = "Restore the database"
Screen.MousePointer = vbDefault
Exit Sub
Else

Kill App.Path + "\TempDB.mdb"

End If


MsgBox "Compactação efectuada com sucesso.", vbInformation, "Compactação da Base de Dados"
Call sAbreBanco

End If
End If
Screen.MousePointer = vbDefault
Exit Sub
ErrorDes:

'Caso ouver um erro ele copia devolta o banco de dados, sem compactar
FileCopy App.Path + "\dados\TempDB.mdb", dbpath
MsgBox Err.Description, vbCritical, Err.Number

Screen.MousePointer = vbDefault

End Sub



Espero ter ajudado
Tópico encerrado , respostas não são mais permitidas
Voltar