B
BILLYZHENG
Unregistered / Unconfirmed
GUEST, unregistred user!
各位先進:
當我修改一筆記錄時,存盤時提示錯誤信息:
Project Mrp.exe raised exception class EDBEngineError with message 'Capability not supported.'.Process stopped.Use Step or Run to continue.
我用的是Oracle8數據庫,開發工具是Delphi5.0.新增一條記錄時,順利通過,就是修改不行.
begin
Try
If DataBase.Connected=False Then
DataBase.Connected:=True;
if not DataBase.InTransaction then DataBase.StartTransaction;
/*如果拿掉此句,修改後存檔,可以順利通過.但是,如果拿掉此句,多人同時修改同一筆記錄,則系統死機*/
TQuery(DataSource.DataSet).ApplyUpdates;
TQuery(DataSource.DataSet).CommitUpdates;
If DataBase.InTransaction then
DataBase.Commit;
Except
If DataBase.InTransaction then DataBase.Rollback;
Application.MessageBox('此筆記錄存檔失敗','',mb_OK);
EXIT;
End;
end;
請各位大俠幫忙解決.後生在此有禮.
當我修改一筆記錄時,存盤時提示錯誤信息:
Project Mrp.exe raised exception class EDBEngineError with message 'Capability not supported.'.Process stopped.Use Step or Run to continue.
我用的是Oracle8數據庫,開發工具是Delphi5.0.新增一條記錄時,順利通過,就是修改不行.
begin
Try
If DataBase.Connected=False Then
DataBase.Connected:=True;
if not DataBase.InTransaction then DataBase.StartTransaction;
/*如果拿掉此句,修改後存檔,可以順利通過.但是,如果拿掉此句,多人同時修改同一筆記錄,則系統死機*/
TQuery(DataSource.DataSet).ApplyUpdates;
TQuery(DataSource.DataSet).CommitUpdates;
If DataBase.InTransaction then
DataBase.Commit;
Except
If DataBase.InTransaction then DataBase.Rollback;
Application.MessageBox('此筆記錄存檔失敗','',mb_OK);
EXIT;
End;
end;
請各位大俠幫忙解決.後生在此有禮.