請教下列Excute之後
我想寫如果沒有序號可以DEL 要秀出警告

可不知道那裡錯了耶..

跑出來結果都只有跑第一段G_OC_SN查無此序號
但是序號也被刪除了

csTemp = CilentDataSet

[code delphi]
With csTemp5 do //G_OC_SN
begin
Close;
Params.Clear;
CommandText := 'DELETE SAJET.G_OC_SN '
'WHERE PART_SN = ''' Edit1.Text ''' ';
Execute;
//Label2.Caption := '刪除：' IntToStr(csTemp.ChangeCount);
IF csTemp5.ChangeCount = 0 then
begin
showmessage ('G_OC_SN查無此序號');
end;
IF csTemp5.ChangeCount > 1 then
begin
showmessage ('退料成功');
Label1.Caption := '序號：' Edit1.Text '已被退出MR生產';
end;
end;
[/code]

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

編輯記錄

您已將 csTemp5 關掉, 當然 ChangeCount 永遠是零.
CommandText 是針對檔案進行指定的工作, 當然把檔案中的資料錄 DELETE 掉啦!

可是我把CLOSE 關掉 結果還是一樣噎



[code delphi]
With csTemp5 do //G_OC_SN
begin
//Close;
Params.Clear;
CommandText := 'DELETE SAJET.G_OC_SN '
'WHERE PART_SN = ''' Edit1.Text ''' ';
Execute;
Label5.Caption := 'OC_SN：' IntToStr(csTemp5.ChangeCount);
IF csTemp5.ChangeCount = 0 then
begin
showmessage ('G_OC_SN查無此序號');
end;
IF csTemp5.ChangeCount > 1 then
begin
showmessage ('退料成功');
//Label6.Caption := '序號：' Edit1.Text '已被退出MR生產';
end;
end;

[/code]

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

插花一下,
您的兩個判斷
IF csTemp5.ChangeCount = 0 then
IF csTemp5.ChangeCount > 1 then

一個判斷是否為 0, 一個判斷是否 大於 1
正好漏掉 = 1 的情況啊

您應該是手誤打錯了吧.
參考一下





===================引 用 lovemari 文 章===================
請教下列Excute之後
我想寫如果沒有序號可以DEL 要秀出警告

可不知道那裡錯了耶..

跑出來結果都只有跑第一段G_OC_SN查無此序號
但是序號也被刪除了

csTemp = CilentDataSet

[code delphi]
With csTemp5 do //G_OC_SN
begin
Close;
Params.Clear;
CommandText := 'DELETE SAJET.G_OC_SN '
'WHERE PART_SN = ''' Edit1.Text ''' ';
Execute;
//Label2.Caption := '刪除：' IntToStr(csTemp.ChangeCount);
IF csTemp5.ChangeCount = 0 then
begin
showmessage ('G_OC_SN查無此序號');
end;
IF csTemp5.ChangeCount > 1 then
begin
showmessage ('退料成功');
Label1.Caption := '序號：' Edit1.Text '已被退出MR生產';
end;
end;
[/code]

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

我修改成

ChangeCount > 0
ChangeCount = 0

結果都一樣

我開始懷疑 ChangeCount 是否不是我要的＝ ＝

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

我是沒用過 clientdataset, 不過單從您的程式碼來看, 是不是應該
先判斷 changecount=0
再判斷 changecount>0
或乾脆直接
if .....changecount<=0 then begin
brabrabra;
end
else begin
brabrabra2;
end if;


===================引 用 lovemari 文 章===================
我修改成

ChangeCount > 0
ChangeCount = 0

結果都一樣

我開始懷疑 ChangeCount 是否不是我要的＝ ＝

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

ChangeCount 是指 DataSet 開檔後, 被 User 修改或被 Code 修改的筆數, 不是 Execute 的筆數.
因查不到 Excute 有回傳的資訊, 故建議您用
'SELECT COUNT(*) AS intCount FROM SAJET.G_OC_SN WHERE PART_SN = ''' Edit1.Text ''' '; 得到將 DELETE 的筆數 intCount.

補充一下, TADOQuery 有提供 RowsAffected, 但 TClientDataSet 無, 只好自行變通一下.
就是說: 山不轉路轉, 沒辦法就自己想辦法啦!

編輯記錄

謝謝大大指教

我想補充 上述方式

因為是去Count Edit1的值

那如果這各值是在Talbe沒有搜尋到的

沒有搜尋到自然就沒有Delete 這樣會算到嗎???

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

===================引 用 lovemari 文 章===================
我想補充 上述方式

因為是去Count Edit1的值

那如果這各個值是在Talbe沒有搜尋到的

沒有搜尋到自然就沒有不要執行 Delete, 也就是 Delete 了零筆.

大大 我這段那裡錯了嗎

錯誤訊息是找不到 INCOUNT


[code delphi]
With csTempCount do //Count G_OC_SN
begin
Close;
Params.Clear;
CommandText := 'SELECT COUNT(PART_SN) "INCOUNT" '
'FROM SAJET.G_OC_SN '
'WHERE PART_SN = ''' Edit1.Text ''' ';
Execute;
I := FieldByName('INCOUNT').AsInteger;
Label5.Caption := 'OC_SN：' IntToStr(I) ;
Edit1.Clear;
[/code]




===================引 用 herbert2 文 章===================
我想補充 上述方式

因為是去Count Edit1的值

那如果這各個值是在Talbe沒有搜尋到的

沒有搜尋到自然就沒有不要執行 Delete, 也就是 Delete 了零筆.

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

編輯記錄

您的 SQL 語法錯誤, 欄名的 Alias : INCOUNT 不要加雙引號『"』.

不能用雙引號阿  可我之前有這樣寫過耶

SELECT SN "序號",DATE "日期"

用雙引號方式去做

=============================

那我剛剛把 "INCOUNT" 改成 'INCOUNT' 也不可以
INCOUNT 變成白色的字體 無法執行

然後又改成 雙單引號 ''INCOUNT''
結果跑出來是 無法在應該是出現FROM關鍵字上的地方找到它

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

編輯記錄

您用什麼資料庫啊?
===================引 用 lovemari 文 章===================
不能用雙引號阿 可我之前有這樣寫過耶

SELECT SN "序號",DATE "日期"

用雙引號方式去做

=============================

那我剛剛把 "INCOUNT" 改成 'INCOUNT' 也不可以
INCOUNT 變成白色的字體 無法執行

然後又改成 雙單引號 ''INCOUNT''
結果跑出來是 無法在應該是出現FROM關鍵字上的地方找到它

------
What do we live for if not to make life less difficult for each other?

ORACLE 9i

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

SELECT N_01 日期 ,N_02 序號, N_03 廠商 ,N_04 料號 FROM XABN;
不需要雙引號吧
===================引 用 lovemari 文 章===================
ORACLE 9i

------
What do we live for if not to make life less difficult for each other?