#import "msado15.dll" no_namespace rename("EOF", "EndOfFile")

#include <stdio.h>
#include <ole2.h>
#include <conio.h>



//----------------------------------------------------------------------------------------------------------------------------
bool InsXYZ( ptrdiff_t &pConn, long  x, long y, long z  )
{
    _ConnectionPtr  &pConnection = reinterpret_cast<_ConnectionPtr &>(pConn);
	_RecordsetPtr   pRS;
	_CommandPtr		pCmd; 
	_variant_t		rowsAffected(0L); 
	try
     {
            HRESULT hr = pCmd.CreateInstance( CLSID_Command );
           pCmd->CommandType = adCmdText;
           pCmd->ActiveConnection = pConnection;
	      pCmd->CommandText = (_bstr_t)L" INSERT INTO coor (x, y, z) VALUES ( ?, ?, ? ) ";

            _ParameterPtr  pParm0 = pCmd->CreateParameter( "", adInteger, adParamInput, 0L, x );
            _ParameterPtr  pParm1 = pCmd->CreateParameter( "", adInteger, adParamInput, 0L, y );
            _ParameterPtr  pParm2 = pCmd->CreateParameter( "", adInteger, adParamInput, 0L, z );

            pCmd->Parameters->Append( pParm0 );
            pCmd->Parameters->Append( pParm1 );
            pCmd->Parameters->Append( pParm2 );

            hr = pCmd->Execute(&rowsAffected,  0 , adOptionUnspecified);
            if( hr == S_OK )
			return true;
        catch(_com_error& comerr)
        {
        }
        catch( ... )
        {
        }
  return false;
}
//----------------------------------------------------------------------------------------------------------------------------


int main() 
{
   if (FAILED(::CoInitialize(NULL)))
      return - 1 ;

    char *ss = "Provider='sqloledb'; Data Source='My_Data_Source'; Initial Catalog='pubs'; Integrated Security='SSPI';";

    _ConnectionPtr pConn;
    pConn.CreateInstance(__uuidof(Connection));
    pConn->Open ( ss, "", "", adConnectUnspecified );	

    for( int i =  0 ; i <  100 ; i++)
    {
	if( !InsXYZ( (ptrdiff_t &)pConn, i, i, i  )
		break;

    }
   ::CoUninitialize();
}