Consulta Ao Bd

zando · Novembro 22, 2004

Alguém pode me ajudar?

Tenho este código que crie para uma consulta no banco de dados. O que está errado?

Tá dando o seguinte erro..."Há um problema com a página que você está tentando acessar e ela não pode ser exibida."


<%
option explicit
' declarar as variaveis
dim conexao, registros, string_conexao, string_consulta_titulo, string_consulta_autor
dim string_consulta_isbn, string_consulta_ean

if 

' cria o objeto conexao
Set conexao = Server.CreateObject("ADODB.Connection")
string_conexao = "DRIVER={SQL Server};SERVER=nome_servidor;UID=usuario;PWD=senha;DATABASE=database_name"


' abre a conexao
conexao.open string_conexao

' cria um recordset para buscar valores
set registros = server.CreateObject("ADODB.recordset")

dim valor, vchave
valor = request.Form("valores")
vchave = request.Form("chave")

'CONSULTA TITULO
if vchave = "DESC_LIVRO" then
string_consulta_titulo = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA  AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.DESC_LIVRO LIKE '"&valor&"'"
set registros =  conexao.execute(string_consulta_titulo)
end if

'CONSULTA AUTOR
if vchave = "NOME_AUTOR" then
string_consulta_autor = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA  AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.NOME_AUTOR LIKE '"&valor&"'"
set registros =  conexao.execute(string_consulta_autor)
end if

'CONSULTA ISBN
if vchave = "CODG_ISBN" then
string_consulta_isbn = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA  AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.CODG_ISBN LIKE '"&valor&"'"
set registros =  conexao.execute(string_consulta_isbn)
end if

'CONSULTA EAN
if vchave = "CODG_EAN" then
string_consulta_ean = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA  AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.CODG_EAN LIKE '"&valor&"'"
set registros =  conexao.execute(string_consulta_ean)
end if

%> 
<title>Valores da consulta</title>
<style type="text/css">
<!--
-->
</style>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="779" border="1" cellpadding="2" cellspacing="1" bordercolor="#999999">
  <tr bgcolor="#FFCC66"> 
    <td width="23%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">T&iacute;tulo</font></strong></td>
    <td width="20%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Autor</font></strong></td>
    <td width="24%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Editora</font></strong></td>
    <td width="20%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Classifica&ccedil;&atilde;o</font></strong></td>
    <td width="13%"> <div align="center"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Pre&ccedil;o</font></strong></div></td>
  </tr>
  <% ' fazer este comando sempre que quiser que repita uma linha com os dados no banco  
  while not registros.eof
   %>
  <% ' declara as variaveis para colocar as células e a fonte de cores diferentes 
  dim cor_celula, celula, fonte, cor_fonte
  celula = celula + 1
  fonte = fonte + 1
  
  if celula mod 2 <> 0 then
	cor_celula = "#D6E4DE" 
	else cor_celula = "#EEEEEE"  
	end if

	if fonte mod 2 <> 0 then
	cor_fonte = "#CC0000" 
	else cor_fonte = "#000000"  
	end if

	dim titulo, autor, editora, classificacao, preço
	titulo = registros("DESC_TITULO")
	autor = registros("NOME_AUTOR")
	editora = registros("DESC_EDITORA")
	classificacao = registros("DESC_CLASSIFICACAO")
	preço = registros("VALR_VENDA")

	%>
  <tr bgcolor="<%=cor_celula%>"> 
    <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=titulo%></font></td>
    <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=autor%></font></td>
    <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=editora%></font></td>
    <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=classificacao%></font></td>
    <td> <div align="center"><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%="R$ " & formatnumber(preço),2)%></font></div></td>
  </tr>
  <% 
registros.movenext 

wend %>
</table>

<STYLE type="text/css">
<!--
BODY {
scrollbar-face-color: #EEEEEE;
scrollbar-highlight-color: EEEEEE;
scrollbar-3dlight-color: #006699;
scrollbar-darkshadow-color: #EEEEEE;
scrollbar-shadow-color: #006699;
scrollbar-arrow-color: #006699;
scrollbar-track-color: #EEEEEE;
}
-->
</style>

<%
conexao.close
set conexao = nothing
set registros = nothing
%>

cyberalexxx · Novembro 22, 2004

Não tem a descrição do erro??

Caso não, desabilite a opção Mostrar mensagens de erro http amigaveis no seu navegador em Ferramentas, opções da Internet, avançadas.

zando · Novembro 22, 2004

Agora o erro que dá é este aí...

ADODB.Recordset erro '800a0e78' 
Operation is not allowed when the object is closed. 

/logos/processa_consulta.asp, line 55

O que será?

cyberalexxx · Novembro 22, 2004

Agora o erro que dá é este aí...

ADODB.Recordset erro '800a0e78' 
Operation is not allowed when the object is closed. 

