5

(古い) MDB データベースに接続するために ZEOS コンポーネントを使用しています。
別のデータベースにブリッジするために大量のデータを読み込むクエリを実行しています。

進行状況をパーセンテージで示す方法はありますか?

procedure TForm13.ActionReadInMemoryExecute(Sender: TObject);
var
  QueryLine: string;
  FullQuery: string;
  Tablename: string;
  i: integer;
begin
  i:= 0;
  TableMeter.DisableControls;
  try
    TableMeter.First;
    FullQuery:= '';
    while not TableMeter.eof do begin
      Tablename:= TableMeter.FieldByName('tabelnaam').AsString;
      QueryLine:= ReplaceStr(ImportQuerySjabloon, cTabelname, Tablename);
      FullQuery:= FullQuery + QueryLine;
      if (TableMeter.RecNo < (TableMeter.RecordCount -1)) then begin
        FullQuery:= FullQuery + ' UNION ALL ';
      end;
      TableMeter.Next;
    end; {while}
    QueryImportMeterreadings.Close;
    QueryImportMeterreadings.SQL.Text:= FullQuery;
    QueryImportMeterreadings.Open;  <<-- takes a long time
  finally
    TableMeter.EnableControls;
  end;
end;

クエリの進行状況を示す方法はありますか、または個々のクエリを分割してUNION'sを削除した場合にのみこれを行うことができますか?
実行には約 1 分かかり、8 つのユニオンが関与します。

この目的に使用できるイベントがありません。

または、これを行うには、クエリのフィールドで OnCalcField を偽造する必要があります (原則として機能するかどうかはわかりません)。
またはシーケンスを添付しますか？いいえ、Access DB でサポートされていない操作を行います

4

2 に答える 2

3

個々のクエリを分割して結合を削除し、各クエリの周りにタイマーを作成します。平均所要時間に応じて*残りのクエリ数を見積もり、テキストフィールドを更新してy個のクエリのうちx個が完了したことを示します（時間残り時間-）

于 2011-12-15T23:09:30.693 に答える
3

巨大なクエリを個々のクエリに分割します。コードでは、各クエリの結果セットを反復処理し、手動で値を clientdataset (cds) に挿入します。CD は dbgrid に接続できます。次に、各クエリがいつ完了したかを表示できます。各タプルが処理された後に進行状況を表示することもできますが、タプルの数を返す別のクエリを実行しない限り、タプルの合計数はわかりません。このような接続されていない cd を使用する際の問題は、コードでフィールドを定義する必要があることです。これは、私が昨夜書いた類似の例です。クエリはすべて、cd の 1 つのフィールドを更新します。

const
 field1 = 'id';
 field2 = 'customer name';
 field3 = 'total debt';

procedure TTotalCustDebt.FormCreate(Sender: TObject);
var
 strings: tstrings;

begin
 with qTotalDebt do   // this is the clientdataset
  begin
   fielddefs.add (field1, ftInteger, 0, false);
   fielddefs.add (field2, ftString, 32, false);
   fielddefs.add (field3, ftInteger, 0, false);
   createdataset;
   fieldbyname (field1).visible:= false;
   open;
   addindex ('idx0', field2, [], '', '', 0);
   addindex ('idx1', field2, [ixDescending], '', '', 0);
   addindex ('idx2', field3, [], '', '', 0);
   addindex ('idx3', field3, [ixDescending], '', '', 0);
   strings:= tstringlist.create;
   getindexnames (strings);
   strings.free;
  end;
end;

procedure TTotalCustDebt.PopulateCDS;
begin
 dsTotalDebt.dataset:= nil;
 with qTotalDebt do
  begin
   emptydataset;
   indexfieldnames:= field1;  // initially sort by customer.id
  end;

 with qDBills do
  begin
   params[0].asdate:= dt;
   open;
   while not eof do
    begin
     qTotalDebt.append;
     qTotalDebt.fieldbyname (field1).asinteger:= qDBillsID.asinteger;
     qTotalDebt.fieldbyname (field2).asstring:= qDBillsName.asstring;
     qTotalDebt.fieldbyname (field3).asinteger:= qDBillsTot.asinteger;
     qTotalDebt.post;
     next
    end;
   close
  end;

  // show progress indicator

  with qDReceipts do
   begin
    params[0].asdate:= dt;
    open;
    while not eof do
     begin
      if qTotalDebt.findkey ([qDReceiptsID.asinteger]) then
       begin  // customer already exists
        qTotalDebt.edit;
        qTotalDebt.fieldbyname (field3).asinteger:= - qDReceiptsTot.asinteger
                                  + qTotalDebt.fieldbyname (field3).asinteger;
      end
     else
      begin  // add new record
       qTotalDebt.append;
       qTotalDebt.fieldbyname (field1).asinteger:= qDReceiptsID.asinteger;
       qTotalDebt.fieldbyname (field2).asstring:= qDReceiptsName.asstring;
       qTotalDebt.fieldbyname (field3).asinteger:= - qDReceiptsTot.asinteger;
      end;
     qTotalDebt.post;
     next
    end;
   close
  end;

 // show progress indicator
 // more queries
 // at end, attach the clientdataset to the TDataSource
 dsTotalDebt.dataset:= qTotalDebt;
end;
于 2011-12-18T11:51:32.303 に答える