Fechando todas as variáveis
objeto e liberando memória...
Quando você usa qualquer variável objeto em sua aplicação para banco dados (DAO, RDO ou ADO ) não deve esquecer de fechar todos os arquivos (banco de dados , recordsets , conexões ) antes de sair , pois mesmo que todos os ponteiros para estes objetos sejam automaticamente destruídos quando você encerra sua aplicação, se você não fechar explicitamente todos eles , as conexões usadas pelos arquivos ( recordset/banco de dados) não serão liberadas de imediato e podem não ser realocadas pelo sistema operacional.
Então antes de sair , feche a porta...
Abaixo temos um pequeno trecho de código colocado no evento Form_Unload que fecha todos os objetos e libera a memória usada por estes objetos.
Private Sub
Form_Unload(Cancel As Integer) ' fecha os objetos e libera memoria On Error Resume Next Dim ws As Workspace Dim db As Database Dim rs As Recordset ' For Each ws In Workspaces For Each db In ws.Databases For Each rs In db.Recordsets rs.Close Set rs = Nothing Next db.Close Set db = Nothing Next ws.Close Set ws = Nothing Next ' End Sub |
Até mais ...