Ir para conteúdo
Fórum Script Brasil
  • 0

Erro 80040e10

smez

Perguntado por smez,

 Share

Pergunta

smez

smez

Postado
Postado 

<table border=0 width=100%>
<tr width=100%><td width=100% valign=top><h2><font face="Verdana" size="1">Carrinho de Compras</font></h2></td></tr>
<tr><td align=right><a href="#" onclick="window.location='listaprod.asp?'+unescape('<%=Request.QueryString("url_comp")%>')"><font face="Verdana" size="1">Voltar para a Loja</font></a></td></tr>
<%
Dim acao,data_ped,prod_id,prod_quant,car_prod_id,car_prod_quant,temp,arrTemp,iten_id,loop1,car_iten_id,car_iten_quant,car_iten_prod,car_total,car_subtotal
acao = Request.querystring("acao")
prod_id = Request.querystring("prod_id")
prod_quant = Request.querystring("prod_quant")
car_iten_id = Request.querystring("car_iten_id")

'Verifica se a quantidade e 0 e troca por 1
If IsEmpty(prod_quant) OR prod_quant=0 Then prod_quant = 1 End If

Select Case acao
Case "incluir"   
	Dim car_prod_inc,prod_nome,prod_preco
	temp = ""
	set car_prod_inc = lojaDB.Execute("SELECT * FROM produtos WHERE id="& prod_id &" AND estoque='S'")
	prod_nome = car_prod_inc("nome")
	prod_preco = car_prod_inc("preço")           
	If IsEmpty(Session("iten_id")) Then 
  Session("iten_id") = 1
  Else
  Session("iten_id") = Session("iten_id") + 1
	End If                                             
	iten_id = Session("iten_id")
	temp = iten_id & "&" & prod_id & "&" & prod_quant
        If Not (IsEmpty(Session("car_prod_id"))) Then
         For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id")) 
          temp = temp & "/" & session("car_prod_id")(loop1)
        	Next
        End If
	arrTemp = Split(temp,"/")
	Session("car_prod_id") = arrTemp
 %>              
	<tr width=100%><td width=100%><h3><font face="Verdana" size="1">Produto Incluído</font></h3></td></tr>
	<tr width=100%><td width=100%>
  <table border=1 width=100% cellspacing="0" style="border-collapse: collapse" cellpadding="0">
  <tr width=100%>
  	<th><font face="Verdana" size="1">Id</font></th><th>
            <font face="Verdana" size="1">Produto</font></th><th>
            <font face="Verdana" size="1">Valor/Unid</font></th><th>
            <font face="Verdana" size="1">Quant.</font></th><th>
            <font face="Verdana" size="1">SubTotal</font></th><th>
            <font face="Verdana" size="1">Pedido</font></th>
  </tr><tr width=100% valign=top align=center>
  	<td><font size="1" face="Verdana"><%=iten_id%>&nbsp;</font><td align=left><font size="1" face="Verdana"><%=prod_nome%>&nbsp;</font></td><td>
            <font face="Verdana" size="1">R$<%=prod_preco%></font></td><td><font size="1" face="Verdana"><%=prod_quant%>&nbsp;</font></td><td>
            <font face="Verdana" size="1">R$<%=prod_preco*prod_quant%></font></td><td>
            <font face="Verdana"><a href="carrocompras.asp?acao=excluir&car_iten_id=<%=iten_id%>&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>">
            <font size="1" face="Verdana">Cancelar Item</font></a></font></td>
  </tr></table>	
  
<%
Case "excluir"   
	'Exclui o Id do produto no carrinho                                          
	temp = ""
	If Not (IsEmpty(Session("car_prod_id"))) Then 
         For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id")) 
          arrTemp = Split(Session("car_prod_id")(loop1),"&")
  	iten_id = arrTemp(0)       
  	car_iten_prod = arrTemp(1)
  	car_iten_quant = arrTemp(2)
  	If Not (iten_id = car_iten_id) Then  
                         If temp = "" Then 
                          temp = session("car_prod_id")(loop1)
                        	Else
                          temp = temp & "/" & session("car_prod_id")(loop1)
                         End If
          End If
    Next
  If temp = "" Then
  	Session.Abandon
  	%><font size="1">
  	<script>location.reload()</script>
  	<%
  Else
  	arrTemp = Split(temp,"/")
  	Session("car_prod_id") = arrTemp
  End IF
	End If

