DELPHI 7 +DBEXPRESS+MSSQL UPDATE 不知何原因永不回頭 |
|
缺席
|
|
ws.ching
一般會員   發表：21 回覆：10 積分：6 註冊：2003-08-20 發送簡訊給我 |
DELPHI 7 DBEXPRESS MSSQL UPDATE 不知何原因永不回頭 UwsPROD='UPDATE PROD SET QTYORD=:QTYORD,QTYSTORE=:QTYSTORE WHERE P_NO=:OLD_P_NO';
/////////////////////////
procedure UpdatePROD; ////////
var
iCount : Integer;
sFieldName : String;
nValue : Variant;
begin
DBQU.Close;
DBQU.CommandText:=UwsPROD; ///////
for iCount:=0 to UpdateDs.FieldCount-1 do
begin
nValue:=UpdateDs.Fields[iCount].NewValue;
sFieldName:=UpdateDs.Fields[iCount].FieldName;
if (Assigned(DBQU.Params.FindParam(sFieldName))) then
begin
DBQU.Params.ParamByName(sFieldName).Value:=nValue;
end;
end;
DBQU.Params.ParamByName('OLD_P_NO').Value:=UpdateDs.fieldByName('P_NO').Value; /////
DBQU.ExecSQL(False);
end; DBQU 單獨連接 TSQLConnection
執行上UPDATE, OLD_P_NO 碰到'0001','0.30'即'00','0.' 為開頭之資料
DBQU.ExecSQL(False);就不回頭了!其它編號都正常!
PROD 約50000筆資料.
|
|
ws.ching
一般會員 發表：21 回覆：10 積分：6 註冊：2003-08-20 發送簡訊給我 |
發表時間：2004-11-21 16:15:31
IP:211.21.xxx.xxx 未訂閱
系統時間：2024-06-02 0:41:23
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |