Iniciar Sess�o

Select the product you need help with

Como acessar v�rios bancos de dados em uma consulta SQL no VB 3.0

ID do artigo: 113701 - Exibir os produtos aos quais esse artigo se aplica.

Exibir Aviso de Isen��o de Tradu��o Autom�tica

Clique aqui para exibir o artigo traduzido e o artigo original em ingl�s, lado a lado.

Aviso de Isen��o de Responsabilidade sobre Conte�do do KB Aposentado

Expandir tudo | Recolher tudo

Ao acessar dados de mais de uma fonte de dados simultaneamente em uma �nica consulta, voc� provavelmente vai querer usar o m�todo mais r�pido e mais geral--anexar as tabelas das fontes de dados diferentes a um �nico banco de dados Microsoft Access. Nesse ponto, consultas que se estendem por dois bancos de dados diferentes podem ser constru�das como se todas as tabelas, locais, ou anexadas foram locais para o banco de dados do Microsoft Access.
Anexar tabelas tem desempenho poderoso e vantagens administrativas--principalmente se voc� est� executando consultas repetidamente. No entanto, �s vezes, � aconselh�vel levar a rota mais lenta descrita neste artigo quando voc� precisar usar consultas ad hoc que abrange dois ou mais bancos de dados. Este artigo explica como criar essas consultas de banco de dados mais lentas.

Voltar para o in�cio | Submeter coment�rios

Mais Informa��es

H� dois m�todos que voc� pode usar para especificar um banco de dados fora daquele aberto no momento.

M�todo um

SQL do Microsoft Access fornece uma cl�usula IN que permite que voc� conectar-se a um banco de dados (um banco de dados diferente do atual banco de dados) externo. Esse m�todo faz, no entanto, limitar voc� a apenas um banco de dados externo por vez.

A cl�usula IN possui duas partes, nome do banco de dados e conectar seq��ncia de caracteres. O nome do banco de dados � um caminho totalmente qualificado para o arquivo ou pasta que cont�m o arquivo de banco de dados e a seq��ncia de conex�o cont�m o tipo de banco de dados e outros par�metros conforme necess�rio.

Para especificar um banco de dados externo, acrescente um ponto-e-v�rgula (;) para a conex�o parte e coloque-o entre aspas simples ou duplas. O exemplo a seguir utiliza a cl�usula IN para especificar uma tabela (clientes) em um banco de dados dBASE IV (vendas):

SELECT Customers.CustomerID
FROM Customers
IN "C:\DBASE\DATA\SALES" "dBASE IV;"
WHERE Customers.CustomerID Like "A*"

no Visual Basic, voc� pode criar um dynaset do exemplo acima, usando o seguinte c�digo do Visual Basic:

Dim db As Database
Dim ds As Dynaset
Dim sql As String

' Open a database:
Set db = OpenDatabase("C:\VB\BIBLIO.MDB")

' Build the select statement, referencing the external dBASE IV file:
sql = "SELECT Customers.CustomerID, FROM Customers"
sql = sql & " IN 'C:\DBASE\DATA\SALES' 'dBASE IV;'"
sql = sql & " WHERE Customers.CustomerID Like 'A*'"

' Create the recordset:
Set ds = db.CreateDynaset(sql)

' Loop through and display the records:
While Not ds.EOF
   For i = 0 To ds.Fields.Count - 1
      Print ds(i); "  ";
   Next i
   Print
   ds.MoveNext
Wend

M�todo dois

O mecanismo incorporado ao Visual Basic vers�o 3.0 do Microsoft Access pode analisar consultas SQL para incluir a seq��ncia de conex�o usada para abrir um objeto de banco de dados. A cl�usula FROM da instru��o SQL aceita um nome de tabela totalmente qualificado, que permite a coloca��o da seq��ncia de conex�o entre colchetes antes o nome da tabela. A seq��ncia de conex�o � separada do nome da tabela por um per�odo. Esse m�todo permite que voc� se conectar a v�rios bancos de dados externos ao mesmo tempo.

Voc� pode acessar qualquer tabela em um dos dois bancos de dados dentro de uma �nica instru��o select usando esta sintaxe:

SELECT tbl1.fld1,tbl2.fld1
FROM [odbc;dsn=datasource;database=pubs;Username= <username>;PWD=<strong password>].tbl1,
[dbase iii;database=C:\DBASE3].tbl2
WHERE tbl1.fld1 = tbl2.fld1

Este exemplo associa duas tabelas de dois bancos de dados diferentes, uma tabela uma fonte de dados ODBC e o outro um dBASE III no diret�rio C:\DBASE3.

Em geral, a seq��ncia de conex�o usada aqui entre colchetes � id�ntica ao quarto par�metro da instru��o OpenDatabase ou a propriedade Connect de uma TableDef ao anexar. Ser� em um dos tr�s formul�rios dependendo do banco de dados (ODBC, ISAM ou Microsoft Access).

Para bancos de dados ODBC:

   [odbc;dsn=datasource;database=thedatabasename;Username=<username>;
PWD=<strong password>]

bancos de dados ISAM para:

   [paradox 3.X;database=C:\DATABASE\PARADOX3]
   [foxpro 2.5;database=C:\DATABASE\FOX25]
   [dbase iv;database=C:\DATABASE\DBASEIV]
   [btrieve;database=C:\DATABASE\BTRIEVE\FILE.DDF]

