recordset in una function

[mrcanoa]

AriCiao a tutti,

volevo mettere in una function una query che devo utilizzare in + pagine:
Function getPaziente(IDpaziente)
Call openConnection
sql = "Select *" &_
" From TBL_Anagrafica" &_
" Where Cln_IDAnagrafica = " & IDpaziente
Set objRsPaziente = objConn.Execute(sql)
getPaziente = objRsPaziente

Call closeConnection
End Function

e nelle pagine richiamarla:

appo = getPaziente(2)

appo.EOF, appo("NomeCampo")....
Come potrei muovermi? Ignorantissimo in asp....

[Roby_72]

Fai una sub ed il risultato della query passalo come OUTPUT alla sub stessa:

Call openConnection
Sub getPaziente(IDpaziente,ByRef arrPaziente)

sql = "Select *" &_
" From TBL_Anagrafica" &_
" Where Cln_IDAnagrafica = " & IDpaziente
Set objRsPaziente = objConn.Execute(sql)
if not objRsPaziente.EOF then
arrPaziente = objRsPaziente.GetRows()
else
arrPaziente = null
end if
set objRsPaziente = nothing
End Sub
Call closeConnection

In arrPaziente hai un array a due dimensioni.

Roby

[santino83_11_04]

function getPaziente(IDpaziente,byref objConn)

sql = "Select *" &_
" From TBL_Anagrafica" &_
" Where Cln_IDAnagrafica = " & IDpaziente

set getPaziente= objConn.Execute(sql)

end function



...
...
...

Call openConnection

set tuoRecordset=getPaziente(idPaziente,objConn)