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]