Conectarse a 2 Bases de Datos

[Hereje]

Hola!

Es lo mismo que con una solo que dos veces...

Dim oCon1, oCon2, oRs1, oRs2, SQL

Set oCon1 = Server.CreateObject("ADODB.Connection")
Set oCon2 = Server.CreateObject("ADODB.Connection")
Set oRs1 = Server.CreateObject("ADODB.Recordset")
Set oRs2 = Server.CreateObject("ADODB.Recordset")

oCon1.Open "mibd1" 'asi o sin DSN, como quieras...
oCon2.Open "mibd2"

SQL = "SELECT Id_Categoria, Nombre FROM Categorias;"
Set oRs1 = oCon1.Execute(SQL)

Do While Not oRs1.EOF

Response.Write("Mostrando productos de <b>" & oRs1.Fields("Nombre") &"</b><br><br>")

SQL = "SELECT Id_Producto, Nombre FROM Productos WHERE Id_Categoria = " & oRs1.Fields("Id_Categoria")
Set oRs2 = oCon2.Execute(SQL)

Do While Not oRs2.EOF

Response.Write("Código: " & oRs2.Fields("Id_Producto") & " - Nombre: " & oRs2.Fields("Nombre") & "<br>")

oRs2.MoveNext
Loop
oRs12.Close

oRs1.MoveNext
Loop

oRs1.Close

oCon1.Close
oCon2.Close

Set oRs1 = Nothing
Set oRs2 = Nothing
Set oCon1 = Nothing
Set oCon2 = Nothing


Espero que te sirva de algo.
Cualquier cosa preguntá.

Nos vemos!