/logos/processa_consulta.asp, line 55

O que será?

Qual é a linha 55???

zando · Novembro 22, 2004

É esta aqui...

<% while not registros.eof%>

...

cyberalexxx · Novembro 22, 2004

Antes de criar o RecordSet são feitas varias comparoções (IFs) no seu código, voce verificou se alguma condição dakela esta sendo atendida, de modo que o RecordSet seja criado.

zando · Novembro 22, 2004

Segue aí o código do jeito que está dando o erro.

Já verifiquei e não consegui achar o erro.

Será que o Recordeset está no lugar errado?

<%
option explicit
' declarar as variaveis
dim conexao, registros, string_conexao, string_consulta_titulo, string_consulta_autor
dim string_consulta_isbn, string_consulta_ean

Set conexao = Server.CreateObject("ADODB.Connection")
set registros = server.CreateObject("ADODB.recordset")
string_conexao = "DRIVER={SQL Server};SERVER=nome_servidor;UID=usu;PWD=senha;DATABASE=desenvolvimento"
conexao.open string_conexao

dim valor, vchave
valor = request.Form("valores")
vchave = request.Form("chave")

'CONSULTA TITULO
if vchave = "DESC_LIVRO" then
string_consulta_titulo = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA  AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.DESC_LIVRO LIKE '%"&valor&"%'"
conexao.execute string_consulta_titulo
end if

'CONSULTA AUTOR
if vchave = "NOME_AUTOR" then
string_consulta_autor = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA  AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.NOME_AUTOR LIKE '%"&valor&"%'"
conexao.execute string_consulta_autor
end if

'CONSULTA ISBN
if vchave = "CODG_ISBN" then
string_consulta_isbn = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA  AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.CODG_ISBN LIKE '%"&valor&"%'"
conexao.execute string_consulta_isbn
end if

'CONSULTA EAN
if vchave = "CODG_EAN" then
string_consulta_ean = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA  AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.CODG_EAN LIKE '%"&valor&"%'"
conexao.execute string_consulta_ean
end if

%> 
<title>Valores da consulta</title>
<style type="text/css">
<!--
-->
</style>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="779" border="1" cellpadding="2" cellspacing="1" bordercolor="#999999">
  <tr bgcolor="#FFCC66"> 
    <td width="23%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">T&iacute;tulo</font></strong></td>
    <td width="20%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Autor</font></strong></td>
    <td width="24%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Editora</font></strong></td>
    <td width="20%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Classifica&ccedil;&atilde;o</font></strong></td>
    <td width="13%"> <div align="center"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Pre&ccedil;o</font></strong></div></td>
  </tr>
    <%    
  do until registros.EOF
  
  dim titulo, autor, editora, classificacao, preço
	titulo = registros("DESC_TITULO")
	autor = registros("NOME_AUTOR")
	editora = registros("DESC_EDITORA")
	classificacao = registros("DESC_CLASSIFICACAO")
	preço = registros("VALR_VENDA")
  %>
  <tr bgcolor="<%=cor_celula%>"> 
    <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=titulo%></font></td>
    <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=autor%></font></td>
    <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=editora%></font></td>
    <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=classificacao%></font></td>
    <td> <div align="center"><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif">R$ <%=preço%></font></div></td>
  </tr>
  <% registros.MOVENEXT 
  loop %>
</table>

<STYLE type="text/css">
<!--
BODY {
scrollbar-face-color: #EEEEEE;
scrollbar-highlight-color: EEEEEE;
scrollbar-3dlight-color: #006699;
scrollbar-darkshadow-color: #EEEEEE;
scrollbar-shadow-color: #006699;
scrollbar-arrow-color: #006699;
scrollbar-track-color: #EEEEEE;
}
-->
</style>

<%
conexao.close
set conexao = nothing
set registros = nothing
%>

dark0 · Novembro 23, 2004

Mano, e o que o cyber disse ali

Primeiro, você tem que ver se esses seus IFs estao sendo executados

Pois, se nenhum for executado, nenhum recordset será criado e no final, você vai encontrar esse erro aí

Dê response.write no meio do codigo, pra ver se você está entrando nos seus IFs.. isso parece erro de lógica mesmo..

zando · Novembro 23, 2004

Ok... vou fazer isso e verificar qual o erro.

Obrigado pela resposta e qualquer dúvida entro em contato novamente.

Valeu e t+.

dark0 · Novembro 23, 2004

Ok... vou fazer isso e verificar qual o erro.
Obrigado pela resposta e qualquer dúvida entro em contato novamente.
Valeu e t+.

okz brother

qualquer coisa posta aí

Abraços

Entrar

Consulta Ao Bd

Pergunta

zando

Link para o comentário

Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

cyberalexxx

Link para o comentário

Compartilhar em outros sites

zando

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

zando

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

zando

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

zando

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades