Recordset multipli in include

[Freedom]

Ciao

in un include ho un apertura rs tipo:

Sub SubOpenRS
Set ObjRS = Server.CreateObject("ADODB.RecordSet")
End Sub


il problema è che se all'interno di un recordset nel voglio aprire un altro, usando lo stesso include ^, ovviamente mi va in conflitto.

Vorrei capire come posso adoperare la stessa sub per tutti i recordset che voglio aprire

[Roby_72]

Puoi utilizzare quella SUB solo se prima provvedi a distruggere l'oggetto ObjRS creato altrimenti non puoi aprirne un altro se non con un altro nome.

roby

[Freedom]

Originariamente inviato da Roby_72
Puoi utilizzare quella SUB solo se prima provvedi a distruggere l'oggetto ObjRS creato altrimenti non puoi aprirne un altro se non con un altro nome.

roby

Lo so... è appunto questo il problema: come poter riutilizzare la stessa sub per tutti i rs.

Coiè, dovrebbe poter venire una cosa simile: RS1, RS2,...

[Roby_72]

Sub SubOpenRS (oRs)
Set oRS = Server.CreateObject("ADODB.RecordSet")
End Sub

call SubOpenRS (objRS)
call SubOpenRS (objRS1)
call SubOpenRS (objRS2)

Roby

[Freedom]

Ciao Roby,

facendo come mi suggerivi tu:

Sub SubOpenRS(oRs)
Set oRS = Server.CreateObject("ADODB.RecordSet")
End Sub


StrSQL = "SELECT * FROM tabella"
SubOpenRS("oRs1")
ObjRS .Open StrSQL, ObjConn ,3,3

Do While Not ObjRS.EOF
...
ObjRS.MoveNext
Loop
...
chiudo RS
....


mi da questo errore: Errore di run-time di Microsoft VBScript (0x800A01F4)
Variabile non definita: 'ObjRS'

[Roby_72]

Sub SubOpenRS(oRs)
Set oRS = Server.CreateObject("ADODB.RecordSet")
End Sub


StrSQL = "SELECT * FROM tabella"
SubOpenRS(ObjRS)
ObjRS .Open StrSQL, ObjConn ,3,3

Do While Not ObjRS.EOF 
...
ObjRS.MoveNext 
Loop 
...
chiudo ObjRS

[Freedom]

Originariamente inviato da Roby_72

Sub SubOpenRS(oRs)
Set oRS = Server.CreateObject("ADODB.RecordSet")
End Sub


StrSQL = "SELECT * FROM tabella"
SubOpenRS(ObjRS)
ObjRS .Open StrSQL, ObjConn ,3,3

Do While Not ObjRS.EOF 
...
ObjRS.MoveNext 
Loop 
...
chiudo ObjRS

Ora mi da: Errore di run-time di Microsoft VBScript (0x800A01F4)
Variabile non definita: 'objRS'

[Roby_72]

Non lo puoi fare...
La sub usala solo per aprire e chiudere la connessione.
Per i recordset fai prima a dichiararli e crearli quando ti servono.
Risparmi righe di codice e velocità di esecuzione.
Tanto sei costretto a fare una sub per ognuno di essi.

Roby

[santino83_11_04]

due esempi:

apro un recordset avendo già aperto una connessione:

'apro recordset
sub oRs(Nome,sql,op1,op2)
	
	if Nome="" then Nome="rs"
	
	dim rsTemporaneo
	set rsTemporaneo=server.CreateObject("adodb.recordset")
	rsTemporaneo.open sql,conn,op1,op2
	
	ExecuteGlobal "Dim " & Nome
	Execute "Set " & Nome & "=rsTemporaneo"
	Set rsTemporaneo = Nothing

end sub

set conn=server.createObject("adodb.connection")
conn.open stringa_connessione

oRs "pippo","select * from tabella",1,1

while not pippo.eof

pippo.movenext
wend

pippo.close: set pippo=nothing
conn.close: set conn=nothing

altra variante, passando alla funzione il riferimento alla connessione:

'apro recordset con connessione passata da me
sub oRsConn(Nome,sql,byref connA,op1,op2)
	
	if Nome="" then Nome="rs"
	
	dim rsTemporaneo
	set rsTemporaneo=server.CreateObject("adodb.recordset")
	rsTemporaneo.open sql,connA,op1,op2
	
	ExecuteGlobal "Dim " & Nome
	Execute "Set " & Nome & "=rsTemporaneo"
	Set rsTemporaneo = Nothing

end sub

set secondaConnessione=server.createObject("adodb.connection")
secondaConnessione.open stringa_connessione_2

oRsConn "sec_recordset","select * from tabella",secondaConnessione,1,1

while not sec_recordset.eof
..
..