int main(){
  _bstr_t ConnStr = "Provider=SQLOLEDB;    \
                     Data Source=(local);  \
                     Initial Catalog=pubs; \
                     Integrated Security=SSPI";

  _ConnectionPtr adoConn;

  try {
    adoConn.CreateInstance(__uuidof(Connection));
    adoConn->CommandTimeout =  300 ;
    adoConn->CursorLocation = adUseServer;
    adoConn->IsolationLevel = adXactReadCommitted;
    adoConn->Attributes     =  0 ;
    adoConn->Open(ConnStr,"","",adConnectUnspecified);

    _CommandPtr adoCmd;
    adoCmd.CreateInstance(__uuidof(Command));
    adoCmd->ActiveConnection = adoConn;

    adoCmd->CommandType = adCmdText;
    adoCmd->CommandText = _bstr_t("CREATE PROC Proc1 @file_size NUMERIC(20) AS return @file_size/10000000000");
    adoCmd->Execute( 0 , 0 ,adOptionUnspecified);

    adoCmd->CommandType = adCmdStoredProc;
    adoCmd->CommandText = _bstr_t("Proc1");

    ParametersPtr adoPar;
    adoPar = adoCmd->Parameters;
    adoPar->Append(
      adoCmd->CreateParameter(
         "@RETURN",
         adInteger,
         adParamReturnValue,
          0 ,
          0 
      )
    );

    __int64 i64(1234567890000000000I64);
    adoPar->Append(
      adoCmd->CreateParameter(
         "@FS",
         adVarChar,
         adParamInput,
          25 ,
         i64
      )
    );
    adoCmd->Execute( 0 , 0 ,adOptionUnspecified);

    long r = adoPar->Item[0L]->Value;
    std::cout << r << std::endl;

    adoCmd->CommandType = adCmdText;
    adoCmd->CommandText = _bstr_t("drop procedure Proc1");
    adoCmd->Execute( 0 , 0 ,adOptionUnspecified);
  }
  catch(_com_error& e){
    std::cout << (const char*)e.Description() << std::endl;
  }