9 replies to this topic

[fdebortoli]

Olá
Estou com um problema num arquivo de minha loja virtual,após fazer os pedidos, quando eu clico no botão para ver a lista de pedidos, aparece o seguinte erro:

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.
/ducar/minha_lista.asp, line 20

Segue o código abaixo pra análise:

<%Option Explicit%>
<!-- #include file="conexao.asp "-->
<%
'Caso nao haja produtos no carrinho do visitante
if Session("Pedido").count = 0 then
	response.write ("Não há produtos em sua cesta<P>")
	response.write "Clique <A HREF=listagemPaginada.asp>aqui </A>para comprar!"

else 'há produtos

sub mostra_pedido()

Dim produto, sqlPedido, rstPedido


'aqui escrevemos o formulário em tela, de acordo com o pedido do visitante
for each Produto in Session("Pedido")
	sqlPedido = "SELECT NomePeca, PecaID FROM CompraPecas WHERE PecaID ='" & Produto  & "'"
	Set rstPedido = Server.CreateObject("ADODB.RecordSet")
	rstPedido.Open sqlPedido, strConn

'criando o formulário para manipulação dos dados

   	 response.write "<tr><td><input type=text size=2 name=quantidade" & Produto & " value=" & Session("Pedido").item(produto) &"></td><td>"& rstPedido("NomePeca") & "</font></td><td></td></tr><br>"
	
    rstPedido.Close
next
end sub

%>

<form action="atualizaCarrinho.asp" method=post>
  <table>
    <tr> 
      <th colspan=3> Suas compras</th>
    </tr>
    <tr> 
      <td>Quantidade</td>
      <td> Livro</td>
      <td> Valor</td>
    </tr>
    <% mostra_pedido()%>
    <td colspan=3> 
        <input type="submit" value="Atualizar" name="submit">
        <a href="gravar_pedido.asp">Fechar Pedido</a> <br>
      </td>
  </table>
</form>
<% end if%>

Fico no aguardo!
valeu gente!!

[Victor ASP]

<%Option Explicit%>

<!-- #include file="conexao.asp "-->

<%

Set rstPedido = Server.CreateObject("ADODB.RecordSet")

'Caso nao haja produtos no carrinho do visitante

if Session("Pedido").count = 0 then

response.write ("Não há produtos em sua cesta<P>")

response.write "Clique <A HREF=listagemPaginada.asp>aqui </A>para comprar!"



else 'há produtos



sub mostra_pedido()



Dim produto, sqlPedido, rstPedido





'aqui escrevemos o formulário em tela, de acordo com o pedido do visitante

for each Produto in Session("Pedido")

sqlPedido = "SELECT NomePeca, PecaID FROM CompraPecas WHERE PecaID ='" & Produto  & "'"

rstPedido.Open sqlPedido, strConn



'criando o formulário para manipulação dos dados



    response.write "<tr><td><input type=text size=2 name=quantidade" & Produto & " value=" & Session("Pedido").item(produto) &"></td><td>"& rstPedido("NomePeca") & "</font></td><td></td></tr><br>"



   rstPedido.Close

next

end sub



%>



<form action="atualizaCarrinho.asp" method=post>

 <table>

   <tr> 

     <th colspan=3> Suas compras</th>

   </tr>

   <tr> 

     <td>Quantidade</td>

     <td> Livro</td>

     <td> Valor</td>

   </tr>

   <% mostra_pedido()%>

   <td colspan=3> 

       <input type="submit" value="Atualizar" name="submit">

       <a href="gravar_pedido.asp">Fechar Pedido</a> <br>

     </td>

 </table>

</form>

<% end if%>

[fdebortoli]

olá victor
não entendi o que vc fez no codigo, poderia me explicar? hehe

[Luis Otávio]

opa tente tirar as aspas simples da sua expressão de critério no sql...

ao invés de ficar assim:

'" & Produto & "'

deixe assim:

" & Produto & "


afinal, acho eu, este seu campo PecaID seja do tipo numérico, e campos numéricos vc num usa a aspas simples, usa aspas simples, quando forem campos do tipo texto...

espero ter ajudado...

[Victor ASP]

Eu instanciei o objeto antes de chamar ele, que antes estava depois que você abria ele...

Mas funcionou ai?

