Sub

[mkboy 1]

Eu tenho uma página pra conexão, e faço o include nas demais pagina!

Só que assim a cada vez que a página é solicitada a conexão tb é solicitada, então to colocando minha conexão numa sub e vou chama-la qd necessaria no site.

 

Mas acho que algo não ta correto.

 

Criei a sub com a conexao:

 

ASP [/tr][tr]

<%

sub abre_conexao

url_conexao = Server.MapPath("meubanco.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

end sub

 

sub fecha_conexao

Conexao.close

Set Conexao =nothing

end sub

%>

[/tr]

 

E na minha pagina, to fazendo assim:

 

ASP [/tr][tr]SQL = "Select * from tabela"

Call abre_conexao

Set RS = conexao.execute(SQL) 'linha 22

[/tr]

 

Só que deu este erro:

 

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01A8)Objeto necessário: ''/galery/Comercial/Curuça/admin/index.asp, line 22

Eu to usando a page normal, só quando coloquei a sub e o Call_abre_conexao que deu erro!

[FabricioGomes 0]

a variavel conexao so existe dentro da sub, voce deve declara-la no codigo para utiliza-la.. provavelmente é isso...

[mkboy 1]

Mas eu não uso Option Explicit!Mesmo assim precisa declarar?Sem colocar as tags da sub funciona normal!

[FabricioGomes 0]

veja, a variavel foi criada dentro da sub, entao é uma variavel local...

 

declare a variavel conexao antes de chamar a sub... assim:

 

SQL = "Select * from tabela"Dim conexaoCall abre_conexaoSet RS = conexao.execute(SQL) 'linha 22

ve se funciona assim....

 

abraços

[mkboy 1]

:) Funcionou!

 

Eu criei a sub para fechar tb!

 

ASP [/tr][tr]sub fecha_conexao

Conexao.close

Set Conexao =nothing

end sub

[/tr]

 

Então no fim da página eu coloco:

 

<% Call fecha_conexao %>

 

E resolvido?

[FabricioGomes 0]

;) quando precisar estamos ai...

[mkboy 1]

Valeu!