Quantcast
Channel: Fórum ASP
Viewing all articles
Browse latest Browse all 1214

Erro em de Insert em Carrinho

$
0
0

Bom dia amigos, estou travado nesse problema há alguns dias, pesquisei muito e não encontrei o problema.

 

Nesse carrinho, estava tudo ok, até que foi necessário incluir um novo campo na tabela Pedido.Item, o campo est_local.

 

Alimento esse campo via querystring e até o primeiro INSERT tudo funciona bem.

<%
Set rsPedidoItem = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("id") <> "" Then
   rsPedidoItem.Open "SELECT * FROM Pedido_Item WHERE COD_Pedido = " & Session("codPed_est") & " AND COD_Produto = " & Request.QueryString("id"), Conexao
   If rsPedidoItem.EOF Then
      	  Conexao.Execute "INSERT INTO Pedido_Item (cod_Pedido, cod_Produto, qtd_Pedido, VRL_Unitario, est_local) SELECT " & Session("codPed_est") & " as cod_Pedido, cod_Produto, 1 as qtd_Pedido, VRL_Unitario, '" & Request.QueryString("lo")& "' FROM Produtos WHERE COD_Produto = " & Request.QueryString("id")
   End If
%>

O problema ocorre quando é necessário fazer o recalculo do valor, o codigo deleta da tabela os itens anteriores e vai buscar os dados do form para refazer o calculo

<%
If Request.Form <> "" Then
   Conexao.Execute "DELETE FROM Pedido_Item WHERE COD_Pedido = " & Session("codPed_est")
   Dim cont
   cont = 0
    For Each field_name In Request.Form
  	   If field_name <> "" And field_name <> "B1" And Request.Form(field_name) <> "0" And Trim(Request.Form(field_name)) <> "" Then
		  cont = cont + 1
strSQL = "INSERT INTO Pedido_Item (COD_Pedido, COD_Produto, QTD_Pedido, VRL_Unitario, est_local) SELECT "& Session("codPed_est") & ", " & field_name & ", " & Request.Form(field_name) & ", VRL_Unitario, '" & Request.Form("est_local_") & Cstr(cont) & "' FROM Produtos WHERE COD_Produto = " & field_name & " "
 conexao.execute strSQL
       End If
    Next
End If
%>

Se rodo a SQL no access, funciona, agora no navegador recebo a mensagem:

 

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

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

 

Já tentei passar esse insert de varias formas, mas nenhuma deu certo! Agradeço qualquer informação.

 

Bom dia a todos!


Viewing all articles
Browse latest Browse all 1214