Sub per aprire più database

[Freedom]

Ciao,

avendo l'esigenza di aprire nella stessa pagina diversi database e non volendo 'incasinare' più di tanto la pagina, vorrei mettere la connessione al database in una sub ed inserirla con una variabile indicante il numero della relativa connesione, così:


Dim Conn1, Conn2, Conn3, Conn4

NumeroConnesione = 1

Sub SUBConn(NumeroConnessione)
Set Conn&""&NumeroConnessione = Server.CreateObject("ADODB.Connection")
conn&""&NumeroConnessione .Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:\inetpub\wwwroot\db\prova.mdb"
End Sub


Ora, non so se si possa fare, ma non riesco a concatenare l'oggetto 'conn' alla variabile 'NumeroConnessione'.

[Santino83_02]

execute "set conn" & numeroconnessione & "=server.createobject(......)"
execute "conn" & numeroconnessione & ".open ....."

[Mems]

function opeConnection(theConn)
set theConn = server.createObject("ADODB.Connection")
theConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.maPath("\db\prova.mdb")
end function

function closeConnection(theConn)
theConn.close
set theConn = nothing
end function

call openConnection(conn)
sql = "SELECT * FROM tabella1"
set rs = conn.execute(sql)

call closeConnection(conn)

[Santino83_02]

allora, per precisione:

function opeConnection(theConn, strConnessione)
set theConn = server.createObject("ADODB.Connection")
theConn.open strConnessione
end function

visto che lui la vuole aprire su database diversi

[Mems]

Originariamente inviato da Santino83_02
allora, per precisione:

function opeConnection(theConn, strConnessione)
set theConn = server.createObject("ADODB.Connection")
theConn.open strConnessione
end function

visto che lui la vuole aprire su database diversi

function opeConnection(theConn, thePath)
set theConn = server.createObject("ADODB.Connection")
theConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.maPath(thePath)
end function

function closeConnection(theConn, "\db\prova.mdb")
theConn.close
set theConn = nothing
end function

call openConnection(conn)
sql = "SELECT * FROM tabella1"
set rs = conn.execute(sql)

call closeConnection(conn)

[Santino83_02]

e se volesse usare un db mysql?

[Mems]

Originariamente inviato da Santino83_02
e se volesse usare un db mysql?

Buona Pasqua!