呵呵,今天也遇到需要查询返回错误代码的问题,跑来看了看没有收获,只好
回去自己找,居然让我找到了
procedure TForm1.Button1Click(Sender: TObject);
const
ServerError=13059;
PassWordError=10036;
begin
try
Table1.Active:=true;
except
on E:EDBEngineError do
begin
if E.Errors[0].ErrorCode=PassWordError then ShowMessage('
帐号和密码输入错误');
if E.Errors[0].ErrorCode=ServerError then ShowMessage('
没有输入帐号或服务器没有启动');
// ShowMessage(IntToStr(E.Errors[0].ErrorCode));
end;
end;
end;
