Sistema De Busca Dando Erro....

Super_Zica_Man · Fevereiro 9, 2006

cara to quebrando a cabeça mas não consigo resolver esse problema vo postar aki os codigos pra ver se alguém consegue resolver...

busca.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<body>
<form method="post" action="resultado.asp" target="_blank">
<p align="center">
<font color="#FF0000"><b><i><font color="#003399">Procurar:
<select size="1" name="escolha" >
  <option value="zero" selected="selected"> </option>
  <option value="Produto">Produto</option>
  <option value="Marca">Marca</option>
</select>
</font></i></b><i><b><font color="#003399"> Em:</font></b></i></font> 
<input type="text" name="produto" >
<input type="Submit" name="OK" value="Ir" style="color: #003399; font-family: Arial">
</form>

</body>
</html>

resultado.asp

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Nova pagina 1</title>
<style type="text/css">
<!--
.style1 {font-family: Verdana, Arial, Helvetica, sans-serif}
-->
</style>
</head>

<body>
  <%      dim c1,r1 
     set c1=server.createObject("adodb.connection")
    set r1=server.createObject("adodb.recordset")
    c1.connectionstring = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath(".") & "\Dados\Produtos.mdb;"
  c1.open 
   set r1=c1.execute("select * from produtos  where  " & request.form("escolha") & " like '" & request.form("produto") & "%' ") %>
</form>

<td colspan="5" rowspan="17" bordercolor="#FFFF99" bgcolor="#ffffff"><table width="544" border="1" align="left" cellspacing="1" bordercolor="#808000" background="backup//Imagens/fundo.gif">
<tr>
            <th width="278" style="background-color: #cccccc" bordercolor="#CCCCCC" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Produto</i></font></strong></th>
            <th width="83" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Marca</i></font></strong></th>
            <th width="93" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Preço</i></font></strong></th>
            
            <th width="93" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Comprar</i></font></strong></th>
</tr>
<tr> <%
	Do While Not   r1.eof 
  %>

          <th width="278" style="background-color: "#FFFFFF"  bordercolor="#000066" bordercolorlight="#808000" bordercolordark="#cccccc"> <%= r1.Fields("nome")%></a></th>
            <th width="83" style="background-color: "#cccccc"  bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"><%= r1.Fields("fabricante")%></th>
            <th width="93" style="background-color: "#FFFFFF"  bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"><%= r1.Fields("preço").Value %></th>
      <th width="93" style="background-color: "#FFFFFF"  bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"><a href="detalhes.asp?id=<%=r1("id") %>"><input type="image" src="backup/Imagens/carrinho.jpg" ONclick= "window.open('detalhes.asp?id=<%=r1("id")%>','principal')" ></th>
</tr>
       <% r1.MoveNext
     count=count+1 
	Loop%>
	<% r1.close
	c1.close
	set r1=nothing
	set c1=nothing %>
</table>  


</body>

</html>

ri_nepo · Fevereiro 9, 2006

qual a mensagem de erro amigão , informa também o número da linha correspondente ao código

abraços

Ricardo

Super_Zica_Man · Fevereiro 9, 2006

Tipo de erro:

Microsoft JET Database Engine (0x80040E10)

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

/resultado.asp, line 21

ri_nepo · Fevereiro 9, 2006

Eu acho que está havendo algum tipo de conflito na sua consulta acho que falta um and ai

set r1=c1.execute("select * from produtos where " & request.form("escolha") & " like '" & request.form("produto") & "%' ") %>

o ideal seria assim

"SELECT * FROM produtos WHERE descricao LIKE '%" & strBusca & "%'"

Super_Zica_Man · Fevereiro 9, 2006

coloquei isso

mas deu o mesmo erro:

Tipo de erro:

Microsoft JET Database Engine (0x80040E10)

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

/resultado.asp, line 21

.Andreia. · Fevereiro 9, 2006

Não sei qual a linha 21 mas na sua consulta a variavel escolha é númerico mesmo? Se for texto o problema é ae:

set r1=c1.execute("select * from produtos  where  '" & request.form("escolha") & "' like '" & request.form("produto") & "%' ")

Super_Zica_Man · Fevereiro 9, 2006

depois de por isso da esse erro....

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0400)
Instrução esperada
/resultado.asp, line 22
</form>

As linhas proximas saum essas:

<%      dim c1,r1 
     set c1=server.createObject("adodb.connection")
    set r1=server.createObject("adodb.recordset")
    c1.connectionstring = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath(".") & "\Dados\Produtos.mdb;"
  c1.open 
   set r1=c1.execute("select * from produtos where '" & request.form("escolha") & "' like '" & request.form("produto") & "%' ")
</form>

.Andreia. · Fevereiro 9, 2006

você não definiu qual campo que recebe o WHERE:

"select * from produtos where CAMPO '" & request.form("escolha") & "' like '" & request.form("produto") & "%'

Super_Zica_Man · Fevereiro 9, 2006

o CAMPO do bd que vai conter as informações pra busca?????

porque antes de atualiza esse codigo não tinha isso e funcionava so q do nada deu isso....

.Andreia. · Fevereiro 9, 2006

você tem que definir um campo pro WHERE, porque se não como que ele vai saber qual campo precisa aplicar a condição?

Entrar

Sistema De Busca Dando Erro....

Pergunta

Super_Zica_Man

Link para o comentário

Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

ri_nepo

Link para o comentário

Compartilhar em outros sites

Super_Zica_Man

Link para o comentário

Compartilhar em outros sites

ri_nepo

Link para o comentário

Compartilhar em outros sites

Super_Zica_Man

Link para o comentário

Compartilhar em outros sites

.Andreia.

Link para o comentário

Compartilhar em outros sites

Super_Zica_Man

Link para o comentário

Compartilhar em outros sites

.Andreia.

Link para o comentário

Compartilhar em outros sites

Super_Zica_Man

Link para o comentário

Compartilhar em outros sites

.Andreia.

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades