使用ADO调用存储过程

 在ADO中调用存储过程一直是一个困扰大家的问题。其实，关于ADO调用存储过程的
   方法在很多书中都有讲到，标准的做法无非是按照以下步骤进行：
    1、生成并初始化一个_CommandPtr对象；
    2、生成调用存储过程需要的参数，这些参数都是_ParameterPtr对象；
    3、按照顺序将使用_CommandPtr的Append方法为存储过程提供参数（包括输入参数
       和输出参数）；
    4、为_CommandPtr对象指定需要使用的ADO连接；
    5、使用_CommandPtr的Execute方法调用存储过程；
    6、从结果中获取返回参数的值（如果有的话）。

   具体的过程在此我不详细描述，我想看看本文附带的代码就应该很明白了。

   在这里我想就我使用ADO调用存储过程时的一些体会说明一下。

  1、关于CreateParameter函数

   该函数的原型为：CreateParameter (Name, Type, Direction, Size, Value)

   其中Name是参数的名称，可以指定也可以不指定；
   Type是一个DataTypeEnum值，指定参数的类别，取值有adInteger（整型）、adChar（字符/字符串型）等；
   Direction是一个ParameterDirectionEnum值，其取值为adParamInput、adParamInputOutput、
   adParamOutput、adParamReturnValue、adParamUnknown；
   Size是一个Long类型的值，指示该参数值以字节计算的最大长度，例如对int型，该值可以取为sizeof(int)，
   对Long型，该值可以取为sizeof(long)，对字符串型，可以使用该字符串的长度；
   Value是一个variant类型的值，是该参数的取值。

   在这里需要注意的是，Type参数、Direction参数以及Size参数一定要和存储过程定义时的参数相吻合，

   例如，如果有下面一个存储过程
   CREATE  PROCEDURE SMS_Proc_Handle_All
   (@UserID Integer,
    @SourAddr Varchar(15),
    @DestAddr varchar(5000),
    @AvValue Single output,
    @ReturnInfo varchar(100) output
   )
   则Type参数的取值依次为adInteger、adChar、adChar、adSingle，adChar；
   Direction参数的取值依次为adParameterIn、adParameterIn、adParameterIn、adParameterOut、adParameterOut；
   对于输入参数，Size的值可以根据实际数值来定，对于输出参数，最好是根据定义确定（上例中ReturnInfo参数的
   Size值可以取为100）。

   2，关于获取Output的参数

     获取ourput参数是大家最关注的问题，同时也是最“难”的问题，因为按照书本上的写法，经常获得不了
   Output参数，其实这个问题很容易解决：在调用_CommandPtr的Execute方法时，写成
   cmmd->Execute(NULL, NULL, adCmdStoredProc);
   而不要写成
   RecordsetPtr rec = cmmd->Execute(NULL, NULL, adCmdStoredProc);
   也就是说，不取返回值（我不知道这是为什么，但是相信我，事情就是这样）。
   这句执行完后，使用
   cmmd->Parameters->GetItem("XXXXXX")->GetValue();
                          ^^^^^^^
                        输出参数的名称
   就可以获得输出参数的值了。

   以下是一个通过ADO调用存储过程的部分代码：

  _CommandPtr cmmd;
  HRESULT hr = cmmd.CreateInstance(__uuidof(Command));
  if(FAILED(hr))
  {
   AfxMessageBox("NewNetDatabase()中创建_CommandPtr对象失败");
   return 0;
  }
  _ParameterPtr param;
  param = cmmd->CreateParameter(""/*NetType*/,adTinyInt, adParamInput,
    sizeof(BYTE),(BYTE)(m_nNetType+1));
  cmmd->Parameters->Append(param);
  param = cmmd->CreateParameter(""/*Name*/,adVarChar, adParamInput,
   m_strName.GetLength()+1, _variant_t(m_strName));
  cmmd->Parameters->Append(param);
  param = cmmd->CreateParameter(""/*Desp*/,adVarChar, adParamInput,
   m_strDesp.GetLength()+1, _variant_t(m_strDesp));
  cmmd->Parameters->Append(param);
  param = cmmd->CreateParameter("NewNetID"/*NetID*/,adInteger, adParamOutput,
   sizeof(long), (long)m_nNewNetID);//返回参数，返回新建的网络的ID
  cmmd->Parameters->Append(param);
   cmmd->CommandText=_bstr_t("GSDT_NewNet");//存储过程的名称
  cmmd->ActiveConnection = m_pConPtr;//需要使用的ADO连接
  cmmd->CommandType=adCmdStoredProc;
  //注意下面的一行代码，如果你写成这样，就获得不了返回参数的值
  //_RecordsetPtr rec = cmmd->Execute(NULL, NULL, adCmdStoredProc);
  //我不知道这是为什么，但事实就是这样：）
  cmmd->Execute(NULL, NULL, adCmdStoredProc);
  m_nNewNetID=(long)cmmd->Parameters->GetItem("NewNetID")->GetValue();//通过参数返回值
  cmmd.Detach();

------------------------------------------------------

在一个项目中,我需要用到存储过程来访问数据,为了提供一个比较一致的接口以便调用,我没有使用createparameter(),而是调用commandptr的refresh()函数先从数据库中查询参数.
_connectionptr m_pconn;
m_pconn.createinstance(__uuidof(connection));
m_pconn->open("driver={sql server};server=127.0.0.1;database=pub;uid=sa;pwd=", "","",0);

_commandptr  m_pcommand;
m_pcommand.createinstance(__uuidof(command));
_recordsetptr m_precordset;
m_precordset.createinstance(__uuidof(recordset));

m_pcommand->activeconnection = m_pconn;
m_pcommand->commandtext = "sp_xx";//存储过程名
m_pcommand->putcommandtype(adcmdstoredproc);
m_pcommand->parameters->refresh();//从数据库查询参数信息


接下来就能够对每一个参数赋值了:
long cnt = m_pcommand->parameters->getcount();//取得参数的个数
for(long k=1;k<cnt;k++) 
{//由于ado中认为返回值是第一个参数,因此这里用k=1滤掉第一个参数
 m_pcommand->parameters->getitem(k)->value = xxx;//按存储过程的参数顺序给参数赋值
}


现在能够执行这个存储过程了
m_precordset = m_pcommand->execute(0,0,adcmdstoredproc);
这个时候,假如接下来用
_variant_t ret_val = m_pcommand->parameters->getitem((long)0)->value;
那么将得不到值
而假如像下面这样调用的话就能够得到返回值了
m_precordset->close();
_variant_t output_para = m_pcommand->parameters->getitem((long)0)->value;
ms ado.net给这一现象的回复是:
 you can think of a stored procedure as a function in your code. the function doesn’t return a value until it has executed all of its code. if the stored procedure returns results and you haven’t finished processing these results, the stored procedure hasn’t really finished executing. until you’ve closed the datareader, the return and output parameters of your command won’t contain the values returned by your stored procedure.
也就是说execute()函数应该看成是直到m_precordset关掉以后才会正确返回.

关于输出参数的处理也和这相同,因为返回值本身就是当成输出参数来处理的.
通过这种方法,我们能够得到一个存储过程的返回值和结果集,而且对于任何的存储过程都能够相同使用,不必为某个特定的存储过程去写代码,具备一定的通用性.