Jump to content

Ulisses Arrais

Members
  • Content count

    38
  • Joined

  • Last visited

Community Reputation

2 Comum

1 Follower

About Ulisses Arrais

  • Birthday 04/20/1977

Informações Pessoais

  • Sexo
    Masculino
  1. Ulisses Arrais

    Erro de UPDATE "Tipos incompatíveis"

    Tente só com as aspas duplas no update! Outra coisa porque voce esta passando o codigo como string no action se voce esta pegando o codigo do form?
  2. Ulisses Arrais

    Passar valor em request.form (DANDO ERRO)

    Amigos duas coisas! Primeiro oculte a senha do email pq vc deixou ae no codigo e qualquer um pode pegar!! Segundo, qual é a linha 242?
  3. Ulisses Arrais

    Update com valor duplicado

    Valeu pela dica Xanb!! Mas o erro estava tanto no form quanto no update!! No form era preciso linkar o nome do campo com o codigo! <% <select name="retira<%=RS("cod_produto")%>" id="retira"> %> e no update o problema era igual relaciona o produto com o campo! <% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=c:\xxx\prod.mdb;Driver={Microsoft Access Driver (*.mdb)}" pedido = Session("codped_est") Set rsProd = conexao.Execute("SELECT cod_produto FROM pedido_item WHERE cod_pedido = "&pedido&" ") While Not RSProd.EOF id = rsProd("cod_produto") retira = Request.Form("retira" & id) conexao.Execute "UPDATE pedido_item SET retira = '"&retira&"' WHERE cod_pedido = "&pedido&" AND cod_produto = " &id rsProd.MoveNext Wend Set RSProd = Nothing %> Problema resolvido e fica a dica para o resto do pessoal!! Valeu!
  4. Ulisses Arrais

    Update com valor duplicado

    Boa Tarde amigos, nesse codigo faço um update do mesmo campo em varios itens ao mesmo tempo! O update roda mas ele esta gravando a informação duplicada: Do form anterior pego o campo retira esse form e dinamico então se tenho 3 registros ele grava o campo retira tres vezes em cada cod_produto o que era para ficar assim: Cod_produto = 3455 Retira = Dep Cod_produto = 3244 Retira = Ret Fica assim cod_produto = 3455 Retira = Dep,Ret cod_produto = 3244 Retira = Dep,Ret <% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=xxx\prod.mdb;Driver={Microsoft Access Driver (*.mdb)}" pedido = Session("codped_est") Set rsProd = conexao.Execute("SELECT cod_produto FROM pedido_item WHERE cod_pedido = "&pedido&" ") While Not RSProd.EOF id = rsProd("cod_produto") cod_pedido = rsProd("cod_pedido") retira = Request.Form("retira") conexao.Execute "UPDATE pedido_item SET retira = '"&retira&"' WHERE cod_produto = " &id & " AND cod_pedido = "&pedido&" " rsProd.MoveNext Wend conexao.close Set RSProd = Nothing %> Qual é o problema nessa situação? Obrigado
  5. Ulisses Arrais

    função de envio de email no formulário de contato html5 e css3

    Não é todo o servidor que aceita o uso do email proprio para rodar esse script! Para resolver isso cria uma conta no gmail e tem que habilitar nas configurações do gmail o acesso a aplicações pouco seguras! A configuração do servidor do gmail fica assim: <% 'Declarando Variaveis Dim sch, cdoConfig, cdoMessage, x ' Chamando esquemas microsoft sch = "http://schemas.microsoft.com/cdo/configuration/" ' Criando objeto Set cdoConfig = Server.CreateObject("CDO.Configuration") ' Parametros do Config do Email cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpusessl") = True cdoConfig.Fields.Item(sch & "smtpserverport") = 465 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.gmail.com" cdoConfig.Fields.Item(sch & "sendusername") = "SEU EMAIL" cdoConfig.Fields.Item(sch & "sendpassword") = "SUA SENHA" cdoConfig.fields.update ' Montando Mensagem Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig ' Dados de Cabeçalho cdoMessage.From = "EMAIL DO AUTOR" cdoMessage.To = "DESTINARIOS" cdoMessage.Subject = "ASSUNTO" cdoMessage.HTMLBody = "SUA MGS" cdoMessage.HTMLBodyPart.Charset = "utf-8" ' Enviando Email x = cdoMessage.Send ' Trantando falha if x > 0 then Response.Write x Response.End else response.write "Sua mensagem foi enviada com sucesso!" End if ' Limpando Memoria Set cdoMessage = Nothing Set cdoConfig = Nothing %>
  6. Ulisses Arrais

    Erro em de Insert em Carrinho

    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!
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.