Ir para conteúdo
  • Cadastre-se

dev botao

AccessViolation no Postgresql com Delphi 11


  • Este tópico foi criado há 546 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Tenho este código abaixo e qdo vou gravar dá a mensagem de AccessViolation....

 

 With UDM1 Do
    Begin
      with FDQRYMOVTOS Do
        begin
          //con := 'DataBase=ADRIMED SOC;UserName=postgres;Password=aws - 4uVrAPPNGMuJntf;Port=5433;DriverID=PG ';
          Try
            //FDConn.Open(con);
            Close;
            Sql.Clear;
            Sql.Add('INSERT INTO MOVIMENTO (EMPRESA_ATENDTO,CNPJ,IE,RAZAO_SOCIAL,ENDERECO,BAIRRO,CIDADE,UF,CEP,'+
            'CONTATO,EMAIL,SITE,TEL_FIXO,TEL_CELULAR,CREDENC_SN,ATIVADO_SN,DT_CAD,HR_CAD)');

            Sql.Add('Values(:E_EMPRESA_ATENDTO,:E_CNPJ,:E_IE,:E_RAZAO_SOCIAL,:E_END,:E_BAIRRO,:E_CIDADE,:E_UF,:E_CEP,'+
            ':E_CONTATO,:E_EMAIL,:E_SITE,:E_TEL_FIXO,:E_TEL_CELULAR,:E_CREDENC_SN,:E_ATIVADO_SN,:E_DT_CAD,:E_HR_CAD)');

            ParamByName('E_EMPRESA_ATENDTO').AsString   := UPPERCASE(CADEMP_SELECEMPATDO.Text);
            ParamByName('E_CNPJ').AsString              := UPPERCASE(CADEMP_CNPJ.Text);
            ParamByName('E_IE').AsString                := UPPERCASE(CADEMP_IE.Text);
            ParamByName('E_RAZAO_SOCIAL').AsString      := ANSIUPPERCASE(CADEMP_RAZAOSOC.Text);
            ParamByName('E_END').AsString               := ANSIUPPERCASE(CADEMP_END.Text);
            ParamByName('E_BAIRRO').AsString            := ANSIUPPERCASE(CADEMP_BAIRRO.Text);
            ParamByName('E_CIDADE').AsString            := ANSIUPPERCASE(CADEMP_CIDADE.Text);
            ParamByName('E_UF').AsString                := UPPERCASE(CADEMP_UF.Text);
            ParamByName('E_CEP').AsString               := UPPERCASE(CADEMP_CEP.Text);
            ParamByName('E_CONTATO').AsString           := ANSIUPPERCASE(CADEMP_CONTATO.Text);
            ParamByName('E_EMAIL').AsString             := UPPERCASE(CADEMP_EMAIL.Text);
            ParamByName('E_SITE').AsString              := UPPERCASE(CADEMP_SITE.Text);
            ParamByName('E_TEL_FIXO').AsString          := UPPERCASE(CADEMP_TELFIXO.Text);
            ParamByName('E_TEL_CELULAR').AsString       := UPPERCASE(CADEMP_TELCEL.Text);
            ParamByName('E_CREDENC_SN').AsString        := UPPERCASE(CADEMP_SELECCREDENCSN.Text);
            ParamByName('E_ATIVADO_SN').AsString        := UPPERCASE(CADEMP_SELECATIVOSN.Text);
            ParamByName('F_DT_CAD').AsDateTime          := STRTODATE(Label12.Text);
            ParamByName('F_HR_CAD').AsDateTime          := STRTOTIME(Label14.Text);

            EXECSQL;

          Except
            ShowMessage('[ CAD. EMPRESA - COD. 01 ] - ENTRAR EM CONTATO COM A MARQUES E FERREIRA !');
          End;
        end;
        LimpaCampos;
        CADEMP_CNPJ.SetFocus;

Link para o comentário
Compartilhar em outros sites

  • 8 meses depois ...
  • Este tópico foi criado há 546 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.