各位大大好
小弟我幫客戶寫一隻程式，做資料庫新增或修改資料用，
所使用的原件為IBOQUERY，今天在客戶家發生了DEADLOCK的問題，
但找不出DEADLOCK確切原因，於是想在程式裡面作揖些防範措施，
原本程式如下:
DB.StartTransaction;
try
IBOQUERY.Close;
IBOQUERY.SQL.Text := 'INSERT INTO ........';
IBOQUERY.ExceSQL;
DB.Commit;
except
on e:Exception do
begin
DB.Rollback;
end;
end;
請問一下，我今天在DEADLOCK發生後有辦法在 on e:Exception do
裡面判斷是否是發生DEADLOCK這個錯誤嗎
謝謝各位大大

------
蔡志全

try...except 是補捉錯誤的機制, 如果你是想抓出deadlock的判斷, 可以用一種簡單的方式顯示出錯誤訊息, 再由訊息中去判斷
try
....
except
on E:Exception do begin
ShowMessage(pChar(E.Message));
end;
end;
===================引 用 cursegold 文 章===================
各位大大好
小弟我幫客戶寫一隻程式，做資料庫新增或修改資料用，
所使用的原件為IBOQUERY，今天在客戶家發生了DEADLOCK的問題，
但找不出DEADLOCK確切原因，於是想在程式裡面作揖些防範措施，
原本程式如下:
DB.StartTransaction;
try
IBOQUERY.Close;
IBOQUERY.SQL.Text := 'INSERT INTO ........';
IBOQUERY.ExceSQL;
DB.Commit;
except
on e:Exception do
begin
DB.Rollback;
end;
end;
請問一下，我今天在DEADLOCK發生後有辦法在 on e:Exception do
裡面判斷是否是發生DEADLOCK這個錯誤嗎
謝謝各位大大

感謝版主大的回答，
我試試看
謝謝
===================引 用 P.D. 文 章===================
try...except 是補捉錯誤的機制, 如果你是想抓出deadlock的判斷, 可以用一種簡單的方式顯示出錯誤訊息, 再由訊息中去判斷
try
....
except
on E:Exception do begin
ShowMessage(pChar(E.Message));
end;
end;

------
蔡志全