Creare Variabili per i recordset

[santino83]

Salve,

non so se il titolo è giusto, cmq mi spiego. Mettiamo caso che io ho questa sub

sub SetRecordset(nome,sql,conn)

set nome=server.createobject("adodb.recordset")
nome.open sql,conn,3,3

end sub

ovvero una sub che mi restiuisce un oggetto recordset. Esiste un modo che se io chiamo la sub così:

SetRecordset('pippo',sql,conn)

while not pippo.eof.,...

effettivamente mi restituisca un recordset di nome pippo? Sicuramente il discorso è fallato, quindi mi piacerebbe avere magari qualche dritta al riguardo

grazie a tutti

[Baol74]

Solitamente si fa così:

Function getRs(ByRef Conn,Sql)
Set getRs= Conn.Execute(Sql)
End Function

Set Pippo=GetRs(Conn,"Select * From Tabella")

Se vuoi Creare direttamente pippo, prova così, anche se me pare un po' inutile:

Sub CreateRecordset(Nome,Sql,byRef Conn)
Dim Rs
GlobalExecute "Dim " & Nome
Set Rs=Conn.Execute(Sql)
Execute "Set " & Nome & "=Rs"
Set Rs = Nothing
End Sub

CreateRecordset "Pippo","Select * From Tabella",Conn

'Qui avrai la variabile pippo creata contenente Rs.

[santino83]

Sub CreateRecordset(Nome,Sql,byRef Conn)
Dim Rs
GlobalExecute "Dim " & Nome
Set Rs=Conn.Execute(Sql)
Execute "Set " & Nome & "=Rs"
Set Rs = Nothing
End Sub

CreateRecordset "Pippo","Select * From Tabella",Conn

'Qui avrai la variabile pippo creata contenente Rs.

ohh ecco come si usa execute...non l'avevo capito nella guida di vbscript.

Grazie mille ora provo il tutto lo so che sembra inutile (e lo è probabilmente), ma mi ero rotto di scrivere ogni volta

set ...=server.createobject...

e allora ho deciso per la funzione

Grazie