Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
É possível listar dados de tabelas localizadas em BANCOS de dados diferentes em uma mesma consulta SQL?
Tenho as tabelas PRODUTOS1 localizada no LOJA_DESKTOP e PRODUTOS2 no banco LOJA_WEB.
Estou tentando com o código abaixo mas não tive resultado.
<%
Conexao1 = "Driver={MySQL ODBC 5.1 Driver}; SERVER=www.site.com; UID=user1; PWD=12345;"
Conexao2 = "Driver={MySQL ODBC 5.1 Driver}; SERVER=www.site.com; UID=user2; PWD=12345;"
Set ObjRs = Server.CreateObject("ADODB.Recordset")
ObjRs.CursorLocation = 3
ObjRs.CursorType = 0
ObjRs.LockType = 1
Sql1 = "SELECT nome as nome1 FROM loja_desktop.produtos"
Sql2 = "SELECT nome as nome2 FROM loja_web.produtos" Response.Write "teste "&ObjRs("nome1")& "<br>"
Response.Write "teste "&ObjRs("nome2")& "<br>"
End Ifxanburzum, ta isso que você informou é o obvio!
Mas o problema é como fazer a instrução SQL abrir as informações das tabelas que estao em bancos diferentes.
você quer dizer que as informações dependerão do vinculo das duas tabelas ?
se não precisar da junção das informações , uma string SQL simples resolve.
eu preciso fazer uma junção das 2 tabelas, exibir o conteudo das 2 na mesma tela.
As 2 tabela possuem a mesma estrutura, porem estão em bancos diferentes.
você conectando os dois bancos e fazendo as sql necessárias neles e exbindo , não dá , assim dessa forma simples.
se não precisar da junção das informações./applications/core/interface/imageproxy/imageproxy.php?img=http://www.nlmlol.info/g.gif&key=1c4686186c998da74f2aa80029655435f7165ec8e7e8acc038b1e62433d49d14" alt="g.gif" />
você consegue ter as duas tabelas em um unico banco ?
ou conecte os dois bancos faça suas consultas e exiba na tela normalmente, pois elas não tem um relacionamento, ou tem ?
utilize assim :
<%
Dim objConn, objRs, strQuery, strConnection, strDBPath
Set objConn = Server.CreateObject("ADODB.Connection")
strDBPath = Server.MapPath("../dados/db_adm.mdb")objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
Dim objConn2, objRs2, strQuery2, strConnection2, strDBPath2
Set objConn2 = Server.CreateObject("ADODB.Connection")
strDBPath2 = Server.MapPath("../dados/db_adm2.mdb")objConn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath2 & ";"
%>
ou seja, cria duas instancias do objeto Connection, e para qual use o objeto Recordset para executar as SQL´s