如果現下我有 ADODC1資料庫 , 條件criteria , ADODC2資料庫 ADODC1資料庫是所有的資料，ADODC2是一個空白的資料庫 我從ADODC1的資料庫找到符合條件criteria了，然後在存到ADODC2的資料庫 那應該要怎麼做呢？(類似動態資料表)

您好﹗    請參考以下的方法﹕

Var
  Field1, Field2, Field3 : String;
  Field4 : Integer;
  //宣告一些變數﹐記錄每筆符合條件的資料錄的欄位值﹐引處僅以String形態
  //和整數形態為例﹐如有其它形態﹐請自行加入
begin
  ADODC1.Close;
  ADODC1.SQL.Clear;
  ADODC1.SQL.Add('Select * From 資料表名稱 Where ');
  ADODC1.SQL.Add('criteria = 條件值');
  ADODC1.Open;
  ADODC2.Close;
  ADODC2.SQL.Clear;
  ADODC2.SQL.Add('Insert Into 資料表名稱 Values (');
  ADODC2.SQL.Add(':Field1, :Field2, :Field3, :Field4');
  if Not ADODC1.IsEmpty then
  begin
    While Not ADODC1.Eof do
      begin
        Field1 := ADODC1.Fields.Fields[0].AsString;
        Field2 := ADODC1.Fields.Fields[1].AsString;
        Field3 := ADODC1.Fields.Fields[2].AsString;
        Field4 := ADODC1.Fields.Fields[3].AsInteger;
        ADODC2.ParamByName('Field1').AsString := Field1;
        ADODC2.ParamByName('Field2').AsString := Field2;
        ADODC2.ParamByName('Field3').AsString := Field3;
        ADODC2.ParamByName('Field4').AsInteger := Field4;
        ADODC2.ExecSQL;
        ADODC1.Next;
      end
    else
      begin
        ShowMessage('無符合條件的資料');
      end;
  end;
end;

========================= 我是您的朋友﹐有您真好﹗ ========================= 發表人 - cashxin2002 於 2004/11/21 12:25:42

------
忻晟