도움이 될련지

샘플코드을 참조하세요....

void __fastcall TMainForm::ErrorCheck (TDataSet *TDataSet, EDatabaseError *E, TDataAction &Action)
{
  AnsiString S;
  EDBEngineError *Err = dynamic_cast<EDBEngineError*>(E);

  if (Err) {
     for (int i = 0; i < Err->ErrorCount; i++) {
         if (i > 0) AppendStr(S, '\n');
         TDBError *E = Err->Errors[i];
         AppendStr(S, Format( "%.4x (%d): %s",
                              ARRAYOFCONST((E->ErrorCode, E->NativeError,E->Message))));
     }
     DatabaseError(S, 0);
  }
}