吊
吊子
Unregistered / Unconfirmed
GUEST, unregistred user!
在这里我曾经看到过这样的文章：
Database1.Open;
Database1.StartTransaction;
try
......................(此处写更新语句)
Database1.Commit;
except
On E: EDBEngineError do
begin
Database1.Rollback;
for i := 0 to E.ErrorCount - 1 do
begin
case E.Errors.ErrorCode of
$2601:
begin
ShowMessage('呵呵！我不允许鍵值重覆!');
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
这样做的确好用，我也试过了！但是我现在的想法有些改变。我想将窗体中添加ApplicationEvents控键，而不需要
在代码中添加try ,,,,,,except...end;然后再控键ApplicationEvents的Onexception中写入错误处理，但是我现在
在这个事件中得不到数据库返回的错误代码，就是EDBEngineError.Errors.ErrorCode ,我想问问各位大侠，在
ApplicationEvents的Onexception怎么才能得到 数据库返回的错误代码?????????
Database1.Open;
Database1.StartTransaction;
try
......................(此处写更新语句)
Database1.Commit;
except
On E: EDBEngineError do
begin
Database1.Rollback;
for i := 0 to E.ErrorCount - 1 do
begin
case E.Errors.ErrorCode of
$2601:
begin
ShowMessage('呵呵！我不允许鍵值重覆!');
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
这样做的确好用，我也试过了！但是我现在的想法有些改变。我想将窗体中添加ApplicationEvents控键，而不需要
在代码中添加try ,,,,,,except...end;然后再控键ApplicationEvents的Onexception中写入错误处理，但是我现在
在这个事件中得不到数据库返回的错误代码，就是EDBEngineError.Errors.ErrorCode ,我想问问各位大侠，在
ApplicationEvents的Onexception怎么才能得到 数据库返回的错误代码?????????