Consulta a dos bases de datos SQL en mismo servidor

14/07/2009 - 12:56 por Javier Ramitos | Informe spam
Saludos al grupo.

Tengo una página ASP que funciona correctamente. Hace una consulta a
dos tablas diferentes que están en la misma base de datos. Ahora, una
de ellas pasa a otra base de datos, por lo que tego que crear una ueva
conexión y hacer las modificaciones oportunas.

Hice la conexión a la seguna BD, pero no sé que modificaciones tengo
que hacer a la consulta, ya probé sin éxito.¿Me podríais ayudar?

Muchas gracias anticipadas.






<%

Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.open "DSN=Conexion1;UID=usuario;PWD=contraseña"
Set rs = Server.CreateObject("ADODB.Recordset")

-Set Conexion2 = Server.CreateObject("ADODB.Connection")
-Conexion2.open "DSN=Conexion2;UID=usuario2;PWD=contraseña2"
-Set rs2 = Server.CreateObject("ADODB.Recordset")

%>

<%

socio=request("socio")

rs.ActiveConnection = Conexion
rs.CursorLocation = 3
rs.PageSize = 50

sqlString = "SELECT DISTINCT tabla1.codigo, tabla1.empresa,
tabla2.direccion FROM tabla1 INNER JOIN tabla2 ON tabla1.codigo tabla2.codigo2 WHERE tabla2.socio='" +socio+ "' order by codigo asc"
rs.Open sqlString

if not (rs.Eof) then
rs.AbsolutePage = pagina
empresa=RS("empresa")
direccion=RS("direccion")
etc...

%>
 

Leer las respuestas

#1 Claudio Quezada
15/07/2009 - 04:33 | Informe spam
Suponiendo que tabla2 es la de tu otra BD deberias hacer algo asi (creo)

SELECT DISTINCT tabla1.codigo, tabla1.empresa,
tabla2.direccion FROM tabla1 INNER JOIN BD2.dbo.tabla2 ON tabla1.codigo BD2.dbo.tabla2.codigo2 WHERE tabla2.socio='" +socio+ "' order by codigo
asc"

eso...

"Javier Ramitos" wrote in message
news:
Saludos al grupo.

Tengo una página ASP que funciona correctamente. Hace una consulta a
dos tablas diferentes que están en la misma base de datos. Ahora, una
de ellas pasa a otra base de datos, por lo que tego que crear una ueva
conexión y hacer las modificaciones oportunas.

Hice la conexión a la seguna BD, pero no sé que modificaciones tengo
que hacer a la consulta, ya probé sin éxito.¿Me podríais ayudar?

Muchas gracias anticipadas.






<%

Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.open "DSN=Conexion1;UID=usuario;PWD=contraseña"
Set rs = Server.CreateObject("ADODB.Recordset")

-Set Conexion2 = Server.CreateObject("ADODB.Connection")
-Conexion2.open "DSN=Conexion2;UID=usuario2;PWD=contraseña2"
-Set rs2 = Server.CreateObject("ADODB.Recordset")

%>

<%

socio=request("socio")

rs.ActiveConnection = Conexion
rs.CursorLocation = 3
rs.PageSize = 50

sqlString = "SELECT DISTINCT tabla1.codigo, tabla1.empresa,
tabla2.direccion FROM tabla1 INNER JOIN tabla2 ON tabla1.codigo tabla2.codigo2 WHERE tabla2.socio='" +socio+ "' order by codigo asc"
rs.Open sqlString

if not (rs.Eof) then
rs.AbsolutePage = pagina
empresa=RS("empresa")
direccion=RS("direccion")
etc...

%>

Preguntas similares