Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Robex 171

Include de Conexão

Por , em ASP Clássico

Recommended Posts

Robex 171    0

Robex 171
Postado

Não estou conseguindo usar uma conexão feita dentro de um include...

 

include

<%sub abre_oConn  Set Conexao = Server.CreateObject("ADODB.CONNECTION")  oConn ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\server\laboratorio\messenger\db\messenger.mdb"  Conexao.open oConnend subsub fecha_oConn	oConn.closeend sub%>

página

<%option explicit%> <!-- #include file="include/oConn.asp" --> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><%call abre_oConn%><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Messenger</title></head><body></body></html>

Erro:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01F4)

Variável não definida: 'abre_oConn'

/server/laboratorio/messenger/messenger.asp, line 6

 

 

O que faço?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Robex 171    0

Robex 171
Postado

Declarei e o mudou...

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

/server/laboratorio/messenger/messenger.asp, line 7

 

Alterações...

<%option explicit%> <!-- #include file="include/oConn.asp" --> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><%dim abre_oConncall abre_oConn%><html xmlns="http://www.w3.org/1999/xhtml"><head>
...

Compartilhar este post

Link para o post
Compartilhar em outros sites

<%Rafael%>    0

<%Rafael%>
Postado

Na verdade você deve declarar na página em que cria o Sub, e não na que chama...

 

Além disso, já verifiquei outro erro que irá acontecer.. e jádei uma alterada no código.. vê como ficaria...

 

<%dim abre_oConn, fecha_oConn, Conexao, oConnSet Conexao = Server.CreateObject("ADODB.CONNECTION")oConn ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\server\laboratorio\messenger\db\messenger.mdb"Sub abre_oConn	Conexao.Open oConnEnd subsub fecha_oConn	Conexao.Closeend sub%>

Vê ai e qualquer coisa dá um grito!

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Robex 171    0

Robex 171
Postado

Eu tirei o

 

dim abre_oConn, fecha_oConn()

 

pois estava dando erro de redefinição

 

dim Conexao, oConnSet Conexao = Server.CreateObject("ADODB.CONNECTION")oConn ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\server\laboratorio\messenger\db\messenger.mdb"Sub abre_oConn()	Conexao.Open oConn   <--------- Linha 8End subsub fecha_oConn()	Conexao.Closeend sub%>

Agora esta dando este erro:

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xec4 Thread 0xfb4 DBC 0x1030ffc Jet' do Registro.

/server/laboratorio/messenger/include/oConn.asp, line 8

Compartilhar este post

Link para o post
Compartilhar em outros sites

<%Rafael%>    0

<%Rafael%>
Postado

Não está encontrando o banco de dados, ou você está trabalhando com ele aberto...Verifique se o caminho do banco está correto ou se o mesmo está fechado!Abraços :D

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito