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

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Fechar todos os Ado Control do formulário
Postada em 16/2/2006 por Dicky            
Muito bom para evitar aquivos truncados...

no evento unload do seu formulário:

resposta=descarregaAdo(<nomedoformulario>)

no módulo (.bas) ou no próprio form inclua estas funçoes:

Function FinalizaTabela(ByRef wRecordset As ADODB.Recordset)
  If Not wRecordset Is Nothing Then 'caso vasia não entra
     wRecordset.Close                'finaliza
     Set wRecordset = Nothing        'libera da memória
  End If
End Function

Function DescarregaAdo(Formulario As Form)
    Dim ControleAdo As Control
    For Each ControleAdo In Formulario.Controls  '' lê os controles do form
        If TypeOf ControleAdo Is Adodc Then   '' verifica se é ADO
          resposta = FinalizaTabela(ControleAdo.Recordset)   '' chama a função para_ finalizar a tabela
        End If
    Next
End Function

 


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