Function para fechar conexões

[mkboy 1]

É possível fazer uma function para fechar as conexões do sistema?

E como faço?

 

To fazendo assim:

 

ASP

[*] rs_n.close : set rs_n = nothing

 

[*] rs_usuarios.close : set rs_usuarios = nothing

 

[*] RS09.close : set RS09 = nothing

 

[*] RS_09a.close : set RS_09a = nothing

 

[*] Rs_09b.close : set Rs_09b = nothing

 

[*] Rs_09c.close : set Rs_09c = nothing

 

[*] Call fecha_dbkr

 

Entao queria fazer assim: Colocar no lugar do teste acima..

 

ASP

[*]

 

[*]Call fecha_conexoes(rs_01, rs_02, rs_03) 

 

[*]

 

E crair a function assim:

 

ASP

[*]

 

[*]Function Fecha_conexoes(var)

 

[*] var.close : Set var = Nothing

 

[*]end Function

 

[*]

 

Funciona assim?

[explore 3]

Prefiro que você faça um Sub em uma pagina individual!depois chama poe Include e a rotina!Conecta()Desconecta()

[mkboy 1]

Por que?Pode dar um exemplo?

[explore 3]

no meu caso eu faria assim:Cria uma Sub para conectarSub Conecta()Conexao do BD Aquiend subSub Desconecta()rs.closeset rs = nothingend subnas paginas que deseja fechar você coloca o include da pagina e desconecta ele ou conecta tipo:Pagina.asp<%<!--#include file ="conexao.asp"-->Conecta()Sql = "select * from teste"...........'depois de tudo desconectaDesconecta()%>

[mkboy 1]

Sim, assim eu ja faço!

 

Só que eu tenho varias conexoes em uma function:

set rs_01 = conexao.execute(SQL_01)

set rs_02 = conexao.execute(SQL_02)

set rs_03 = conexao.execute(SQL_03)

set rs_04 = conexao.execute(SQL_04)

set rs_05 = conexao.execute(SQL_05)

set rs_06 = conexao.execute(SQL_06)

E quero fechar todas em uma function só:

ASP

[*]

 

[*]Function fecha_conexoes(rs_01,rs_02,rs_03,rs_04,rs_05,rs_06,)

 

[*]

E na function ficaria tipo assim:

ASP

[*]

 

[*]Function fecha_conexoes(var)

 

[*]var.close : set var = nothing

 

[*]end function

 

Assim fechando todas de uma vez!

Gostaria de saber se isso funcionar e se é assim a forma correta de fazer?

[explore 3]

e pq você naum fecha todas em um SUB??

[mkboy 1]

Assim funciona?

 

ASP

[*]Sub fecha_conexoes(var)

 

[*]

 

[*]var.close : set var = nothing

 

[*]

 

[*]end sub

[explore 3]

Creio que funciona sim!A unica coisa que estára mudando é o tantro de conexoes a ser fechadas

[explore 3]

Sub fecha_conexoes()var.closeset var = nothing'------var2.closeset var2 = nothingend sub

[Eliézer Zarpelão 0]

tem como fechar conexões automaticamente ?Eliézer

[jrcardozo 4]

if conexao.state<>0 then consexao.closeset conexao=nothingend if