Hello list,
When I do a "select" in my sqlite query everything works fine. But when I do a "update" I get an error:
----
list index (-1) out of bounds.
Press OK to ignore and risk datacorruption. Press cancel to kill the program.
---
What will be wrong?
With regards,
Paul van der Vlis.
the code:
-------------------------
unit atc_unit1;
{$mode objfpc}{$H+}
interfaceuses
Classes, SysUtils, LResources, Forms, db, sqlite3ds, DBGrids, DbCtrls, sqldb;
type
{ TxxxSqliteForm }
TxxxSqliteForm = class(TForm)
xxxDataset: TSqlite3Dataset;
xxxDatasource: TDatasource;
xxxGrid: TDBGrid;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
xxxSqliteForm: TxxxSqliteForm;
implementation
procedure TxxxSqliteForm.FormDestroy(Sender: TObject);
begin
xxxDataset.Close;
end;
procedure TxxxSqliteForm.FormCreate(Sender: TObject);
var query : string;
begin
xxxDataset.Close;
query := 'Update xxx set ATCSTATUS = 1 where ATC NOT NULL;';
// query := 'select * from xxx where ATC NOT NULL;';
xxxDataset.SQL := query;
xxxDataset.Open;
end;
initialization
{$I atc_unit1.lrs}
end.
------------------------------Met vriendelijke groet,
Paul van der Vlis.
