none
Erro ao Inserir + ASp + Access RRS feed

  • Pergunta

  •  

    Olá Gente,

    Tô desenvolvendo um sistema de controle de contratos, bom, possuo um formulário que alimenta duas tabelas no momento da gravação, as tabelas são: tb_contratos e tb_faturas...


    A idéia geral é essa, no momento em que o usuário acaba de preencher o contrato, é disponibilizado uma área para ele cadastrar as parcelas, nesse momento, o formulário envia todos os dados para a página cad_contratos.asp, aí começa o problema, ele não tá gravando em nenhuma das tabelas, a única coisa que ele grava é o campo código do contrato na tb_contratos, deixando os outros campos em branco, nunca vi uma "bronca" dessas, quem poder me ajudar agradeço muito...


    Abaixo estão os códigos das páginas inclusao_contratos.asp e cad_contratos.asp...


    Code Block

      Option Explicit
     
      Dim bookmark, i, NumContrato, rsCad, strConx ,rsParc
     
      strConx = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados\sisad.mdb")
     
      NumContrato = mid(Session("numcontrato"),1,8)
     
      on error resume next

      'CADASTRANDO O CONTRATO ------------------------------------------
      Set rsCad = Server.CreateObject("ADODB.Recordset")
      With rsCad
      .Open "SELECT * FROM tb_contratos", strConx, 1, 3, 1
        .AddNew
        .Fields("cod_contrato")   = NumContrato
        .Fields("cod_cliente")    = Request.Form("cbocliente")
        .Fields("cod_servico")    = Request.Form("cboservico")
        .Fields("cod_responsavel")   = Request.Form("cboresponsavel")
        .Fields("cod_pagamento")   = Request.Form("cbopagamento")
        .Fields("cod_servico")    = Request.Form("cboservico")
        .Fields("cod_forma")    = Request.Form("cboforma")
        .Fields("qteparcelas_contrato") = Request.Form("txtNumParc")
        .Fields("valortotal_contrato")  = Request.Form("txtValorContrato")
        .Fields("dtaprazoserv_contrato")= Request.Form("txtdtaprz")
        .Fields("dtaini_contrato")   = Request.Form("txtdtaini")
        .Fields("dtafim_contrato")   = Request.Form("txtdtafim")
        .Fields("detalhamento_contrato")= Request.Form("txtdetalhes")
        .Update
        bookmark = .absolutePosition
        .Requery
        .absolutePosition = bookmark
        NumContrato = .Fields("cod_contrato") 'Obtém o número do contrato gravado
        .Close
      End With
      Set rsCad = Nothing
      '-----------------------------------------------------------------


      'CADASTRANDO AS PARCELAS -----------------------------------------
      Set rsParc = Server.CreateObject("ADODB.Recordset")
      With rsParc
         .Open "tb_faturas", strConx, 1, 3, 2
        For i=1 to Request.Form("txtNumFatura").Count
          .AddNew
          .Fields("cod_fatura")  = Request.Form("txtNumFatura")(i)
          .Fields("cod_contrato")  = NumContrato
          .Fields("valor_fatura")  = Request.Form("txtValorParc")(i)
          .Fields("dtaemi_fatura")  = Request.Form("txtDtEmis")(i)
          .Fields("dtavenc_fatura") = Request.Form("txtDtVenc")(i)
          .Fields("dtapg_fatura")  = Request.Form("txtDtPag")(i)     
          .Update
        Next
        .Close
      End With
      Set rsParc = Nothing
      '-----------------------------------------------------------------
    'se houve algum erro, detalha
    If err.number>0 then
     response.write "Ocorreram os seguintes erros no Script: " & "<P>"
     response.write "Erro Numero=" & err.number & "<P>"
     response.write "Descricao=" & err.description & "<P>"
     response.write "Contexto de Ajuda=" & err.helpcontext & "<P>"
     response.write "Caminho de Ajuda=" & err.helppath & "<P>"
     response.write "Erro Nativo=" & err.nativeerror & "<P>"
     response.write "Fonte=" & err.source & "<P>"
     response.write "SQLState=" & err.sqlstate & "<P>"
     mensagem  = "Erro na Inclusão!"
    else
     mensagem  = "Operação com Sucesso"
    end if
    %>
    <SCRIPT LANGUAGE=javascript>
     <!--
      alert("<%=mensagem%>");
      window.open("inclusao_contratos.asp","_self");
     -->
    </SCRIPT>

     

     


    sexta-feira, 28 de dezembro de 2007 17:22

Todas as Respostas

  • Pelo que voce esta dizendo, ele parece só estar gravando a informaçao gravada na Session, ou seja, ele nao esta recebendo os campos do formulario, já tentou dar um response.Write em todos os campos para verificar como estao retornando.

     

    Abraços

     

    Estevam

    quarta-feira, 2 de janeiro de 2008 12:16