🚀 go-pugleaf

Hi Daryl

See the code below you can get error information from the connection ADO
Connection Component

 for(int i = 0; i < ADOConnection1->Errors->Count;i++)
        {

Application->MessageBox(AnsiString(ADOConnection1->Errors->Item[i]->Source).
c_str(),"Source",0);

Application->MessageBox(IntToStr(ADOConnection1->Errors->Item[i]->Number).c_
str(),"Number",0);

Application->MessageBox(AnsiString(ADOConnection1->Errors->Item[i]->Descript
ion).c_str(),"Description",0);

Application->MessageBox(AnsiString(ADOConnection1->Errors->Item[i]->SQLState
).c_str(),"SQLState",0);

Application->MessageBox(IntToStr(ADOConnection1->Errors->Item[i]->NativeErro
r).c_str(),"NativeError",0);

Application->MessageBox(AnsiString(ADOConnection1->Errors->Item[i]->HelpFile
).c_str(),"HelpFile",0);

Application->MessageBox(AnsiString(ADOConnection1->Errors->Item[i]->HelpCont
ext).c_str(),"HelpContext",0);
        }

You will also need to add

#pragma alias
"@System@@CheckAutoResult$qqrv"="@System@@CheckAutoResult$qqrl"

To your code


Charles

"Daryl" <stockd@tpg.com.au> wrote in message
news:3f4e7cc2@newsgroups.borland.com...
> Hi all
> When using the event method for OnPostError, example below.  Note: I have
> customised the default name to mine so it can be generalised so I can use
it
> for a few datasets.
>
> void __fastcall TDMLab::PostErrorMgr(TDataSet *DataSet, EDatabaseError *E,
> TDataAction &Action)
> {
>   // My code to handle the error thrown.
>   // I want to use a case statement of ErrorCodes
> }
>
> The problem I am having is that  exception " EDatabaseError *E  " supplied
> when choosing this event does not provide the ADO error number.  The
message
> is supplies is OK but I am after a way to trap for the error numbers .  I
> think there is a EOleSysError Message and ErrorCode properties that supply
> this information but I can not find a way to get this data using what is
> supplied ie EDatabaseError.  Is there a way to cast to another object type
> to get this information???
>
> How do other people handle this problem using VCL ADO components????
>
> Look any direction / information would be good...
>
> Thanks
> Daryl
>
>