Passare un recordset ad una funzione

[pictor]

Scusatemi ... sarà la stanchezza ma non riesco più a passare un recordset ad una funzione...

Ho una Function che dovrebbe ricevere un recordset come parametro (in modo da non dover rieseguire la solita query).

Il problema è che se ci provo mi restituisce l'errore

Tipo di errore:
ADODB.Field (0x80020009)
L'operazione non è consentita se l'oggetto è chiuso.

Non capisco

La dichiaro così

Function Sincronizzato(ByRef Rs, connAD)

e la richiamo così

If Sincronizzato(Rs, objConnection) Then
....

Dove sbaglio?

Thanks

[optime]

se ti dà quell'errore, stai lavorando su un recordset che in quel momento è chiuso...

[pictor]

Il recodset NON è chiuso!
O almeno a me così sembra...

            MySql = "SELECT * FROM TbDipDipendenti"
            Rs.Open MySql, Conn, 3, 1 

            If Not RsAD.Eof then
                If Not Rs.Eof Then
                    Do while Not RsAD.Eof
                        Rs.MoveFirst
                        Esiste = False
                        Do while Not Rs.Eof
                            If Rs("Login") = RsAD("sAMAccountName") Then
                                Esiste = True
                                Exit Do
                            End If
                            Rs.MoveNext
                        Loop
                        
                        If Esiste Then
                            Response.write "<tr style='background-color:" & ColorSQL & ";'><td>" & Rs("Login") & "</td>"
                            Response.Write "<td>" & RsAD("CN") & "</td>"
                            If Sincronizzato(Rs, objConnection) Then
                                Response.Write "<td align=center>S&igrave;</td>"
                            Else
                                Response.Write "<td align=center>No</td>"
                            End If
                        Else
........ 

Sbaglio?

[wallrider]

e se fai

...
Rs.MoveFirst 
If Sincronizzato(Rs, objConnection) Then 
    Response.Write "<td align=center>S&igrave;</td>" 
  Else 
    Response.Write "<td align=center>No</td>" 
End If
...

???

[pictor]

Ovviamente non cambia niente
Non è mica che gli passa l'EOF.
Anche se lo raggiunge punta sempre a un record.

E finchè non lo chiudo NON MI DEVE dare problemi! :doh:

Non ha senso.....

La sintassi è corretta?

[santino83_11_04]

prova a cambiare

If Sincronizzato(Rs, objConnection) Then

ifn

rs.movefirst
If Sincronizzato(Rs, objConnection) Then

[pictor]

Già fatto... non risolve...

Comunque ho risolto in un altro modo..... quindi no problem

[wallrider]

Originariamente inviato da pictor
Già fatto... non risolve...

Comunque ho risolto in un altro modo..... quindi no problem

cioè?

[pictor]

Mi sono rifatto la query dentro la funzione

[santino83_11_04]

Originariamente inviato da pictor
Mi sono rifatto la query dentro la funzione

nella funzione avevi messo

function nomefunzione(byref objRecordet, stringa_connessione)

?