Marito AZ, tu con tus cervezas y yo aqui programando
Bueno, te cuento, despues de pensarlo un poco, se me ocurrio hacer una coleccion de conexiones, no se si sera el approach que necesitas, pero esto funciona:
Código:
<%
Function ConectionSet(db_nombre)
Dim arr()
arrNombres = split(db_nombre, ":.")
for j = 0 to uBound(arrNombres)
cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(".") & "\" & arrNombres(j)
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open cst
Redim Preserve arr(j+1)
arr(j) = ObjConn
next
erase arrNombres
ConectionSet = arr
End Function
conections = ConectionSet("base1.mdb:.base2.mdb")
strSQL = "SELECT * FROM tbl_date"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, conections(0), 3, 3
while not rs.EOF
Response.Write rs(1) & "<br>"
rs.MoveNext
wend
Response.Write "<hr>"
strSQL = "SELECT * FROM cities"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open strSQL, conections(1), 3, 3
while not rs2.EOF
Response.Write rs2(2) & "<br>"
rs2.MoveNext
wend
%>
A la postre a lo mejor resulta lo mismo que "hard-codearlas" pero bueno, esta bien para perder el tiempo un rato...
Salu
