quinta-feira, 17 de abril de 2003

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...

0 comentários: