BANCO DE DADOS PERDE A SENHA

EVERSON.PASETTO 19/12/2006 14:38:53
#190913
Consegui fazer um compactador de banco de dados access....

Vou enviar o anexo....

E este é o unico que funciona em todas minhas máquinas sem dar problemas, mas o unico problema é que ele compacta o banco de dados e não poe a senha do banco novamente....

Ou seja o meu banco de dados tem senha 12345 e depois da compactação ele fica sem senha, (vc abre ele diretamente)...

Como senha no banco de dados via vb, tem como ????

E minha conexao é do tipo

ADO:

E para usar este codigo
'Marque nas referências "Microsoft Jet
'and Replication Objects 2.1 Library ou superior


Obrigado e até +
USUARIO.EXCLUIDOS 19/12/2006 14:43:22
#190919 Resposta escolhida

e se usar o recurso NewPassword?


objeto.NewPassword senhaantiga, senhanova
EVERSON.PASETTO 19/12/2006 14:51:50
#190931
E já tentei uasar um que o nosso colega PASTOR enviou para o link

http://www.vbmania.com.br/vbmania/vbmforum.php?varMethod=Abrir&varID=181776&varUltimaPagina=1


Mas dá erro em

Dim db As Database
USUARIO.EXCLUIDOS 19/12/2006 14:53:09
#190932

estou olhando...
EVERSON.PASETTO 19/12/2006 15:02:57
#190939
Não consegui usar o seu codigo....

Vou postar o anexo do meu codigo fonte....


Assim fica mais....
USUARIO.EXCLUIDOS 19/12/2006 15:08:20
#190944 

Dim db As Database
Set db = OpenDatabase("d:\dados\cliente.mdb", True, False, ";pwd=123")
db.NewPassword "123", "123456"
EVERSON.PASETTO 19/12/2006 16:11:53
#190970
Ok Pastor, funcionou direitinho....

Mas vc nota que eu tenho no arquivo que anexei...

Call sAbreBanco 'Esta rotina abre o banco de dados

Como faço mesmo para fechar o banco.... Ou seja fechar a conexao com o banco de dados

Ja tentei com Close sAbreBanco, Exit, e nada.....

Pois para compactar o banco de dados tem que estar fechado, então coloco um botão onde fecha o banco, compacta e depois chamo-o novamente.
Tópico encerrado , respostas não são mais permitidas
Voltar