Automatizando fechamento de objetos ADO

Automatizando fechamento de objetos ADO

Essa sub fecha objetos automaticamente !

Apenas criar os objetos de forma padrão

(con --> ADODB.Connection)

(rs --> ADODB.Recordset)

'Fecha BD
Sub FechaDB
 if ISObject(con) then
  if con.State = adStateOpen then
   con.Close
  end if
  set con = nothing
 End If

 if IsObject(recset) then
  if recset.State = 1 then
   recset.Close
  end if
  set recset = nothing
 End If

End Sub

Esta matéria foi postada originalmente no ASP4Developers por César M. Conceição (site), que na época era "Analista / Programador Pleno, mais de 4 anos de experiência no desenvolvimento de sistemas online.(HTML/XHTML/ASP/JAVASCRIPT/DHTML/MS SQL/FIREBIRD/INTERBASE/ACCESS)". Hoje, vai saber...