COMPONENTE PARA VERIFICAR RECORDSETS

MOACIRPFAU 13/07/2005 13:27:42
#93925
Olá !!!

Gostaria de saber se existe algum componente ou algo parecido que verifique se existe algum recordset aberto que não foi devidamente fechado.

obrigado
PAGANINI 13/07/2005 13:33:05
#93931
Não mais pode fazer isso

Private Sub FechaTodosRECORDSET()
    Dim Gerenciador As Workspace
    Dim Banco As Database
    Dim RS As Recordset
    For Each Gerenciador In DBEngine.Workspaces
        For Each Banco In Gerenciador.Databases
            For Each RS In Banco.Recordsets
                RS.Close
                Unload RS
                Set RS = Nothing
            Next
            Banco.Close
            Unload Banco
            Set Banco = Nothing
        Next
        Gerenciador.Close
        Unload Gerenciador
        Unload Gerenciador
    Next
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar