ADO参数化执行语句求助

[KSlinfeng]

小弟今日想写一个ADO访问的数据库的封装类结果遇到一个问题
代码如下：
DAOBaseAdo.h

#pragma once

///#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename ("EOF", "adoEOF")
//注意Windows 7 Sp1 时要使用改配置文件
#import "C:\Program Files\Common Files\System\ado\msado60_Backcompat_ia64.tlb" no_namespace rename("EOF","adoEOF")

/*
数据库ADO操作相关类封装
*/
/*
1.Initialization();
2.Open
3.Query
*/
struct ST_SQLPARAM 
{
	CString name;
	DataTypeEnum type;
	ParameterDirectionEnum direction;
	ADO_LONGPTR size; //默认长度为-1
	_variant_t value;
};




class CDataBaseAdo
{
private:
	//
	CString errorMsg;
	bool m_iniStates;
	int paramIndex;
public:
	_ConnectionPtr m_pConnection;
	_RecordsetPtr m_pRecordSet;
	_CommandPtr m_pCommand;
	CDataBaseAdo(void);
	~CDataBaseAdo(void);
	//
	CString GetErrorMsg();
	//初始化
	bool Initialization();
	//打开连接
	bool Open(CString vServer,CString vPort,CString vDBName,CString vUser,CString vPwd);
	//查询数据
	bool Query(LPCTSTR strSQL, long nCursorType=adOpenDynamic, long nLockType=adLockOptimistic, long nOptions=adCmdText);
	void CloseQuery();
	//执行命令
	void Execute(CString strSql);
	void ExecuteWithParam(CString strSql,ST_SQLPARAM params[],int size);
	//事务相关操作
	//事务开始
	void BeginTrans();
	//事务提交
	void CommitTrans();
	//事务回滚
	void RollbackTrans();
	//---数据集相关操作
	//结尾否
	bool isEOF();
	void MoveFirst();
	void MoveLast(); 
	void MoveNext();
	void MovePrevious();
	_variant_t GetValueByFieldName(CString strName);
};

DataBaseADO.cpp

#include "StdAfx.h"
#include "DataBaseAdo.h"


CDataBaseAdo::CDataBaseAdo(void)
{
	m_pCommand = NULL;
	m_pConnection = NULL;
	m_pRecordSet = NULL;
	m_iniStates = false;
}


CDataBaseAdo::~CDataBaseAdo(void)
{
	if(m_pRecordSet != NULL && m_pRecordSet->State == adStateOpen){
		m_pRecordSet->Close();
	}
	if(m_pConnection != NULL && m_pConnection->State == adStateOpen){
		m_pConnection->Close();
	}
}

bool CDataBaseAdo::Initialization()
{
	if(!SUCCEEDED(m_pConnection.CreateInstance("ADODB.Connection")))
	{
		errorMsg = _T("ADODB.Connection对象创建失败!");
		return false;
	}
	if (!SUCCEEDED(m_pRecordSet.CreateInstance("ADODB.Recordset")))
	{
		errorMsg = _T("ADODB.Recordset对象创建失败!");
		return false;
	}
	if (!SUCCEEDED(m_pCommand.CreateInstance("ADODB.Command")))
	{
		errorMsg = _T("ADODB.Command对象创建失败!");
		return false;
	}
	m_iniStates = true;
	return true;
}

bool CDataBaseAdo::Open(CString vServer,CString vPort,CString vDBName,CString vUser,CString vPwd)
{
	try
	{
		if(!m_iniStates){
			errorMsg = _T("请先初始化");
			return false;
		}
		if(m_pConnection != NULL && m_pConnection->State == adStateOpen){
			m_pConnection->Close();
		}
		return SUCCEEDED(m_pConnection->Open(_bstr_t(_T("Provider=SQLOLEDB;Server=")+vServer+_T(",")+vPort+_T(";Database=")+vDBName), 
			_bstr_t(vUser), _bstr_t(vPwd), adConnectUnspecified));
	}
	catch (_com_error e)
	{
		errorMsg = _T("数据库无法连接!");
		return FALSE;
	}
}

