🚀 go-pugleaf

Hi!
System: MSSQL2000+SP1 / C++Builder 5
Result program running:
iCounter: 2
Mess: [DBNETLIB][ConnectionRead (recv()).]General network error. Check your
network documentation
nNativeError: 11

Q: is it bag? can around?

Source:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int iCounter = 0;

  try{
    while( iCounter < 100){
      ADOConnection1->Connected = false;
      ADOConnection1->Connected = true;

      TExecuteOptions eo;
      ADOConnection1->Execute( "exec sp_setapprole 'MyRole', 'q'", cmdText,
(eo.Clear()<<eoExecuteNoRecords) );
      iCounter++;
    }
  }
  catch( Exception &e){
    AnsiString as;
    int nNativeError;
    for( int i = ADOConnection1->Errors->Count - 1; i >= 0 ; i-- ){
      nNativeError = ADOConnection1->Errors->
        Item[i]->NativeError;
    }
    as.sprintf( "iCounter: %d\n Mess: %s\nnNativeError: %d ",
      iCounter,
      e.Message.c_str(),
      nNativeError
    );
    Application->MessageBox( as.c_str(), "Bag!!!", MB_OK);
  }


}