Subject | IB_Query1 is not storing Data in the Database |
---|---|
Author | Tarak Patel |
Post date | 2004-08-05T17:25:57Z |
First Step
------------
procedure TForm1.FormCreate(Sender: TObject);
begin
cn.Params.Values ['database'] := '127.0.0.1:C:\Program Files\Firebird\bin\Total.gdb';
cn.Params.Values ['user_name'] := 'sysdba';
cn.Params.Values ['password'] := 'masterkey';
cn.Connect ;
If Not tr.InTransaction Then
tr.StartTransaction;
tr.Activate;
If Not IB_Query1.Active Then
IB_Query1.Open;
end;
Second Step
-------------------
procedure TForm1.BtnClick(Sender: TObject);
begin
IB_Query1.Close;
IB_Query1.Open;
IB_Query1.Append;
IB_Query1.FieldByName('TID').AsInteger := StrToInt(Edit1.Text );
IB_Query1.FieldByName('Name').AsString := Edit2.Text ;
IB_Query1.Post;
Edit1.Text := '';
Edit2.Text := '';
end;
---------------------------
This Code is not storing Data into my database,but it shows live update in grid when i do try to insert through text box.....
Please get me solution..........
Kindest Regards;
Yahoo! India Matrimony: Find your life partneronline.
[Non-text portions of this message have been removed]
------------
procedure TForm1.FormCreate(Sender: TObject);
begin
cn.Params.Values ['database'] := '127.0.0.1:C:\Program Files\Firebird\bin\Total.gdb';
cn.Params.Values ['user_name'] := 'sysdba';
cn.Params.Values ['password'] := 'masterkey';
cn.Connect ;
If Not tr.InTransaction Then
tr.StartTransaction;
tr.Activate;
If Not IB_Query1.Active Then
IB_Query1.Open;
end;
Second Step
-------------------
procedure TForm1.BtnClick(Sender: TObject);
begin
IB_Query1.Close;
IB_Query1.Open;
IB_Query1.Append;
IB_Query1.FieldByName('TID').AsInteger := StrToInt(Edit1.Text );
IB_Query1.FieldByName('Name').AsString := Edit2.Text ;
IB_Query1.Post;
Edit1.Text := '';
Edit2.Text := '';
end;
---------------------------
This Code is not storing Data into my database,but it shows live update in grid when i do try to insert through text box.....
Please get me solution..........
Kindest Regards;
Yahoo! India Matrimony: Find your life partneronline.
[Non-text portions of this message have been removed]