Como recuperar códito do erro de componentes ADO
Senhores,
Estou usando Componentes ADO para fazer acesso a um banco SQL Server 7 e gostaria de saber se há alguma maneira de retornar algum código de erro quando o objeto gerar uma exceção.
Por exemplo: se dois usuário tentarem gravar um registro com o mesmo código, ao mesmo tempo, é gerada uma msg de erro de chave primária.
Como descobrir o código numérico do erro para poder distinguir os outros tipos de erro como registro alterado por outro usuário, etc.
Grato pela atenção,
Gabriel
Estou usando Componentes ADO para fazer acesso a um banco SQL Server 7 e gostaria de saber se há alguma maneira de retornar algum código de erro quando o objeto gerar uma exceção.
Por exemplo: se dois usuário tentarem gravar um registro com o mesmo código, ao mesmo tempo, é gerada uma msg de erro de chave primária.
Como descobrir o código numérico do erro para poder distinguir os outros tipos de erro como registro alterado por outro usuário, etc.
Grato pela atenção,
Gabriel
Gatoledo
Curtidas 0
Respostas
Adilsond
30/04/2003
Se voce estiver utilizando um TClientDataSet:
procedure TdtmPrincipal.cdsUsuarioPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
with EDBClient(E) do
begin
if ErrorCode = 9729 then
MessageDlg(´Usuário já cadastrado.´, mtError, [mbOK], 0)
else
MessageDlg(Message, mtError, [mbOK], 0);
end;
Action := daAbort;
end;
procedure TdtmPrincipal.cdsUsuarioPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
with EDBClient(E) do
begin
if ErrorCode = 9729 then
MessageDlg(´Usuário já cadastrado.´, mtError, [mbOK], 0)
else
MessageDlg(Message, mtError, [mbOK], 0);
end;
Action := daAbort;
end;
GOSTEI 0