Lazarus FireBird Insert Into not new row
lazarus / 16-Databases

----------------------------------------------------------------------
mpetya · 2012-10-31 10:38

Hi,

I would like to insert a row in a table firebird. The code runs
without error, but does not insert a new row.

The code works and are also IBO Console insert the new row.

Thanks answers,

Lazarus: 1.0.2 FPC: 2.6.0
Firebird: 2.5.1
WIN7 x32

Code: [Select]unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, db, IBConnection, sqldb, FileUtil, Forms,
Controls,
  Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Datasource1: TDatasource;
    IBConnection1: TIBConnection;
    Label1: TLabel;
    SQLQuery1: TSQLQuery;
    SQLTransaction1: TSQLTransaction;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
  SQLQuery1.Close;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('INSERT INTO "login2" ("barcode")');
  SQLQuery1.SQL.Add('VALUES (''923456789'')');
  SQLQuery1.ExecSQL;
   except

      Label1.Caption:='Hiba történt: ';
    end;

   end;


end.

----------------------------------------------------------------------
ttomas · 2012-10-31 11:27

Do you commit transaction?
SQLQuery1.ExecSQL;
SQLTransaction1.Commit;

IBObjects have auto transaction handling. If you don't set transaction
IBO create start and commit transaction for you.

----------------------------------------------------------------------
mpetya · 2012-10-31 11:33

Thank YOU!!!!

It is very good. It is work!
Very thanks!