Sziasztok!
Egy egyszerűnek tűnő feladat nem működik!
Lazarus-ban van a akód és egy firebird adatbázis 1 táblájába 1 értéket akartam beszúrni! Miért nem megy? Delphi-ben működik.
Van egy Button
IBConnection1
Datasource1
SQLQuery1
SQLTransaction1
A gomb megnyomásakor a program lefut, hibaüzenet nincs és mégsem szúrja be az értéket!
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;
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
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('INSERT INTO "login" ("barcode") VALUES (''923456789'')');
SQLQuery1.ExecSQL;
end;
end.
