🚀 go-pugleaf

I had the same problem (by the way it shouldn't happen) and in order to do
something similar I did these:

void  ShowADOErrors(TADOConnection* cn)
{
   AnsiString err;
   int i,c=0;
   _di_Errors ep;
   _di_Error epi;

   if (!cn) return;
   cn->ConnectionObject->Get_Errors(ep);
   ep->Get_Count(c);
   for (i=0;i<c;i++) {
      int n=0;
      WideString desc;

      if (SUCCEEDED(ep->Get_Item(i,epi))) {
         epi->Get_Number(n);
         epi->Get_Description(desc);

         err+=AnsiString(n)+". "+desc+"\n";
         epi.Release();
      }
   }
   ep->Clear();
   ep.Release();

   if (!err.IsEmpty())
      Application->MessageBox(err.c_str(),"ADO
Error",MB_OK|MB_ICONERROR|MB_SERVICE_NOTIFICATION);
   return;
}

K.Tragas
ktragas@incahellas.com

"Martin Klopp Jensen" <klopp@mail.dk> wrote in message
news:3dec70ae@newsgroups.borland.com...
> Hi all,
> i have a problem finding out why my execution fails.
> In the function, ADOExecuteComplete, there is a parameter const Error
*Error
> but i can't access it.
> I get this error:
> [Linker Error] Unresolved external 'System::___linkproc__ __fastcall
> CheckAutoResult()' referenced from C:\PROGRAM
> FILES\BORLAND\...\RELEASE\VCLE.LIB|syssupp
> when trying to call Error->Description...
>
> Anybody have any experience with this?
> Should i got about it in another way?
>
> Cheers, Martin
>
>