VC ADO调用存储过程 并获得返回值 和 记录集
更新注意事项：
1，如果是存储过程需要返回记录集：
需要在存储过程里面设置：SET NOCOUNT ON
否则在使用m_recordset的时候，会提示错误：Operation is not allowed when the object is closed
2，如果存储过程同时返回记录集和返回值。
需要设置m_connection->CursorLocation =adUseClient;
否则就得在记录集关闭后，才能获得返回值。
示例：
if (!m_con->SetProcParam("rtncode",adInteger,adParamOutput,sizeof(int),rtn))
{
return;
}
m_con->m_pConnection->CursorLocation =adUseClient;
if(!m_con->ExecProc(L"P_Bottle",true))
{
return;
}
_variant_t rtncode;
rtncode = m_con->GetReturn(L"rtncode");
if (rtncode.vt == VT_NULL)
{
return;
}
switch(rtncode.intVal)
{
//case
}
while(!m_con->IsEOF())
{
//处理结果
}
============
在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();
