Ir para conteúdo

POWERED BY:

Arquivado

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

bartt

falha ao fechar a conexão?

Por , em ASP Clássico

Recommended Posts

bartt    0

bartt
Postado

olhem o codigo

 

<% LANGUAGE=VBScript%><html><head><title> </title></head><body> <%Dim  rsRegistros, comandoSQLcaminho="C:\inetpub\wwwroot\db1.mdb"conexao ="dbq="&caminho&";driver={microsoft access driver (*.mdb)}"set con = server.createobject("adodb.connection")con.open conexao  Set rsRegistros = Server.CreateObject("ADODB.RecordSet")  comandoSQL = "SELECT * from tarifas ORDER BY c_demanda DESC"Set RS = con.EXECUTE(comandoSQL)%><table  border="1" cellspacing="0" cellpadding="0">  <tr> 	<td>distribuidora</td>	<td>Demanda Convencional</td>  </tr>  <% DO WHILE NOT RS.EOF %>  <tr> 	<td><% = RS("distribuidora")%></td>	<td><% = RS("c_demanda")%></td>  </tr>  <%  RS.MOVENEXT : LOOP  %></table><%con.CloseSet con = Nothing%></body></html>

e Notei que quando eu rodo ele , beleza lista direitinho , mais ai quando eu volto para a anterior que chama ela e chamo ela novamente da um erro na linha da coneção(con.open conexao).

 

Duvida:estou fechando a coneção erradamente?

 

Grato

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

você está fazendo correto, agora acho que era só a arrumação:

Faltou o @ do Language e retirei o recordset que você ñ estava usando!

 

copie e cole o código abaixo para testar novamente!

<%@ LANGUAGE="VBScript"%>
<html>
<head>
<title> </title>
</head>
<body>
<%
Dim  rsRegistros, comandoSQL

caminho="C:\inetpub\wwwroot\db1.mdb"
conexao ="dbq="&caminho&";driver={microsoft access driver (*.mdb)}"
set con = server.createobject("adodb.connection")
con.open conexao
 
comandoSQL = "SELECT * from tarifas ORDER BY c_demanda DESC"
Set RS = con.EXECUTE(comandoSQL)
%>

<table  border="1" cellspacing="0" cellpadding="0">
  <tr>
	<td>distribuidora</td>
	<td>Demanda Convencional</td>
  </tr>
  <% DO WHILE NOT RS.EOF %>
  <tr>
	<td><% = RS("distribuidora")%></td>
	<td><% = RS("c_demanda")%></td>
  </tr>
  <%
  RS.MOVENEXT : LOOP
  %>
</table>
<%
con.Close
Set con = Nothing
%>

</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

bartt    0

bartt
Postado

ehh.. continua dando o mesmo erro.. na linha da coneção (con.open conexao)quando eu espero um pokinho e chamo a pagina asp lista tudo ok, depois vo no voltar e chamo ela novamente e peço pra listar de novo da o erroProvider (0x80004005)Erro não especificado/teste1.asp, line 13o que sera que pode estar acontecendo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

se seus arquivos estiverem na mesma pasta do banco coloque assim a conexão e dê permissões para a pasta: O erro 4005 tem a ver com o acesso ao banco de dados, ou le não permite a gravação, ou ele não está no diretório informado, ou ele está bloqueado.

 

mais atens troque o código

<%
Dim comandoSQL

caminho=server.mappath("db1.mdb")
conexao ="dbq="&caminho&";driver={microsoft access driver (*.mdb)}"
set con = server.createobject("adodb.connection")
con.open conexao

comandoSQL = "SELECT * from tarifas ORDER BY c_demanda DESC"
Set RS = con.EXECUTE(comandoSQL)
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

bartt    0

bartt
Postado

Nossa cara vlw mesmo deu certo, agora quero saber porque deu certo colocando isso >> caminho=server.mappath("db1.mdb")<<e tambem porque que nao interferiu tirar o >>Set rsRegistros = Server.CreateObject("ADODB.RecordSet") <<VLW

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

isso é um caminho virtual, ele procura o banco diretamente na basta, você ñ precisa estipular um caminho pra ele e o RecordSet você colocou mais ñ usou usando o RecordSet seu sql + conexão ficaria assim:

 

Set RS= Server.CreateObject("Adodb.RecordSet")
RS.Open "SELECT * from tarifas ORDER BY c_demanda DESC",Conn

Por isso que retirei, você ñ estava usando!!!

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