Inclusão de dados no interbase via delphi 7
Caros amigos estou começando agora a mexer com banco de dados e estou com dificuldades o codigo abaixo pois o interbase me retorna um que tb esta abaixo estou usando delphi 7 e interbase 6.01.
procedure TCAD0001.BTOGravarClick(Sender: TObject);
begin
Datamodulo.IBTransac.StartTransaction;
Datamodulo.IBSQL.Close;
Datamodulo.IBSQL.SQL.Clear;
DataModulo.IBSQL.SQL.Add(´INSERT INTO empresa (cod_emp,razao_social,den_emp,sigla_fil)´);
Datamodulo.IBSQL.SQL.Add(´VALUES(´+DBECod_empresa.Text+´,´+´´´´+DBERazao_social.text+´´´,´+´´´´+DBEDenominacao.text+´´´,´+´´´´+DBESigla.text+´´´)´);
Datamodulo.IBSQL.Prepare;
Datamodulo.IBSQL.ExecQuery;
Datamodulo.IBTransac.Commit;
este é o erro que o IB me retorna
Arithmetic exception, numeric overflow, or string truncation
Agradeço desde ja.
Obrigado
Igor
procedure TCAD0001.BTOGravarClick(Sender: TObject);
begin
Datamodulo.IBTransac.StartTransaction;
Datamodulo.IBSQL.Close;
Datamodulo.IBSQL.SQL.Clear;
DataModulo.IBSQL.SQL.Add(´INSERT INTO empresa (cod_emp,razao_social,den_emp,sigla_fil)´);
Datamodulo.IBSQL.SQL.Add(´VALUES(´+DBECod_empresa.Text+´,´+´´´´+DBERazao_social.text+´´´,´+´´´´+DBEDenominacao.text+´´´,´+´´´´+DBESigla.text+´´´)´);
Datamodulo.IBSQL.Prepare;
Datamodulo.IBSQL.ExecQuery;
Datamodulo.IBTransac.Commit;
este é o erro que o IB me retorna
Arithmetic exception, numeric overflow, or string truncation
Agradeço desde ja.
Obrigado
Igor
Zigor
Curtidas 0