bancos de dados para o Microsoft Access:

   [;database=C:\VB\BIBLIO.MDB]

Observa��o o ponto-e-v�rgula � esquerda para bancos de dados do Microsoft Access � importante. Isso � exatamente a mesma seq��ncia necess�ria para preencher a propriedade Connect de um objeto TableDef antes de anexar a tabela a um banco de dados do formato Microsoft Access. O ponto-e-v�rgula � esquerda � um espa�o reservado para a especifica��o de formato de banco de dados desnecess�rios e permite que o "banco de dados =" cl�usula execute.

Exemplo de c�digo de uma consulta de banco de dados m�ltiplos

Este exemplo cria um dynaset associa��o de duas tabelas de duas fontes de dados, um um SQL Server e o outro � um banco de dados Microsoft Access. A tabela TestTab � no SQL Server e a tabela T1 � no banco de dados Microsoft Access.

Observa��o <username>Voc� deve alterar <nomedousu�rio> e < senha de alta seguran�a > para os valores corretos antes de executar esse c�digo. Certifique-se que o nome de usu�rio tenha as permiss�es apropriadas para executar esta opera��o no banco de dados.

Dim db As database
Dim ds As dynaset
Dim sql As String, Uid$, Pwd$

Set db = OpenDatabase("C:\VB\BIBLIO.MDB")
' This obtains a valid database object. It does not have to be a Microsoft
' Access database; the following works equally as well:
' Set db = OpenDatabase("C:\FOXPRO25\", 0, 0, "foxpro 2.5")

' The values here are hard-coded, but you could prompt the user for their
' user id and password.
Uid$ = <username>
Pwd$ = <strong password>

' Build the select statement, concatenating the user's id and password:
sql = "SELECT T1.F2, TestTab.F2, TestTab.F3"
sql = sql & " FROM [;database=C:\ACCESS\DB1.MDB].T1 , "
sql = sql & " [odbc;dsn=texas;database=playpen;Username=" & Uid$
sql = sql & ";PWD=" & Pwd$ & "].TestTab"
sql = sql & " WHERE T1.F1 = TestTab.F1"

' Execute the select query:
Set ds = db.CreateDynaset(sql)

' Loop through and display the records:
While Not ds.EOF
   For i = 0 To ds.Fields.Count - 1
      Print ds(i); "  ";
   Next i
   Print
   ds.MoveNext
Wend

Quanto de Observa��o especial protegidos bancos de dados Microsoft Access

Se o banco de dados Microsoft Access estiver protegido, o aplicativo Visual Basic deve executar o SetDataAccessOption e comandos SetDefaultWorkspace antes de executar quaisquer dados acessar c�digo relacionado. Isso � necess�rio para um logon bem-sucedido porque o Microsoft Access n�o usa o "Username ="e"PWD =" se��es da seq��ncia de conex�o. Por exemplo:

   ' Establish the location of the SYSTEM.MDA files if in another
   ' directory other than the \WINDOWS directory:
   SetDataAccessOption 1, "C:\MYDIR\MYAPP.INI"
   ' Log on to a valid account:
   SetDefaultWorkspace "admin", "<password>"

quando isso for feito, consultas para o banco de dados protegido do Microsoft Access ter� �xito. No entanto, observe que devido esse processo, h� uma limita��o interna para essa t�cnica ad hoc; protegidos de apenas um banco de dados do Microsoft Access podem ser acessado com uma consulta ad hoc. Isso ocorre porque depois que o mecanismo do Microsoft Access � inicializado em uma sess�o, com uma combina��o de nome e senha de usu�rio espec�fico, esses valores s�o mantidos at� que a sess�o (programa execut�vel do Visual Basic ou sess�o do ambiente, VB.EXE) termina.

No entanto, se os bancos de mais de dois protegidos dados do Microsoft Access precisar� ser acessado para uma consulta, a melhor abordagem � mover as tabelas reais de bancos de dados protegidos em um banco de dados protegido. Para fazer isso, voc� precisar� alterar a senha para a conta de administrador para "" temporariamente durante as opera��es de transfer�ncia. Em seguida, voc� pode usar c�digo do Visual Basic, como no exemplo de acesso a dados Visdata, para copiar as tabelas.

Voltar para o in�cio | Submeter coment�rios

Refer�ncias

Para obter informa��es adicionais sobre a seguran�a, clique no n�mero abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:

105990

(http://support.microsoft.com/kb/105990/ )

INFO: Como Visual Basic 3.0 identificadores de seguran�a definida pelo Microsoft Access

Voltar para o in�cio | Submeter coment�rios

Propriedades

ID do artigo: 113701 - �ltima revis�o: sexta-feira, 1 de setembro de 2006 - Revis�o: 3.1

A informa��o contida neste artigo aplica-se a:

Microsoft Visual Basic 3.0 Professional Edition

kbmt kbhowto kbsqlprog KB113701 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 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: 113701

(http://support.microsoft.com/kb/113701/en-us/ )

Aviso de Isen��o de Responsabilidade sobre Conte�do do KB Aposentado

Este artigo trata de produtos para os quais a Microsoft n�o mais oferece suporte. Por esta raz�o, este artigo � oferecido "como est�" e n�o ser� mais atualizado.

Voltar para o in�cio | Submeter coment�rios