Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
begin
FConnection := TZConnection.Create(nil);
FConnection.Database := 'C:\sqlite-3_3_8\test.db';
FConnection.Protocol := 'sqlite-3';
FZQuery := TZQuery.Create(nil);
FZQuery.Connection := FConnection;
FZQuery.SQL.text := 'select * from MAINDATA where id = 1';
FZQuery.Open;
FZQuery.free;
FConnection.Free;
end;
Thanks