|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Fechando todas as variáveis objeto e liberando memória...
|
 |
|
|
|
Postada em 25/8/2003 por Ð@®l@n
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
|
|
|
|
|
