|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Rotina que fecha e descarrega rescordset da memoria (ADO X DAO)
|
 |
|
|
|
Postada em 30/12/2003 por Martini
Quando se trabalha muito com tabelas temporárias, deve-se ter a preocupação em libera-las da memoria, por isso fiz essa rotina.
'Sub finaliza tabela
'ADO
Public Sub FinalizaRst(ByRef pRecordset As ADODB.Recordset)
If Not pRecordset Is Nothing Then 'se nao esta descarregada
pRecordset.Close 'fecha conexao
Set pRecordset = Nothing 'libera da memória
End If
End Sub
'DAO
Public Sub FinalizaRst(ByRef pRecordset As Recordset)
If Not pRecordset Is Nothing Then 'se nao esta descarregada
pRecordset.Close 'fecha conexao
Set pRecordset = Nothing 'libera da memória
End If
End Sub
|
|
|
|
|