Case "zerar"  
	Session.Abandon
	%>
	<script>window.location='./carrocompras.asp'</script>
	<%
End Select

'Exibe Pedido Atual
temp = ""
%> </font>
<tr width=100%><td width=100%><font size="1" face="Verdana">&nbsp;</font></td></tr>
<tr width=100%><td width=100%><h3><font face="Verdana" size="1">Pedido Atual</font></h3></td></tr>
<tr width=100%><td width=100%>
<%
If IsEmpty(Session("car_prod_id")) Then 
	%>
	<h4><font face="Verdana"><font size="1" face="Verdana">Carrinho Vazio</font></h4>
	<% 
Else
	Dim car_prod_nome,car_prod_preco,malha1,car_prod_atual
	malha1 = "sim"
	%></font>
	<table border=1 width=100% cellspacing="0" style="border-collapse: collapse" cellpadding="0">
	<tr width=100%><th><font face="Verdana" size="1">Id</font></th><th>
      <font face="Verdana" size="1">Produto</font></th><th>
      <font face="Verdana" size="1">Valor/Unid</font></th><th>
      <font face="Verdana" size="1">Quant.</font></th><th>
      <font face="Verdana" size="1">SubTotal</font></th><th>
      <font face="Verdana" size="1">Pedido</font></th></tr>
        <%
        For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id")) 
        	arrTemp = Split(Session("car_prod_id")(loop1),"&")
  car_iten_prod = arrTemp(1)
  set car_prod_atual = lojaDB.Execute("SELECT * FROM produtos WHERE prod_id="& car_iten_prod &" AND estoque='S'")
  car_prod_nome = car_prod_atual("nome")
  car_prod_preco = car_prod_atual("preço")
  arrTemp = Split(Session("car_prod_id")(loop1),"&")
  car_iten_id = arrTemp(0)
  car_iten_quant = arrTemp(2)         
  car_subtotal = car_iten_quant * car_prod_preco
  car_total = car_total + car_subtotal
  %> 
        	<tr width=100% valign=top class=<%=malha1%> align=center><td><font size="1" face="Verdana"><%=car_iten_id%>&nbsp;</font></td><td align=left><font size="1" face="Verdana"><%=car_prod_nome%>&nbsp;</font></td><td>
              <font face="Verdana" size="1">R$<%=car_prod_preco%></font></td><td><font size="1" face="Verdana"><%=car_iten_quant%>&nbsp;</font></td><td>
              <font face="Verdana" size="1">R$<%=car_subtotal%></font></td><td>
              <a href="carrocompras.asp?acao=excluir&car_iten_id=<%=car_iten_id%>&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>">
              <font face="Verdana" size="1">Cancelar Item</font></a></td></tr>
         <%
  If malha1 = "sim" Then malha1 = "não" Else malha1 = "sim" End If
  car_prod_atual.Close
  set car_prod_atual = Nothing
	Next
	%> 
	<tr width=100% class=<%=malha1%> align=center><td></td><td></td><td></td><td>
      <b>
      <font face="Verdana" size="1">Total =</font> </b></td><td>
      <b>
      <font face="Verdana" size="1">R$<%=car_total%></font></b></td><td>
      <a href="carrocompras.asp?acao=zerar&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>">
      <font face="Verdana" size="1">Cancelar Tudo</font></a></td></tr>
	</table>
	<tr><td><font size="1" face="Verdana">&nbsp;</font></td></tr>
	<tr width=100% align=center><td width=100%><h3>
      <a href="fecharpedido.asp?log=in">
      <font face="Verdana" size="1">Fechar Pedido</font></a></h3></td></tr>
	<% End If %> 
              </table>

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.

/mc/carrocompras.asp, line 384

como que eu faço para arrumar

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
smez

smez

Postado
  • Autor
Postado

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/mc/carrocompras.asp, line 286

set car_prod_inc = lojaDB.Execute("SELECT * FROM produtos WHERE id="& id &"")

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/mc/carrocompras.asp, line 286

set car_prod_inc = lojaDB.Execute("SELECT * FROM produtos WHERE id="& id &"")

A variavel Id realmente contém algum valor??? pois esta dando erro de falta de parametro

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...