2,495
社区成员
发帖
与我相关
我的任务
分享高手帮忙!!!程序内怎样获得MSSQLSERVER数据库的错误代码????
delphi5使用ADO访问MSSqlServer2000,在存储过程内可以使用系统变量@@error来取得错误代码.程序内使用ADOQuery执行sql语句可以得到错误消息但不知道怎样取得错误代码???? 如果在存储过程里执行可以检测到错误代码为2627
//表student 的no字段为主键
try
with ADOQuery2 do
begin
Close;
SQL.Clear;
sql.Add( 'insert into student ( no ,name) values(5,''abc '' ) ') ;
ExecSQL;
end;
except
on MYError:Exception do //
begin
showmessage(MYError.Message);
end;
end;
//表student 的no字段为主键
try
with ADOQuery2 do
begin
Close;
SQL.Clear;
sql.Add( 'insert into student ( no ,name) values(5,''abc '' ) ') ;
ExecSQL;
end;
except
on MYError:Exception do //
begin
showmessage(MYError.Message);
end;
end;
...全文
请发表友善的回复…
发表回复
beyondtkl 2004-03-17
- 打赏
- 举报
我自己找到了 用dbExpress的
我刚测试的
with SQLQuery1 do
begin
Close;
SQL.Clear;
SQL.Text := 'SELECT seq1 FROM NoName';
try
Open;
except
on e:EDBEngineError do
//ShowMessage(pchar(e.Message));
ShowMessage(pchar(e.Errors[0].ErrorCode));
end;
end;
OK.
// 测试通过 ，不过它会出现两个错误代码，你需要的是后面那一个
我刚测试的
with SQLQuery1 do
begin
Close;
SQL.Clear;
SQL.Text := 'SELECT seq1 FROM NoName';
try
Open;
except
on e:EDBEngineError do
//ShowMessage(pchar(e.Message));
ShowMessage(pchar(e.Errors[0].ErrorCode));
end;
end;
OK.
// 测试通过 ，不过它会出现两个错误代码，你需要的是后面那一个
zouyidao 2003-08-22
- 打赏
- 举报
??
zouyidao 2003-08-21
- 打赏
- 举报
漏了一句:student表内有no字段为5的记录
