Como alterar uma senha de banco de dados do Access

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 170961
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Microsoft Access 7.0 e 97 arquivos MDB podem ser protegida por senha. Este artigo demonstra como alterar a senha associada com um Microsoft Access 7.0 ou 97 arquivo MDB.
Mais Informações
Microsoft Access 7.0 e 97 usam Jet 3.0 e arquivos MDB do Jet 3.5, respectivamente. Para o código a seguir para funcionar corretamente, você deve ter uma referência a uma biblioteca de objetos DAO de Microsoft apropriada.

A senha de banco de dados pode ser alterada usando o método NewPassword. O exemplo a seguir altera a senha de banco de dados o MyDB.mdb de "MyPassword1" para "MyPassword2":
   Sub ChangeDBPassword ()      Dim Db As Database      Set Db = OpenDatabase("C:\My Documents\MyDB.mdb",True, _         False,";pwd=MyPassword1")      Db.NewPassword "MyPassword1","MyPassword2"      Db.Close   End Sub				

O código acima não manipula a possibilidade de tentar abrir o banco de dados com a senha incorreta, geraria um erro. Cada aplicativo que tenta abrir bancos de dados protegido por senha deve ser capaz de lidar com esse cenário.

Para remover a proteção por senha de um banco de dados, use uma seqüência de caracteres vazia para o segundo parâmetro do método NewPassword. Por exemplo:
   Db.NewPassword "MyPassword2", ""				

Para atribuir uma senha de banco de dados para um MDB que está sem uma senha, use uma seqüência de caracteres vazia para o primeiro parâmetro do método NewPassword. Por exemplo:
   Db.NewPassword "", "MyPassword1"				



Você também pode alterar, atribuir ou remover uma senha de banco de dados usando o método CompactDatabase. Ao usar esse método em um banco de dados com uma senha, os argumentos opcionais devem ser fornecidos:
   Sub CompactDB ()      ' Compact the database, supplying the password      DBEngine.CompactDatabase "C:\My Documents\MyDB.mdb", _         "C:\My Documents\Test.MDB", dbLangGeneral, dbVersion30, _         ";pwd=MyPassword1"   End Sub				

O novo banco de dados possui a mesma senha como o antigo. Aqui você compacta um MDB com a senha "MyPassword1" e forneça uma senha de "MyNewPWD" novo banco de dados:
   DBEngine.CompactDatabase "C:\My Documents\Test.mdb", _      "C:\My Documents\TestII.MDB", dbLangGeneral & ";pwd=MyNewPWD", _      dbVersion30, ";pwd=MyPassword1"				

Com esta linha, você pode remover a senha de banco de dados:
   DBEngine.CompactDatabase "C:\My Documents\TestII.mdb", _      "C:\My Documents\TestIII.MDB", dbLangGeneral & ";pwd=", _      dbVersion30, ";pwd=MyNewPWD"				

Essa linha compacta um banco de dados sem uma senha e atribui uma senha de "NewPassword" para o novo banco de dados:
   DBEngine.CompactDatabase "C:\My Documents\TestIII.mdb", _     "C:\My Documents\TestIV.mdb", dbLangGeneral & _     ";pwd=NewPassword", dbVersion30				

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 170961 - Última Revisão: 12/04/2015 17:20:15 - Revisão: 4.4

Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic 4.0 Standard Edition, Microsoft Visual Basic 4.0 Professional Edition, Microsoft Visual Basic 4.0 de 32 Bits Enterprise Edition, Microsoft Access 95 Standard Edition, Microsoft Access 97 Standard Edition

  • kbnosurvey kbarchive kbmt kb32bitonly kbhowto KB170961 KbMtpt
Comentários