Fórum Como recuperar códito do erro de componentes ADO #157062
30/04/2003
0
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
Curtir tópico
+ 0
Responder
Posts
01/05/2003
Adilsond
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)