🚀 go-pugleaf

How do I trap the erro when the open fails.  Currently I have a cheeze ball
msg.  How do I get better error trapping?
How do I tell the query is bad and not the connection string other than the
obvious make a separate connection object.


#include <initguid.h>  // Include only once in your application
#include "adoid.h"     // ADO GUID's
#include "adoint.h"    // ADO Classes, enums, etc.
#include "stdio.h"



#pragma argsused

int main(int argc, char* argv[])
{


    CoInitialize(NULL);

   HRESULT          hr  = S_OK;
   ADORecordset*    Rs1 = NULL;
   VARIANT          Source;
   VARIANT          Connect;

   VariantInit( &Source  );
   VariantInit( &Connect );

   Source.vt       = VT_BSTR;
   Source.bstrVal  = ::SysAllocString( L"SELECT * FROM shiftclass1");  //
the query is wrong

   Connect.vt      = VT_BSTR;
   Connect.bstrVal = ::SysAllocString( L"Provider=SQLOLEDB.1;Persist
Security Info=False;User ID=sa;Initial Catalog=dale_test;Data
Source=DEV3-WSMITH" );

   hr = CoCreateInstance( CLSID_CADORecordset,
                     NULL,
                     CLSCTX_INPROC_SERVER,
                     IID_IADORecordset,
                     (LPVOID *) &Rs1 );

   if( SUCCEEDED( hr ) )   hr = Rs1->Open( Source,
                                          Connect,
                                          adOpenForwardOnly,
                                          adLockReadOnly,
                                          -1 );
   }


   if( SUCCEEDED( hr ) )
   {
    hr = Rs1->Close();
   }
   else
   }
       printf("the query has failed");    // pure cheeze
   }

   if( SUCCEEDED( hr ) ) { Rs1->Release();  Rs1 = NULL; }
   if( SUCCEEDED( hr ) ) ::MessageBox( NULL, "Success!", "", MB_OK );

   CoUninitialize();

}

thanks

dale