C / C++ / MFC

#define int8store(T,A) *((ulonglong*)(T))=(ulonglong)(*(A))

create procedure my_proc( @param1 int )
as
begin
   return 1
end

#define ADO_TESTHR(x)	{	if FAILED(x) _com_issue_error(x);	};
 
_ConnectionPtr pConn;
_CommandPtr pCmd;
_variant_t vtValue;
 
try
{   
    ADO_TESTHR( pConn.CreateInstance( "ADODB.Connection" ) );
    ADO_TESTHR( pCmd.CreateInstance( "ADODB.Command" ) );
 
    .. open your connection  pConn->Open something
 
    pCmd->ActiveConnection = pConn;
    pCmd->CommandText = "dbo.my_cool_proc";   // The name of your proc
    pCmd->CommandType = adCmdStoredProc;
 
    // Add the proc parameters
    pCmd->Parameters->Append( pCmd->CreateParameter( "param1", adInteger, adParamInput, sizeof(int) ) );
     
    // Add the return parameter.  This MUST be the last parameter appended
    pCmd->Parameters->Append( pCmd->CreateParameter( "return", adInteger, adParamReturnValue, sizeof(int) ) );
 
    // Set the parameter value  
    pCmd->Parameters->Item["param1"]->Value = 1234;
 
    pCmd->Execute( NULL, NULL, adCmdStoredProc );
 
    // Check out the return value
    vtValue = pCmd->Parameters->Item["return"]->Value;
    if( vtValue.vt == VT_I4 )
    {
        TRACE( "%lu\n", static_cast< long >( vtValue ) );
    }		
  
}
catch( _com_error &ce )
{
}
 
try
{
   if( pConn )
   {
      if( pConn->State != adStateClosed )
      {
          pConn-Close();
      }
   }
}
catch( ... )
{
}