ACC2000: Como utilizar o método OpenDatabase para abrir ficheiros de base de dados Third-Party

Traduções de Artigos Traduções de Artigos
Artigo: 210259 - Ver produtos para os quais este artigo se aplica.
Avançado: Requer conhecimentos avançados sobre codificação, interoperabilidade e multi-utilizador.

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

Expandir tudo | Reduzir tudo

Nesta página

Sumário

O método OpenDatabase no Visual Basic for Applications permite-lhe para abrir um ficheiro de base de dados externa e trabalhar com objectos de acesso a dados (DAO) na base de dados. O método OpenDatabase suporta bases de dados do Microsoft Access e um número de bases de dados terceiros, incluindo qualquer base de dados que suporta a interligação de bases de dados abertas (ODBC, Open Database CONNECTIVITY).

O suporta de método OpenDatabase abrir bases de dados de outros fabricantes no respectivo formato de ficheiro nativo muito da mesma forma que pode ligar (ligar) uma tabela no Microsoft Access.

Mais Informação

O tópico de Propriedades de ligação nos Estados de ajuda que utiliza as seguintes definições para estabelecer ligação com os formatos de base de dados suportadas.
Nota : A tabela seguinte é um excerto de ajuda. Consulte o tópico de ajuda acima na versão do Microsoft Access para uma lista completa.
Reduzir esta tabelaExpandir esta tabela
Tipo de base de dadosEspecificador deExemplo
dBASE IIIdBASE III;drive:\path
dBASE IVdBASE IV;drive:\path
dBASE 5dBASE 5.0;drive:\path
Paradox 5.xParadox 5.x;drive:\path
TextoTexto;drive:\path
ODBCODBC;
DATABASE = base de dados;
UID = utilizador;
PWD = palavra-passe;
DSN = nomedaorigemdedados
[LOGINTIMEOUT = segundos]
drive:\path

A coluna de exemplo apresenta a unidade e o caminho, mas não o nome do ficheiro. Um nome de ficheiro não é necessário para estes formatos de base de dados porque a pasta (directório) na qual os ficheiros são armazenados é considerada a base de dados. Se a lista a fazer um nome de ficheiro, poderá receber resultados inesperados.

Por exemplo, para abrir um ficheiro de Paradox denominado Employee.db localizado na pasta C:\ParadoxNwind, utilize a seguinte sintaxe
set db = OpenDatabase ("C:\ParadoxNwind", TRUE, FALSE, "Paradox 5.x;")
em vez de:
set db = OpenDatabase ("C:\ParadoxNwind\EMPLOYEE.DB", TRUE, FALSE, "Paradox 5.x;")
O primeiro exemplo (sem o nome do ficheiro) é a correcta a utilizar. -Define a pasta C:\ParadoxNwind como uma base de dados e define a variável de base de dados para um objecto de base de dados válido. Os ficheiros DBF contidos no directório são considerados nos objectos de TableDef da base de dados.

Tenha em atenção que tem êxito se utilizar o segundo exemplo (com o nome de ficheiro). O método OpenDatabase abre uma base de dados e devolve um valor válido sem devolver erros ou avisos. Pode mesmo utilizar a base de dados; no entanto, a base de dados não tem nenhuma colecção TableDefs .

Exemplo

Para utilizar o método OpenDatabase para abrir um 5 Paradox. x da base de dados, siga estes passos:

Nota : O código de exemplo deste artigo utiliza Microsoft Data Access Objects. Para que este código seja executado correctamente, tem de referenciar a biblioteca Microsoft DAO 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 .

  1. Crie uma pasta C:\ParadoxNwind.
  2. Inicie o Microsoft Access e abra a base de dados de exemplo Adamastor.mdb.
  3. Exporte a tabela Empregados como um 5 Paradox. x do ficheiro para a pasta C:\ParadoxNwind e o nome Employee.db. (A tabela Empregados contém campos de memorando e índices e cria outros ficheiros de suporte no mesmo directório.)
  4. Exporte a tabela clientes como um 5 Paradox. x do ficheiro para a pasta C:\ParadoxNwind e o nome Customer.db.
  5. Crie um módulo e escreva a linha seguinte na secção Declarations, caso ainda não estiver aí:
    opção explícita
  6. Escreva o seguinte procedimento:
    Sub OpenDatabaseTest ()
       On Local Error GoTo OpenDatabaseTest_Err
       Dim i As Integer
       Dim db As DAO.Database
       ' Open the database with the directory specified.
       Set db = OpenDatabase("C:\ParadoxNwind", True, False, "Paradox 5.x;")
       ' Loop and print the TableDefs collection.
       For i = 0 To db.tabledefs.count - 1
          Debug.Print db.tabledefs(i).name
       Next i
    OpenDatabaseTest_End:
       Exit Sub
    OpenDatabaseTest_Err:
       MsgBox Error$
       Resume OpenDatabaseTest_End
    End Sub
  7. Para testar o procedimento, escreva a seguinte linha na janela Immediate e, em seguida, prima ENTER:
    OpenDatabaseTest
    Repare que "Empregado" e "Cliente" aparecem na janela imediata.

Referências

Para obter mais informações sobre propriedades de ligação, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu de Ajuda escreva ligar propriedades no 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 o método OpenDatabase, no Editor do Visual Basic, 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.

Propriedades

Artigo: 210259 - Última revisão: 11 de outubro de 2006 - Revisão: 1.5
A informação contida neste artigo aplica-se a:
  • Microsoft Access 2000 Standard Edition
Palavras-chave: 
kbmt kb3rdparty kbhowto kbprogramming KB210259 KbMtpt
Tradução automática
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: 210259

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com