
16/02/2007, 18:52
|
| | Fecha de Ingreso: septiembre-2006
Mensajes: 161
Antigüedad: 18 años, 9 meses Puntos: 0 | |
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?? |