Chiusura RecordSet automatica a chiusura connessione (?)

[cxrnvs]

Set objconnPI = CreateObject("ADODB.Connection")
Set objrsPI = CreateObject("ADODB.Recordset")

strconnPI = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & App.Path & "\UsaMeteonorm.mdb"

objconnPI.open strconnPI
objrsPI.open "select * from pianoinclinato where id = '" & cont & "'", objconnPI

While Not objrsPI.EOF

azimuth = objrsPI("azimuth")
inclinazione = objrsPI("inclinazione")

objrsPI.movenext
Wend

objconnPI.Close
**************objrsPI.Close*********************

objrsPI = Nothing
objconnPI = Nothing


in questo frammento interrogo semplicemente una tabella da un DB.
quando chiudo il recordset (objrsPI) il messaggio di errore e' "operation not allowed when the object is closed".

I recordset si chiudono da soli? :master:

[oregon]

Cambia la sequenza in questo modo

objrsPI.Close
Set objrsPI = Nothing

objconnPI.Close
Set objconnPI = Nothing

[chico62]

Set objrsPI = Nothing
Set objconnPI = Nothing

Ciauz

Chico

[xegallo]

Originariamente inviato da cxrnvs


I recordset si chiudono da soli? :master:

se chiudi prima la connessione si

[chico62]

Credo che in ogni caso sia comunque buona norma rilasciare l'oggetto settandolo a Nothing, anche se chiuso dalla chiusura della connessione.

Ciauz

Chico

[cxrnvs]

Originariamente inviato da xegallo
se chiudi prima la connessione si

e' vero.
non me ne ero accorto!

[LMondi]

Oltre a quello che ti hanno detto Oregon e chico62, se vuoi verificare prima di chiudere puoi usare il seguente codice:

'Chiude e cancella il recordSet:
        If GetState(objrsPI.State) = "adStateOpen" Then
            objrsPI.Close
            Set objrsPI = Nothing
        End If
        'Verifica e Chiude la connessione:
        If GetState(objconnPI.State) = "adStateOpen" Then
            objconnPI.Close
            Set objconnPI = Nothing
        End If

[oregon]

@LMondi
Se proponi un codice devi anche proporre quello delle funzioni usate.
La GetState non e' di VB e non la mostri ... In realta' e' piu' semplice scrivere

If objrsPI.State = adStateOpen Then
  objrsPI.Close
  Set objrsPI = Nothing
End If

If objconnPI.State = adStateOpen Then
  objconnPI.Close
  Set objconnPI = Nothing
End If

[cxrnvs]

grazie a tutti!

[sspintux]

...a quanto già detto mi permetto di aggiungere che,
volendo contemplare anche il caso di operazioni asincrone,
il codice più generale per verificare se un recordset (o connessione) è aperto
mi sembra essere :

'State è una maschera di bit
if (oRs.State And adStateOPen) = adStateOpen then etc...

Ciao sspintux