휴가갔다와서 방금 확인합니다....

서버오류번호 => IntToStr(Error.Errors[i].NativeError));

이렇게 하시면 서버의 오류코드값, 즉 SQLcode값을 확인할 수 있습니다.



참고로...

Procedure TDBErrorMessage.GetError(Error: EDBEngineError);

Var

I: Integer;

Begin

for i:=0 to Error.ErrorCount -1 do Begin

FMsg.add('오 류 번 호 : '+ IntToStr(Error.Errors[i].ErrorCode));

FMsg.add('내 용 : '+ Error.Errors[i].Message);

Fmsg.add('서버오류번호 : '+ IntToStr(Error.Errors[i].NativeError));

Fmsg.add('엔 진 번 호 : '+ IntToStr(Error.Errors[i].Category)+':'+

IntToStr(Error.Errors[i].subcode));

Fmsg.add('----------------------------------------');

End;

End;

답변이 될런지......~~



정 께서 말씀하시기를...

> 답변 고맙습니다.

>

> Errors[index]등은 Delphi Error Code Value를 가져 오기

> 때문에 제가 원하는 값이 아닙니다.

> Sql Error Code Value를 가져 와야 해요.

>

> 예) key violation Error

> - Errors[0].ErrorCode = 9729

> - Message에 SQLCODE = -803

>

> 제가 원하는 값은 -803 입니다.

>