Marques E Ferreira
-
Total de ítens
1 -
Registro em
-
Última visita
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.
AccessViolation no Postgresql com Delphi 11
em Banco de Dados
Postado
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;