🚀 go-pugleaf

Ti da errore semplicemente perch� tenti di aprire un recordset gi� aperto o
di chiudere un recordest gi� chiuso.

Ci sono diverse strade per evitare questo.
La prima � di aprire un recordset, completare l'operazione che si vuole
svolgere e poi chiuderlo immediatamente, eviti cosi di perderti.

L'altra � quella di verificare prima di chiudere o di aprire un recordset il
suo stato attuale con l'istruzione:

if nomeAdodb.recordset.state = adStateClosed then
    nomeAdodb.recordset.open
end if

oppure

if nomeAdodb.recordset.state = adStateOpen then
    nomeAdodb.recordset.Close
end if

Ciao Matteo

"Saimon" <saimon181072@yahoo.it> ha scritto nel messaggio
news:bg84c7$v3p$1@newsreader.mailgate.org...
> Come mai a volte il programma mi da errore perch� l'oggetto � aperto e a
> volte l'oggetto � chiuso ???
>
> Non ho riportato la funzione di apertura connessione al DB...
>
> Dim cn as New ADODB.Connection
> Dim rs as New ADODB.Recordset
>
> On error resume next
>
> Sql = "SELECT * FROM calendario"
>   rs.open sql,cn,adOpenStatic, adLockOptimistic
>   If Err.Number <> 0 Then
>     MsgBox Err.Description
>     Exit Function
>   End If
>
> If Not rs.EOF Then
>     Sql = "DELETE * from CALENDARIO"
>     rs.open sql,cn,adOpenStatic, adLockOptimistic
>     If Err.Number <> 0 Then
>       MsgBox Err.Description
>       Exit Function
>     End If
>   End If
>
>   Sql = "SELECT * FROM calendario"
>   rs.Open Sql, cn, adOpenStatic, adLockOptimistic
>   If Err.Number <> 0 Then
>     MsgBox Err.Description
>     Exit Function
>   End If
>
>
>