Ver Mensaje Individual
  #4 (permalink)  
Antiguo 16/02/2007, 18:52
mary*
 
Fecha de Ingreso: septiembre-2006
Mensajes: 161
Antigüedad: 18 años, 9 meses
Puntos: 0
Pregunta Re: como mostrar una tabla que resulta de 2 tablas en distinto servidor?

En caso de que me tuviera que conectar a traves del asp esto sería correcto:


Código:
<%
'Declaramos las variables que vamos a usar:
Dim strDriver, strServer1, strDatabase1, strUsrPass1, cnConexion1
Dim strServer2, strDatabase2, strUsrPass2, cnConexion2

	
'Driver de la Base de datos, en este caso es SQLServer
strDriver = "Driver={SQL Server};"
	
'Servidor 1 (local)
strServer1 = "Server=192.168.1.126;"
'Base de Datos 1
strDatabase = "Database=Rssql;"
'Nombre de usuario y Password 1
strUsrPass = "UID=sa;Password=sa;"
'Finalmente concatenamos todo para hacer la conexion 1
cnConexion1 = strDriver & strServer & strDatabase & strUsrPass

'Servidor 2 (remoto)
strServer1 = "Server=10.37.1.8;"
'Base de Datos 2
strDatabase = "Database=Rast;"
'Nombre de usuario y Password 2
strUsrPass = "UID=sa;Password=sasa;"
'Finalmente concatenamos todo para hacer la conexion 2
cnConexion1 = strDriver & strServer & strDatabase & strUsrPass

'Create and Open Connection Object
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open cnConexion1 

'Create and Open Recordset Object
Set rsVialid = Server.CreateObject("ADODB.Recordset")

strSQL_N = "SELECT Opunicosetiqueta.line, ESCA1.LINE FROM  Rssql.dbo.ESCA1 as O INNER JOIN SORTER.Rast.dbo.Opunicoseiqueta as E ON Opunicosetiqueta.Idetiqueta = ESCA1.Idetiqueta ORDER BY Idetiqueta"

'Atributos de acceso a la consulta de la BD
rsVialid.ActiveConnection = objConn 'checa que ObjConn es el objeto de conexion que creamos
rsVialid.CursorLocation = adUseClient
rsVialid.Open strSQL_N, objConn,2,2
rsVialid.Requery

Es correcta esta sintaxis??