如何使用ADO调用存储过程？

使用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();