如何從資料庫抓出"符合條件欄位"然後在另存到一個新的資料庫阿? |
尚未結案
|
sun740911
一般會員 發表:4 回覆:3 積分:1 註冊:2004-11-18 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 請參考以下的方法﹕
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
------
忻晟 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |