VC中使用存储过程（收藏）

看了很多VC数据库的书，里面很少设计到用VC和存储过程操作的资料，网上找了又找，结果还是很少，收集了一下一些代码片断，以供参考。

代码片断1：

_variant_t _vValue;
 _variant_t RecordsAffected;
 VARIANT vtRetval;
 vtRetval.vt = VT_I2;
 _CommandPtr    pCmd = NULL;
 _ParameterPtr   pPrm = NULL;
 _variant_t  vtEmpty(DISP_E_PARAMNOTFOUND, VT_ERROR);
 _variant_t vtEmpty2(DISP_E_PARAMNOTFOUND, VT_ERROR);
 CString tempsql;
                pCmd.CreateInstance( __uuidof( Command ) );
                pPrm.CreateInstance( __uuidof( Parameter ) );
 pCmd ->ActiveConnection = pConn;
 pCmd ->CommandType = adCmdStoredProc;
 pCmd ->CommandText = _bstr_t(L"sp_addumpdevice");
 pPrm = pCmd ->CreateParameter( _bstr_t("retval"),adInteger,adParamReturnVa