1.VC执行一个带参数的存储过程,返回一个记录集:
_RecordsetPtr m_pRecordSetTemp;
m_pRecordSetTemp.CreateInstance( " ADODB.Recordset " );
#ifdef _DEBUG
if (m_pRecordSetTemp == NULL)
... {
AfxMessageBox("RecordSet 对象创建失败! 请确认是否初始化了COM环境.");
}
#endif
_CommandPtr m_pCommand;
m_pCommand.CreateInstance(__uuidof(Command));
#ifdef _DEBUG
if (m_pCommand == NULL)
... {
AfxMessageBox("Command 对象创建失败! 请确认是否初始化了COM环境.");
}
#endif
ASSERT(m_pCommand != NULL);
// 输入参数 Member
_ParameterPtr pParamMember;
pParamMember.CreateInstance( " ADODB.Parameter " );
pParamMember -> Name = " member " ; // 所用存储过程参数名称
pParamMember -> Type = adChar; // 参数类型
pParamMember -> Size = 32 ; // 参数大小
pParamMember -> Direction = adParamInput; // 表明是输入参数
pParamMember -> Value = _variant_t(member);
m_pCommand -> Parameters -> Append(pParamMember);
// 执行存储过程
m_pCommand -> ActiveConnection = m_pConnection;
m_pCommand -> CommandText = " GetreMsgFromService " ; // 存储过程名称
m_pCommand -> CommandType = adCmdStoredProc; // 表示为存储过程adCmdStoredProc
int recordcount;
try
... {
m_pRecordSetTemp=m_pCommand->Execute(NULL, NULL, adCmdStoredProc);
while(!m_pRecordSetTemp->adoEOF)
...{
AfxMessageBox((LPCTSTR)(_bstr_t)m_pRecordSetTemp->GetCollect("reMsg"));
m_pRecordSetTemp->MoveNext();
recordcount=recordcount+1;
}
}
catch (_com_error e)
... {
CString temp;
temp.Format(_T("Warning: 打开记录集发生异常. 错误信息: %s; 文件: %s; 行: %d "), e.ErrorMessage(), __FILE__, __LINE__);
AfxMessageBox(temp);
}
return m_pRecordSetTemp;
m_pRecordSetTemp -> Close();
m_pRecordSetTemp.CreateInstance( " ADODB.Recordset " );
#ifdef _DEBUG
if (m_pRecordSetTemp == NULL)
... {
AfxMessageBox("RecordSet 对象创建失败! 请确认是否初始化了COM环境.");
}
#endif
_CommandPtr m_pCommand;
m_pCommand.CreateInstance(__uuidof(Command));
#ifdef _DEBUG
if (m_pCommand == NULL)
... {
AfxMessageBox("Command 对象创建失败! 请确认是否初始化了COM环境.");
}
#endif
ASSERT(m_pCommand != NULL);
// 输入参数 Member
_ParameterPtr pParamMember;
pParamMember.CreateInstance( " ADODB.Parameter " );
pParamMember -> Name = " member " ; // 所用存储过程参数名称
pParamMember -> Type = adChar; // 参数类型
pParamMember -> Size = 32 ; // 参数大小
pParamMember -> Direction = adParamInput; // 表明是输入参数
pParamMember -> Value = _variant_t(member);
m_pCommand -> Parameters -> Append(pParamMember);
// 执行存储过程
m_pCommand -> ActiveConnection = m_pConnection;
m_pCommand -> CommandText = " GetreMsgFromService " ; // 存储过程名称
m_pCommand -> CommandType = adCmdStoredProc; // 表示为存储过程adCmdStoredProc
int recordcount;
try
... {
m_pRecordSetTemp=m_pCommand->Execute(NULL, NULL, adCmdStoredProc);
while(!m_pRecordSetTemp->adoEOF)
...{
AfxMessageBox((LPCTSTR)(_bstr_t)m_pRecordSetTemp->GetCollect("reMsg"));
m_pRecordSetTemp->MoveNext();
recordcount=recordcount+1;
}
}
catch (_com_error e)
... {
CString temp;
temp.Format(_T("Warning: 打开记录集发生异常. 错误信息: %s; 文件: %s; 行: %d "), e.ErrorMessage(), __FILE__, __LINE__);
AfxMessageBox(temp);
}
return m_pRecordSetTemp;
m_pRecordSetTemp -> Close();
在这用m_pRecordSetTemp->GetRecordCount()来获取记录条数没有用.
2.VC执行一个不带参数的存储过程,返回一个记录集:
m_pRecordSet.CreateInstance(
"
ADODB.Recordset
"
);
#ifdef _DEBUG
if (m_pRecordSet == NULL)
... {
AfxMessageBox("RecordSet 对象创建失败! 请确认是否初始化了COM环境.");
return;
}
#endif
ASSERT(m_pRecordSet != NULL);
CString sql = " TestGet " ;
int i,recordcount;
try
... {
m_pRecordSet->Open((_variant_t)sql,_variant_t((IDispatch*)m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdStoredProc);
recordcount=m_pRecordSet->GetRecordCount();//Get records total.
if(!m_pRecordSet->adoEOF)
...{
for(i=0;i<recordcount;i++)
...{
AfxMessageBox((LPCTSTR)(_bstr_t)m_pRecordSet->GetCollect("Account"));
m_pRecordSet->MoveNext();
}
}
m_pRecordSet->Close();
}
catch (_com_error e)
... {
CString temp;
temp.Format(_T("Warning: 打开记录集发生异常. 错误信息: %s; 文件: %s; 行: %d "), e.ErrorMessage(), __FILE__, __LINE__);
AfxMessageBox(temp);
}
#ifdef _DEBUG
if (m_pRecordSet == NULL)
... {
AfxMessageBox("RecordSet 对象创建失败! 请确认是否初始化了COM环境.");
return;
}
#endif
ASSERT(m_pRecordSet != NULL);
CString sql = " TestGet " ;
int i,recordcount;
try
... {
m_pRecordSet->Open((_variant_t)sql,_variant_t((IDispatch*)m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdStoredProc);
recordcount=m_pRecordSet->GetRecordCount();//Get records total.
if(!m_pRecordSet->adoEOF)
...{
for(i=0;i<recordcount;i++)
...{
AfxMessageBox((LPCTSTR)(_bstr_t)m_pRecordSet->GetCollect("Account"));
m_pRecordSet->MoveNext();
}
}
m_pRecordSet->Close();
}
catch (_com_error e)
... {
CString temp;
temp.Format(_T("Warning: 打开记录集发生异常. 错误信息: %s; 文件: %s; 行: %d "), e.ErrorMessage(), __FILE__, __LINE__);
AfxMessageBox(temp);
}
如果不用存储过程将sql变量改成sql语句就可以了.
3.VC执行一个带参数的存储过程,返回单个值:
CString retu;
m_pCommand.CreateInstance( " ADODB.Command " );
#ifdef _DEBUG
if (m_pCommand == NULL)
... {
AfxMessageBox("Command 对象创建失败! 请确认是否初始化了COM环境.");
}
#endif
ASSERT(m_pCommand != NULL);
// 输入参数 Member
_ParameterPtr pParamMember;
pParamMember.CreateInstance( " ADODB.Parameter " );
pParamMember -> Name = " member " ; // 所用存储过程参数名称
pParamMember -> Type = adChar; // 参数类型
pParamMember -> Size = 32 ; // 参数大小
pParamMember -> Direction = adParamInput; // 表明是输入参数
pParamMember -> Value = _variant_t(member);
m_pCommand -> Parameters -> Append(pParamMember);
// 返回值
_ParameterPtr pParamOk;
pParamOk.CreateInstance( " ADODB.Parameter " );
pParamOk -> Name = " welcome " ; // 参数2名称
pParamOk -> Type = adChar; // 字符串
pParamOk -> Size = 70 ; // 大小为70个字节
pParamOk -> Direction = adParamOutput; // 声明是输出参数
m_pCommand -> Parameters -> Append(pParamOk);
// 执行存储过程
m_pCommand -> ActiveConnection = m_pConnection;
m_pCommand -> CommandText = " GetWelcome " ; // 存储过程名称
m_pCommand -> CommandType = adCmdStoredProc; // 表示为存储过程adCmdStoredProc
m_pCommand -> Execute(NULL, NULL, adCmdStoredProc);
retu = ( char * )_bstr_t(pParamOk -> Value);
pParamMember -> Release();
return retu;
m_pCommand.CreateInstance( " ADODB.Command " );
#ifdef _DEBUG
if (m_pCommand == NULL)
... {
AfxMessageBox("Command 对象创建失败! 请确认是否初始化了COM环境.");
}
#endif
ASSERT(m_pCommand != NULL);
// 输入参数 Member
_ParameterPtr pParamMember;
pParamMember.CreateInstance( " ADODB.Parameter " );
pParamMember -> Name = " member " ; // 所用存储过程参数名称
pParamMember -> Type = adChar; // 参数类型
pParamMember -> Size = 32 ; // 参数大小
pParamMember -> Direction = adParamInput; // 表明是输入参数
pParamMember -> Value = _variant_t(member);
m_pCommand -> Parameters -> Append(pParamMember);
// 返回值
_ParameterPtr pParamOk;
pParamOk.CreateInstance( " ADODB.Parameter " );
pParamOk -> Name = " welcome " ; // 参数2名称
pParamOk -> Type = adChar; // 字符串
pParamOk -> Size = 70 ; // 大小为70个字节
pParamOk -> Direction = adParamOutput; // 声明是输出参数
m_pCommand -> Parameters -> Append(pParamOk);
// 执行存储过程
m_pCommand -> ActiveConnection = m_pConnection;
m_pCommand -> CommandText = " GetWelcome " ; // 存储过程名称
m_pCommand -> CommandType = adCmdStoredProc; // 表示为存储过程adCmdStoredProc
m_pCommand -> Execute(NULL, NULL, adCmdStoredProc);
retu = ( char * )_bstr_t(pParamOk -> Value);
pParamMember -> Release();
return retu;