Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

AccessViolation no Postgresql com Delphi 11


Recommended Posts

  • Membros Pro

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 to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.