USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página