[Victor ASP]

opa tente tirar as aspas simples da sua expressão de critério no sql...

ao invés de ficar assim:

'" & Produto & "'

deixe assim:

" & Produto & "


afinal, acho eu, este seu campo PecaID seja do tipo numérico, e campos numéricos vc num usa a aspas simples, usa aspas simples, quando forem campos do tipo texto...

espero ter ajudado...

Que isso cara, a coluna produtos concerteza não é autonumber né, afinal já fala produtos vai ser o nome do produto..

[Luis Otávio]

affff.....

bem, produtos é uma variável, ele pode dar o nome que ele quiser.. quem disse q ele está procurando na coluna produtos?

olhe o select:


"SELECT NomePeca, PecaID FROM CompraPecas WHERE PecaID ='" & Produto & "'"

Seleciona NomePeca e PecaID de CompraPecas onde PecaID seja igual a variavel produto.


intão, ele pega um valor na coluna PecaID, que seja igual a variavel que foi anteriormente declarada... de acordo com este meu raciocinio, a coluna PecaID é auto numeração, então tem que ser aspas simples...


bem, posso estar redondamente enganado... mas tentei ajudar.... se estiver errado, peço desculpas...

walew!

[Victor ASP]

affff.....

bem, produtos é uma variável, ele pode dar o nome que ele quiser.. quem disse q ele está procurando na coluna produtos?

olhe o select:


"SELECT NomePeca, PecaID FROM CompraPecas WHERE PecaID ='" & Produto & "'"

Seleciona NomePeca e PecaID de CompraPecas onde PecaID seja igual a variavel produto.


intão, ele pega um valor na coluna PecaID, que seja igual a variavel que foi anteriormente declarada... de acordo com este meu raciocinio, a coluna PecaID é auto numeração, então tem que ser aspas simples...


bem, posso estar redondamente enganado... mas tentei ajudar.... se estiver errado, peço desculpas...

walew!

fdebortoli, você está usando a variavel produtos se nem existe ela antes de ser chamada?

A variavel é o que? Querystring?

[fdebortoli]

Olá amigos!
Conforme o iporto falou na quarta mensagem postada aqui, realmente a coluna PecaID é auto-numérica, e acabo de tirar as aspas simples da variável "Produto", e agora funcionou perfeitamente!
Para aqueles que participaram dessa discussão tb, vai meu obrigado!!!
Segue novamente o código, caso alguém queira copiá-lo! hehehe

Um abraço a todos!!!!

Código correto:

<%Option Explicit%>
<!-- #include file="conexao.asp "-->
<%
'Caso nao haja produtos no carrinho do visitante
if Session("Pedido").count = 0 then
response.write ("Não há produtos em sua cesta<P>")
response.write "Clique <A HREF=listagemPaginada.asp>aqui </A>para comprar!"

else 'há produtos

Dim produto, sqlPedido, rstPedido
sub mostra_pedido()

'aqui escrevemos o formulário em tela, de acordo com o pedido do visitante
for each Produto in Session("Pedido")
Set rstPedido = Server.CreateObject("ADODB.RecordSet")
sqlPedido = "SELECT NomePeca, PecaID FROM CompraPecas WHERE PecaID =" & Produto  & ""
rstPedido.Open sqlPedido, strConn

'criando o formulário para manipulação dos dados

   response.write "<tr><td><input type=text size=2 name=quantidade" & Produto & " value=" & Session("Pedido").item(produto) &"></td><td>"& rstPedido("NomePeca") & "</font></td><td></td></tr><br>"

  rstPedido.Close
next
end sub

%>

<form action="atualizaCarrinho.asp" method=post>
<table>
  <tr> 
    <th colspan=3> Suas compras</th>
  </tr>
  <tr> 
    <td>Quantidade</td>
    <td> Livro</td>
    <td> Valor</td>
  </tr>
  <% mostra_pedido()%>
  <td colspan=3> 
      <input type="submit" value="Atualizar" name="submit">
      <a href="gravar_pedido.asp">Fechar Pedido</a> <br>
    </td>
</table>
</form>
<% end if%>

Edição feita por: fdebortoli, 04/09/2004, 11:40.

[Luis Otávio]

valeu fdebortoli qui bom que conseguiu resolver seu problema... !