1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

 CurrentConnection := TFDConnection.Create(nil);
 CurrentItem := TFDQuery.Create(nil);
 try
  CurrentConnection.LoginPrompt := false;
  CurrentConnection.UpdateOptions.LockWait := false;
  CurrentConnection.ConnectionName := 'Database-ItemAccess';
  CurrentConnection.Params.DriverID := 'FB';
  CurrentConnection.Params.Database := edSelectedDBFileName.FileName;
  CurrentConnection.Params.Pooled := false;
  CurrentConnection.Params.UserName := sDBUserName;
  CurrentConnection.Params.Password := sDBPassword;
  CurrentConnection.Params.Add('OSAuthent=No');
  CurrentConnection.Params.Add('CharacterSet=utf8');
  CurrentConnection.Params.Add('Protocol=Local');
  CurrentConnection.Params.Add('DropDatabase=No');
  CurrentConnection.Params.Add('CreateDatabase=No');
  CurrentConnection.Params.Add('PageSize=16384');
  CurrentConnection.Connected := true;
  // create database dataset and connect to database
  CurrentItem.Connection := CurrentConnection;
  // url count
  CurrentItem.SQL.Clear;
  CurrentItem.SQL.Add('SELECT COUNT(*) FROM SalesTable;');
  CurrentItem.Open;
  // set max items count

  CurrentItem.Close;
  // items
  CurrentItem.SQL.Clear;
  CurrentItem.FetchOptions.Mode := fmOnDemand;
  CurrentItem.Open('SELECT * FROM SalesTable;');
  if not CurrentItem.IsEmpty then
  begin
   while not CurrentItem.Eof and (Cancelled = false) do
   begin


    // set progress stuff
    lblCurrentDBItemProcess.Caption := sRebuildProcessingItem + CurrentItem.FieldByName('ID').AsString;
    Application.ProcessMessages;
    // get next item
    CurrentItem.Next;
   end;
  end;
  // close item
  CurrentItem.Close;
 finally
  // disconnect the dataset from the db and free it
  CurrentItem.Connection := nil;
  CurrentItem.Free;
  CurrentConnection.Free;
 end;