Marques E Ferreira
Membros-
Total de ítens
1 -
Registro em
-
Última visita
Marques E Ferreira's Achievements
-
AccessViolation no Postgresql com Delphi 11
um tópico no fórum postou Marques E Ferreira Banco de Dados
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;