Como utilizar o método OpenDatabase para abrir bases de dados protegida por palavra-passe no Access 2000

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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática… erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 209953
Este artigo foi arquivado. Este artigo é oferecido "tal como está" e deixará de ser actualizado.
Moderado: Requer básica macros, codificação e interoperabilidade competências.

Este artigo aplica-se apenas a uma base de dados do Microsoft Access (.mdb).

Sumário
Este artigo descreve como utilizar o método OpenDatabase para abrir uma base de dados do Microsoft Access que tenha uma palavra-passe de base de dados. Note que isto é diferente de abrir uma base de dados é protegido com a funcionalidade de segurança de nível de utilizador de acesso do Microsoft.
Mais Informação
Se pretender utilizar o método OpenDatabase para abrir uma base de dados protegida por palavra-passe, especifique a palavra-passe da base de dados como parte do argumento ligar . A sintaxe para abrir uma base de dados com o método OpenDatabase é:
Set db = workspace.OpenDatabase (dbname, options, read-only, connect)
Nota : mesmo que as Opções e Só de leitura argumentos do método OpenDatabase estão documentados na ajuda como argumentos opcionais, tem de fornecê-los quando utiliza o argumento de ligar . Se utilizar um argumento de ligar e não fornecem Opções e Só de leitura argumentos, recebe o erro run-time 3031:
Não uma palavra-passe válida.
Recebe esta mensagem de erro mesmo se a palavra-passe fornecida no argumento ligar está correcta. Se não for necessário utilizar um argumento de ligar , pode omitir as Opções e Só de leitura argumentos.

Quando utiliza o método OpenDatabase para abrir uma base de dados do Access protegida por palavra-passe, o ligar o argumento do método OpenDatabase requer a seguinte sintaxe:
MS Access; pwd = password
Para utilizar o método OpenDatabase para abrir a base de dados de exemplo Adamastor.mdb (que está protegida por base de dados de palavra-passe de "Adamastor"), siga estes passos:

Nota : O exemplo de código neste artigo utiliza Microsoft Data Access objectos. Para que este código seja executado correctamente, tem de referenciar a biblioteca DAO Microsoft 3,6 Object Library. Para o fazer, clique em References no menu Ferramentas no Editor do Visual Basic e certifique-se de que está seleccionada a caixa de verificação Microsoft DAO 3.6 Object Library .

atenção : Se seguir os passos neste exemplo, modificará a base de dados de exemplo Adamastor.mdb. Convém cópia de segurança do ficheiro de base de dados Adamastor.mdb e siga estes passos numa cópia da base de dados.

  1. Iniciar o Microsoft Access e abra o exemplo de base de dados Adamastor.mdb para acesso exclusivo. Para o fazer, clique em Abrir base de dados no menu ficheiro , clique na seta no botão Abrir para apresentar as opções e, em seguida, clique em Abrir em modo exclusivo .
  2. No menu Ferramentas , aponte para segurança e clique em Definir palavra-passe de base de dados .
  3. Escreva northwind nas caixas de palavra-passe e Verificar .
  4. Clique em OK para fechar a caixa de diálogo Definir palavra-passe da base de dados .
  5. Feche a base de dados.
  6. Crie uma nova base de dados em branco.
  7. Crie um módulo e escreva o seguinte procedimento:

    Nota : o caminho correcto para a base de dados Adamastor.mdb no disco rígido no código de exemplo seguintes sub.
    Sub OpenDB() Dim db As DAO.Database Dim ws As DAO.WorkSpace Dim rst As DAO.Recordset Set ws = DBEngine.WorkSpaces(0) Set db = ws.OpenDatabase _ ("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", _ False, False, "MS Access;PWD=northwind") Set rst = db.OpenRecordset("Customers", dbOpenDynaset) If rst.RecordCount > 0 Then   rst.MoveLast   MsgBox rst!CustomerID End If rst.Close db.CloseEnd Sub					
  8. Para testar este procedimento, escreva a seguinte linha na janela de depuração e, em seguida, prima ENTER:
    OpenDB
    Note que uma caixa de mensagem apresenta o ID de cliente do último registo na tabela clientes, indicando que a base de dados foi aberto com êxito.
Referências
Para obter mais informações sobre o método OpenDatabase, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , escreva o método opendatabase na Assistente do Office ou no Assistente de respostas e, em seguida, clique em Procurar para visualizar o tópico.

Para obter mais informações sobre palavras-passe de base de dados, clique em Ajuda do Microsoft Access no menu de Ajuda escreva proteger um ficheiro de base de dados (.mdb) do microsoft acesso com uma palavra-passe ou encriptação no Assistente do Office ou no Assistente de respostas e, em seguida, clique em Procurar para visualizar os tópicos devolvidos.
pwd seguro

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 209953 - Última Revisão: 12/05/2015 11:15:48 - Revisão: 3.1

Microsoft Access 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbautomation kbpasswords kbdatabase kbopenfile kbhowto kbprogramming KB209953 KbMtpt
Comentários