[VB 6] Passare recordSet ADO a Function

[raffaeu]

Ciao volevo sapere con VB 6 il corretto codice per passare un ObjRs ad una funzione.
Io pensavo

Nella Routine Principale
---  .  ---  .  ---  .  ---  .  ---
Dim objRs as New ADODB.RecordSet
objRs.Open .....
Call Pass(objRs)

Funzione
---  .  ---  .  ---  .  ---  .  ---
Public Function Pass(ByVal objRs2 as new ADODB.RecordSet = Empty)
     For x = 1 To objRs2.RecordCount
         Print objRs2(0).value
     Next
End Function

[xegallo]

dim rs as new adodb.recordset
call nomefunz(rs)


function nomefunz (Rec as adodb.recordset)
'elaborazioni
end function

[raffaeu]

Ma nel tuo modo xe uso sempre e solo un Rs giusto? Perchè il mi scopo è proprio quello di usare un solo oggetto.
Grazie.

[cassano]

passandolo cosi si passa per riferimento vero ???

[raffaeu]

Si si serve per non aprire piu' recordSet.
Inoltre se metti ByVal Rs as ADODB.RecordSet = Empty dovrebbe essere ancora piu' veloce perchè lasci la memoria libera o qualcosa di simile.
Lo avevo letto in giro ma non mi ricordo piu' dove.

[xegallo]

Originariamente inviato da raffaeu
Si si serve per non aprire piu' recordSet.
Inoltre se metti ByVal Rs as ADODB.RecordSet = Empty dovrebbe essere ancora piu' veloce perchè lasci la memoria libera o qualcosa di simile.
Lo avevo letto in giro ma non mi ricordo piu' dove.

come può essere più veloce se fai una copia dell'oggetto piuttosto di usarne un puntatore

[raffaeu]

Scusa se rompo ma non capisco.
IL codice che hai postato usa una copia o un puntatore?
Che codice devo usare per la copia e che codice per il puntatore?

Scusa xe ma ho proprio bisogno di capire questo concetto.
Grazie

[raffaeu]

Domanda :

"Adesso passo il RecordSet a due funzioni, la seconda, mi risponde che RecordCount è ancora = 13 ma non sputa fuori i records ... Se inverto le funzioni, succede la stessa cosa."

Codice :

AS400Rs.CursorLocation = adUseClient
AS400Rs.CursorType = adOpenStatic
AS400Rs.Source = "SELECT..." 
AS400Rs.Open
If (AS400Rs.RecordCount = 0) Then
AS400Rs.Close
Else
'---PDF
bAnswer = ExportPDF(AS400Rs, strRoot, "A")
'---EXCELL
bAnswer = ExportXLS(AS400Rs, strRoot, "A")


--- . --- . --- . --- . --- . --- . ---

Function ExportXLS(ByVal objRS As ADODB.Recordset, ByVal Root As String, ByVal bType As String) As Boolean
...
...
Set .DataControl1.Recordset = objRS

Entrambe le funzioni sono uguali una per XLS e una per PDF, ma la seconda che riceve il objRS, mi risponde un Report vuoto, al contrario se apro ogni volta l' RS entrambi i report sono ok ...

Suggerimenti?

[cassano]

inanzitutto io penso che devi passare il recordset per riferimento ,quindi passi il puntatore alla memoria, perche non facendo cosi tu fai una copia del recordset e le operazione successive risultano distaccate fra loro , nel senso che è come se avessi 2 recordset ,l'originale e la copia indipendenti fra loro

[raffaeu]

cassano puoi farmi un esempio