[vb6] oggetto recordset ADO

[memo63]

con ADO apro un archivio e una tabella con " Rs.open tabella ".
Esiste una funzione, oppure un comando, che controlla se un oggetto recordset è aperto o chiuso? In pratica vorrei sviluppare un codice che, chiudendo un form, mi controlla se esistono oggetti recordset aperti, se si li chiude altrimenti ignore il comando .close
Grazie

[oregon]

Usa la proprieta' State dell'oggetto Recordset ...

[LMondi]

Ciao memo63,
come ti è gia stato segnalato da Oregon devi usare la proprietà State, se vuoi la funzione da usare è la seguente:
- Da inserire in un Modulo Bas

'Verifica lo stato:
Public Function GetState(intState As Integer) As String
    Select Case intState
        Case adStateClosed
            GetState = "adStateClosed"
        Case adStateOpen
            GetState = "adStateOpen"
    End Select
End Function

Poi per chiudere la connessione ed il RS, nella routine corrente:

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

Ciao.

[memo63]

Grazie
questo forum è veramente utile e prezioso....

[oregon]

Scua LMondi, ma perche' non direttamente

'Chiude e cancella il recordSet:
If RST.State = adStateOpen Then
   RST.Close
   Set RST = Nothing
End If

e cosi' via ... ?

[LMondi]

Ciao Oregon,

Scua LMondi, ma perche' non direttamente

Sì, certo, il tutto è più immediato; personalmente, alcune volte, uso la funzione per verificare lo stato della connessione, ma considerato che la funzione di cui trattasi viene eseguita correttamente e visto che era anche una richiesta ...