Interbase и Delphi 7

[Фануз]

Помогите пожалуйста! При добавлении новой записи в таблицу через Delphi пишет raised exception class eibinterbaseerror with message arithmetic exception, numeric overflow, or string transaction. Че за ошибка и как её решить. Заранее спасибо! Таблицы программа видит, но записать в неё что-либо невозможно. Character set Win1251

unit UChitateli;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, DB, IBCustomDataSet, IBTable,
  IBQuery;

type
  TFormChitateli = class(TForm)
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    Button1: TButton;
    DBNavigator1: TDBNavigator;
    IBQuery1: TIBQuery;
    IBQuery2: TIBQuery;
    Button2: TButton;
    IBTable1: TIBTable;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormChitateli: TFormChitateli;

implementation

uses UDM;

{$R *.dfm}

procedure TFormChitateli.Button1Click(Sender: TObject);
begin
FormChitateli.Close;
end;

procedure TFormChitateli.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
FormChitateli.IBQuery1.Close;
end;

procedure TFormChitateli.Button2Click(Sender: TObject);
var
a,b,c,d,e,f,g,h:string;
begin
a:=InputBox('Введите данные','Введите код читателя','');
b:=InputBox('Введите данные','Введите фамилию читателя','');
c:=InputBox('Введите данные','Введите имя читателя','');
d:=InputBox('Введите данные','Введите отчество читателя','');
e:=InputBox('Введите данные','Введите год рождения читателя','');
f:=InputBox('Введите данные','Введите адрес читателя','');
g:=InputBox('Введите данные','Введите телефон читателя','');
h:=InputBox('Введите данные','Введите место работы читателя','');
IBQuery2.Params.ParamByName('Num_chit').Value:=a;
IBQuery2.Params.ParamByName('Fam').Value:=b;
IBQuery2.Params.ParamByName('Name').Value:=c;
IBQuery2.Params.ParamByName('Par').Value:=d;
IBQuery2.Params.ParamByName('Year_b').Value:=e;
IBQuery2.Params.ParamByName('Adres').Value:=f;
IBQuery2.Params.ParamByName('Telefon').Value:=g;
IBQuery2.Params.ParamByName('Rabota').Value:=h;
try
IBQuery2.ExecSQL;
except
ShowMessage ('Ошибка при добавления данных!, '+#13+ 'Попробуйте еще раз!');
DM.IBTransaction1.RollbackRetaining;
exit; end;
DM. IBTransaction1.CommitRetaining;
IBQuery1.Close;
IBQuery1.Open;
end;

end.

[Аватар]

Скорее всего несоответствие вставляемых данных характеристикам полей таблицы. Cообщение именно об этом говорит

[Фануз]

у меня кодировка в InterBase Win1251

[Фануз]

а как это исправить?

[superedward]

Сообщение от Фануз

а как это исправить?

Скорее всего, вы пытаетесь в число (или в дату) запихнуть строку под типом Variant

[Фануз]

нет у меня все данные в string
в таблице varchar

[Аватар]

Возможно в таблице поле к примеру varchar(20), а пытаетесь запихнуть строку длиной 25 символов

[Фануз]

нет. когда в самой таблице добавляю те же значения она добавляется. а через Delphi никак

[Yurk@]

а на INSERT запрос можно взглянуть?

[BARNEY]

всё проще... в ibdatabase кодировку выберите win1251