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
