Ir para conteúdo

Ulisses Arrais

Members
  • Total de itens

    38
  • Registro em

  • Última visita

Reputação

2 Comum

1 Seguidor

Sobre Ulisses Arrais

  • Data de Nascimento 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!
  7. Ulisses Arrais

    Totaliza o resultado de um recorset

    Agradeço a ajuda pessoal, refiz o codigo sem usar cursor type e com a dica do Gustavo o problema foi resolvido! obrigado a todos! Segue a solucao <% Dim tot_estoque, total_final tot_estoque = rsProdutos("qtd_estoque") * rsProdutos("vrl_unitario") response.write tot_estoque %> <% total_final = total_final + tot_estoque rsProdutos.MoveNext Wend %>
  8. Ulisses Arrais

    Totaliza o resultado de um recorset

    Gustavo, na verdade o que eu preciso é que quando eu faço o calculo do valor total de estoque que é qtd_estoque * custo_prod no fim dessa tela eu mostrasse a soma de todos os v_total_est ou seja a soma de todos os v_total_est <% ' Calculando valor de estoque Dim v_estoq1, v_prc, v_total_est v_estoq1 = Recordset1.Fields.Item("qtd_estoque") v_prc = Recordset1.Fields.Item("custo_prod") v_total_est = v_estoq1 * v_prc Response.Write (v_total_est) %>
  9. Ulisses Arrais

    Select - recuperar valores

    Tente colocar o NR_Per no GROUP BY, deve resolver!
  10. Ulisses Arrais

    Totaliza o resultado de um recorset

    Boa Tarde Pessoal, nesse codigo faço um select tudo funciona ok, mas eu preciso que no fim dele seja somado o valor de todos os campos v_total_est que não vem do select o calculo e feito no codigo! Isso é possivel? ' Define variaveis e chama dados do DB Dim Recordset1 Dim Recordset1_numRows, strConnection strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("prod.mdb") & ";Persist Security Info=False" Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = strConnection Recordset1.Source = "SELECT cod_produto, produto, vrl_unitario, custo_prod, qtd_estoque FROM produtos WHERE cod_categoria = " & varClie & " ORDER BY produto " Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% ' Montando o Form Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% intRecID =(Recordset1.Fields.Item("cod_produto").Value) ' Store the current RecordID in a variable %> <tr bgcolor="#999999"> <td nowrap><div align="center"><%= intRecID %><input name="hidRecID<%= intRecID %>" type="hidden" value="<%= intRecID %>" size="5"> </div></td> <td nowrap><%=(Recordset1.Fields.Item("produto").Value)%></td> <td nowrap><input name="txtCust<%= intRecID %>" type="text" onChange="RecUpdate('<%= intRecID %>')" value="<%=(Recordset1.Fields.Item("custo_prod").Value)%>" size="10"></td> <td nowrap><input name="txtNum<%= intRecID %>" type="text" onChange="RecUpdate('<%= intRecID %>')" value="<%=(Recordset1.Fields.Item("vrl_unitario").Value)%>" size="10"></td> <td nowrap> <% ' Calculando Margem Dim calc1, calc2, marg, marg2 calc1 = Recordset1.Fields.Item("custo_prod") if calc1 > 0 then calc1 = Recordset1.Fields.Item("custo_prod") else calc1 = 1 end if calc2 = Recordset1.Fields.Item("vrl_unitario") marg = calc2 / calc1 * 100 - 100 Response.Write Formatnumber (marg) %> </td> <td nowrap> <input name="txtNum<%= intRecID %>2" type="text" onChange="RecUpdate('<%= intRecID %>')" value="<%=(Recordset1.Fields.Item("qtd_estoque").Value)%>" size="10"></td> <td nowrap> <% ' Calculando valor de estoque Dim v_estoq1, v_prc, v_total_est v_estoq1 = Recordset1.Fields.Item("qtd_estoque") v_prc = Recordset1.Fields.Item("custo_prod") v_total_est = v_estoq1 * v_prc Response.Write (v_total_est) %> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.