使用ADOQUERY，在UpdateBatch時，遇到查詢太過複雜 |
|
答題得分者是：Chance36
|
|
iann
一般會員   發表：17 回覆：31 積分：14 註冊：2003-08-30 發送簡訊給我 |
各位前輩，小弟又來了... Orz
上次發問過為何會有這樣子的問題，那時Chance36 版大告訴我該加上 post..
但是現在在資料為新增的狀態下，是沒問題的，但是，如果碰到為更新的狀態的話，還是會遇到這個問題，我把我的程式段放在下面，請各位前輩幫忙指導一下，感恩不盡... Orz
p.s 以上說明的情況是指，同一份文件，在第一次進行轉檔時，可以順利轉入，而在重複一次這個文字檔的轉入時，就會遇到這種狀況。 if MessageDlg('轉檔？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
i:=1;
ADOQuery2.Open;
with ADOQuery1 do
begin
Active:=True;
First;
try
while not eof do
begin
StatusBar1.Panels[0].Text:='²Ä' IntToStr(i 1) '/' IntToStr(ADOQuery1.RecordCount) '筆 資料處理中';
if ADOQuery2.Locate('Barcode',ADOQuery1.Fields[7].Value,[]) then
ADOQuery2.Edit
else
ADOQuery2.Append;
for i:=0 to fieldCount-1 do
begin
ADOQuery2.fields[i].value:=ADOQuery1.Field[i].value;
end;
ADOQuery2.Post;
next;
inc(i);
end;
ADOQuery2.UpdateBatch;
finally
StatusBar1.Panels[0].Text:='';
end;
end;
end; 努力學習中....
------
努力學習中.... |
|
eric039
中階會員  發表：57 回覆：126 積分：51 註冊：2002-11-30 發送簡訊給我 |
|
|
iann
一般會員 發表：17 回覆：31 積分：14 註冊：2003-08-30 發送簡訊給我 |
|
|
stillalive
初階會員 發表：7 回覆：148 積分：41 註冊：2004-04-07 發送簡訊給我 |
這位大大你好 試試看程式改成這樣
try
while not eof do
begin
StatusBar1.Panels[0].Text:='²Ä' IntToStr(i 1) '/' IntToStr(ADOQuery1.RecordCount) '筆 資料處理中';
if ADOQuery2.Locate('Barcode',ADOQuery1.Fields[7].Value,[]) then
ADOQuery2.Edit
else
ADOQuery2.Append;
for i:=0 to fieldCount-1 do
begin
ADOQuery2.fields[i].value:=ADOQuery1.Field[i].value;
end;
next;
inc(i);
end; ADOQuery2.Post; // EXECUTE ONCE WHEN LOOP END ADOQuery2.UpdateBatch;
finally
StatusBar1.Panels[0].Text:='';
end;
end;
end;
|
|
iann
一般會員 發表：17 回覆：31 積分：14 註冊：2003-08-30 發送簡訊給我 |
|
|
iann
一般會員 發表：17 回覆：31 積分：14 註冊：2003-08-30 發送簡訊給我 |
|
|
stillalive
初階會員 發表：7 回覆：148 積分：41 註冊：2004-04-07 發送簡訊給我 |
|
|
iann
一般會員 發表：17 回覆：31 積分：14 註冊：2003-08-30 發送簡訊給我 |
|
|
stillalive
初階會員 發表：7 回覆：148 積分：41 註冊：2004-04-07 發送簡訊給我 |
|
|
iann
一般會員 發表：17 回覆：31 積分：14 註冊：2003-08-30 發送簡訊給我 |
|
|
stillalive
初階會員 發表：7 回覆：148 積分：41 註冊：2004-04-07 發送簡訊給我 |
|
|
iann
一般會員 發表：17 回覆：31 積分：14 註冊：2003-08-30 發送簡訊給我 |
|
|
Chance36
版主 發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
iann 你好
當資料更新回資料庫時，若為新增的record時,Ado的Provider會產生一Insert的ｓｑｌ指令，如
Insert Into Tablename (Field1.....Field101) Value(：Value1....：Value101)然後帶入１０１個
參數值進去 但若為Update的狀況時，Ado的Provider會產生一Update的ｓｑｌ指令，如 Update Tablename
Set Field1=：Value1,....Field101=：Value101 Where Field1=：Q1,...Field101=：Q101；
然後帶入２０２個新值及舊值當參數。 問題在上面紅色部份的Where條件，或許資料庫(Access)無法處理這麼多的條件子句，所以丟個[查
詢太過複雜。]訊息給你。 假設這個論述正確的話，我們就可以從調整Field.ProviderFlags屬性來著手，以減少Where條件子
句的複雜度，具體程式碼如下:
Var
f:TField;
Begin
if MessageDlg('轉檔？',mtConfirmation,[mbYes,mbNo],0)=mrYes then begin
ADOQuery2.Open; // 新增這一段
For i:=5 To AdoQuery2.FieldCount-1 Do Begin
F := AdoQuery2.Fields[i];
// 不是key欄位才要把pfInWhere 屬性值拿掉
If Not (pfInKey IN F.ProviderFlags) Then
F.ProviderFlags := F.ProviderFlags - pfInWhere ;
End;
// 改完之後 Update 的SQL變成(假設只有前5個欄位是Key欄位 )
// Update Tablename Set Field1=：Value1,....Field101=：Value101 [red]Where Field1=：Q1,...Field101=：Q5；
// 如此 Where 的條件子句只有 5個欄位的判斷式,而不是101個 i:=1;
with ADOQuery1 do begin
Active:=True;
First;
try
while not eof do begin
StatusBar1.Panels[0].Text:='²Ä' IntToStr(i 1) '/' IntToStr(ADOQuery1.RecordCount) '筆 資料處理中';
if ADOQuery2.Locate('Barcode',ADOQuery1.Fields[7].Value,[]) then
ADOQuery2.Edit
else
ADOQuery2.Append;
for i:=0 to fieldCount-1 do begin
ADOQuery2.fields[i].value:=ADOQuery1.Field[i].value;
end;
ADOQuery2.Post;
next;
inc(i);
end;
ADOQuery2.UpdateBatch;
finally
StatusBar1.Panels[0].Text:='';
end;
end;
end;
_______________________________________
深藍的魚，祝您好運..........連連
|
|
iann
一般會員 發表：17 回覆：31 積分：14 註冊：2003-08-30 發送簡訊給我 |
發表時間：2004-08-13 09:25:26
IP:61.31.xxx.xxx 未訂閱
系統時間：2024-09-12 7:16:41
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |