怎样使用ADO中的Command的参数查询,我得代码总有异常???

leafinwind 2001-11-19 05:50:14
这个函数主要测试通过一个带参数的Command对象
插入一条数据,但总是出错,
那位大虾帮我看看,谢了先

BOOL CDBTools::CDBAlarmRec::InsertDirect(LPCTSTR lpszZCID,
LPCTSTR lpszZCName,
CTime& tAlarmTime,
LPCTSTR lpszExplain,
LPCTSTR lpszState )
{
BOOL bResult = FALSE;
HRESULT hr;
_CommandPtr pCommand;
_ParameterPtr pParam;
CString strSQL;
//1.设置命令对象
hr = pCommand.CreateInstance(__uuidof(Command));
if( SUCCEEDED(hr) ){
pCommand->ActiveConnection = m_pConn;
pParam = pCommand->CreateParameter("ParamID",
adInteger,adParamInputOutput,EFL_ID);
pCommand->Parameters->Append(pParam);
pParam = pCommand->CreateParameter("ParamZCID",
adVarChar,adParamInput,EFL_ZCID);
pCommand->Parameters->Append(pParam);
pParam = pCommand->CreateParameter("ParamZCName",
adVarChar,adParamInput,EFL_ZCNAME);
pCommand->Parameters->Append(pParam);
pParam = pCommand->CreateParameter("ParamAlarmTime",
adDate,adParamInput,EFL_ALARMTIME);
pCommand->Parameters->Append(pParam);
pParam = pCommand->CreateParameter("ParamExplain",
adVarChar,adParamInput,EFL_EXPLAIN);
pCommand->Parameters->Append(pParam);
pParam = pCommand->CreateParameter("ParamState",
adVarChar,adParamInput,EFL_STATE);
pCommand->Parameters->Append(pParam);
strSQL.Format("Insert Into %s (ZCID,ZCName,AlarmTime,Explain,State)
Values (:ParamZCID,:ParamZCName,:ParamAlarmTime
,:ParamExplain,:ParamState)",m_strTableName);
:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
:这样的参数形式是否正确???

pCommand->PutCommandText(_bstr_t(strSQL));

pCommand->Parameters->GetItem(_variant_t("ParamZCID"))
->PutValue(_variant_t(lpszZCID));
pCommand->Parameters->GetItem(_variant_t("ParamZCName"))
->PutValue(_variant_t(lpszZCName));
COleDateTime varDateTime(tAlarmTime.GetTime());
pCommand->Parameters->GetItem(_variant_t("ParamAlarmTime"))
->PutValue(_variant_t(varDateTime));
pCommand->Parameters->GetItem(_variant_t("ParamExplain"))
->PutValue(_variant_t(lpszExplain));
pCommand->Parameters->GetItem(_variant_t("ParamState"))
->PutValue(_variant_t(lpszState));
VARIANT varRecords;
VARIANT varParameters;

pCommand->Execute(&varRecords,&varParameters,adCmdText);
: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
:这句总有异常

}

return bResult;
}
...全文
89 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

16,548

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • AIGC Browser
  • encoderlee
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……

试试用AI创作助手写篇文章吧