bool CDataBaseAdo::Query(LPCTSTR strSQL, long nCursorType/* =adOpenDynamic */, long nLockType/* =adLockOptimistic */, long nOptions/* =adCmdText */)
{
	if(!m_iniStates){
		errorMsg = _T("请先初始化");
		return false;
	}
	try{
		if(m_pRecordSet->State == adStateOpen)
		{
			m_pRecordSet->Close();
		}
		return (SUCCEEDED(m_pRecordSet->Open(_variant_t(strSQL),
			m_pConnection.GetInterfacePtr(),
			(CursorTypeEnum)nCursorType, 
			(LockTypeEnum)nLockType,
			nOptions)));
	}
	catch (_com_error e)
	{
		errorMsg.Format(_T("错误码：%d"),e.WCode());
		return false;
	}
}

CString CDataBaseAdo::GetErrorMsg()
{
	return errorMsg;
}

bool CDataBaseAdo::isEOF()
{
	return m_pRecordSet->adoEOF?true:false;
}

void CDataBaseAdo::MoveFirst()
{
	m_pRecordSet->MoveFirst();
}

void CDataBaseAdo::MoveLast()
{
	m_pRecordSet->MoveLast();
}

void CDataBaseAdo::MoveNext()
{
	m_pRecordSet->MoveNext();
}

void CDataBaseAdo::MovePrevious()
{
	m_pRecordSet->MovePrevious();
}

_variant_t CDataBaseAdo::GetValueByFieldName(CString strName)
{
	return m_pRecordSet->GetCollect(_variant_t(strName));
}

void CDataBaseAdo::CloseQuery()
{
	if(m_pRecordSet!=NULL && m_pRecordSet->State == adStateOpen)
	{
		m_pRecordSet->Close();
	}
}

void CDataBaseAdo::BeginTrans()
{
	m_pConnection->BeginTrans();
}

void CDataBaseAdo::CommitTrans()
{
	m_pConnection->CommitTrans();
}

void CDataBaseAdo::RollbackTrans()
{
	m_pConnection->RollbackTrans();
}

void CDataBaseAdo::Execute(CString strSql)
{
	m_pCommand->ActiveConnection = m_pConnection;
	m_pCommand->CommandText = _bstr_t(strSql);
	m_pCommand->CommandType = adCmdText; 
	m_pCommand->Execute(NULL,NULL,adCmdText);
}

void CDataBaseAdo::ExecuteWithParam(CString strSql,ST_SQLPARAM params[],int size)
{
		m_pCommand->ActiveConnection = m_pConnection;
		m_pCommand->CommandText = _bstr_t(strSql);
		for(int i=0;i<size;i++){
			m_pCommand->Parameters->Append(m_pCommand->CreateParameter(_bstr_t(_T("")),adInteger,adParamInput,4,_variant_t((int)2))); 
		}
		m_pCommand->CommandType = adCmdText; 
		m_pCommand->Execute(NULL,NULL,adCmdText);
}

//测试代码
ado.Initialization();
ado.Open(m_ip,m_prot,_T("AdoTemp"),m_user,m_pwd);
try
{
int id = 1;
ST_SQLPARAM param[1];
param[0].name = _T("");
param[0].type = adInteger;
param[0].direction = adParamInput;
param[0].size = -1;
param[0].value = _variant_t(id);
ado.ExecuteWithParam(_T("select * from table1 where id > ?"),param,1);

}catch(_com_error &e){
AfxMessageBox(e.Description());
}
一直报错，但_com_error无法捕捉到
错误停止在：afxtls.h
inline void* CThreadSlotData::GetThreadValue(int nSlot)
{
EnterCriticalSection(&m_sect);
ASSERT(nSlot != 0 && nSlot < m_nMax);
ASSERT(m_pSlotData != NULL);
ASSERT(m_pSlotData[nSlot].dwFlags & SLOT_USED);
ASSERT(m_tlsIndex != (DWORD)-1);
if( nSlot <= 0 || nSlot >= m_nMax ) // check for retail builds.
{
LeaveCriticalSection(&m_sect);
return NULL;
}

CThreadData* pData = (CThreadData*)TlsGetValue(m_tlsIndex);
if (pData == NULL || nSlot >= pData->nCount)
{
LeaveCriticalSection(&m_sect);
return NULL;
}
void* pRetVal = pData->pData[nSlot];
LeaveCriticalSection(&m_sect);
return pRetVal;
}
最后一行。求给位大侠帮看看。

运行环境 Windows7sp1 64bit , VS2010

[ouyh12345]

首先，try和catch放在成员函数内
其次，单步调试，查看变量的值

[hdg3707]

是不是少个AfxOleInit();

[向立天]

你可以参考一下这篇文章
http://blog.csdn.net/xianglitian/article/details/5617173