Delphi ADO错误异常处理?
通过将表和查询替换为ADO组件中的等效项,我刚从使用BDE切换到ADO 我总是在try…catch中执行查询,如下所示:Delphi ADO错误异常处理?,delphi,ado,bde,c++builder-xe4,Delphi,Ado,Bde,C++builder Xe4,通过将表和查询替换为ADO组件中的等效项,我刚从使用BDE切换到ADO 我总是在try…catch中执行查询,如下所示: //Fdm is Data Module //TEndOfDay is TTable //QEndOfDay is TQuery Screen->Cursor = crSQLWait; Fdm->QEndOfDay->SQL->Add("SELECT * FROM TEndOfDay"); try{ Fdm->QEndOfDay->E
//Fdm is Data Module
//TEndOfDay is TTable
//QEndOfDay is TQuery
Screen->Cursor = crSQLWait;
Fdm->QEndOfDay->SQL->Add("SELECT * FROM TEndOfDay");
try{
Fdm->QEndOfDay->ExecSQL();
Fdm->QEndOfDay->Open();
Screen->Cursor = crDefault;
}
catch (EDBEngineError &DBEngineError){
strError = DBEngineError.Message;
Screen->Cursor = crDefault;
}
catch (EDatabaseError &DatabaseError){
strError = DatabaseError.Message;
Screen->Cursor = crDefault;
}
catch(...){
strError = "Error";
Screen->Cursor = crDefault;
}
由于我切换到ADO,这些异常(DBEngineError、DatabaseError)是否适用
我已经编辑了我的帖子,加入了德尔福的人,他们反应很快。无论答案是否在Delphi代码中。您都应该首先检查哪些是特定的ADO相关异常,然后检查哪些是更一般的数据库异常
EDBEngineError
是一个旧的BDE异常类,如果不使用BDE,则不再适用
Screen.Cursor := crSQLWait;
Fdm.QEndOfDay.SQL.Text := 'SELECT * FROM TEndOfDay';
try
try
Fdm.QEndOfDay.Open;
except
on E: EAdoError do
begin
// ADO specific error handling
end;
on E: EDatabaseError do
begin
// Generic database error handling
end;
on E: Exception do
begin
// Other exceptions (non-DB related)
end;
end;
finally
// Revert cursor to default always.
Screen.Cursor := crDefault;
end;
谢谢你,肯,谢谢你的回复。