请求帮助
使用吕鑫老师封装的access连接类，程序会报错，帮忙看一下问题在哪？
已经设置ODBC。
封装类文件提示一个错误，但可以成功编译。
程序运行时，报错
下面是吕鑫老师封装类代码
_#_pragma once
_#_pragma warning (disable:4146)
_#_import "C:\Program Files\Common Files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF")rename("BOF","adoBOF")
class CAdoLx
{
_RecordsetPtr m_pRst;
_ConnectionPtr m_pConn;
CString m_szLastError;
public:
void Release()
{
m_pConn->Release();
}
BOOL GetFieldType(long nIndex, int &nType);
enum EType { DBT_ACCESS, DBT_SQL, DBT_ORACLE };
BOOL Connect(EType eType, LPCTSTR szDatabase, LPCTSTR szPass = NULL, LPCTSTR szUser = NULL, LPCTSTR szHost = NULL);
int ExecSQL(LPCTSTR szSQL);
//int ExecProc(LPCTSTR szSQL);
BOOL Select(LPCTSTR szSQL);
BOOL IsEOF();
BOOL MoveNext();
BOOL MovePrev();
BOOL MoveFirst();
BOOL MoveLast();
BOOL GetFieldValue(LPCTSTR szField, COleDateTime &tValue);
//BOOL GetFieldValue(LPCTSTR szField, double &fValue);
BOOL GetFieldValue(LPCTSTR szField, CString &sValue);
BOOL GetFieldValue(LPCTSTR szField, int &iValue);
//int GetFieldMoney(LPCTSTR szField, double &fValue);
BOOL GetFieldByIndex(long nIndex, COleDateTime &tValue);
BOOL GetFieldByIndex(long nIndex, double &fValue);
BOOL GetFieldByIndex(long nIndex, CString &sValue);
BOOL GetFieldByIndex(long nIndex, int &iValue);
BOOL GetFieldByIndex(long nIndex, long &lValue);
BOOL GetFieldByIndex(long nIndex, DWORD &dwValue);
BOOL GetFieldByIndex(long nIndex, UINT &iValue);
BOOL GetFieldByIndex(long nIndex, char &cValue);
BOOL GetFieldByIndex(long nIndex, short &nValue);
BOOL GetFieldByIndex(long nIndex, BYTE &cbValue);
BOOL GetFieldByIndex(long nIndex, WORD &wValue);
BOOL GetFieldByIndex(long nIndex, TCHAR sValue[], int nSize);
int GetFieldCount();
BOOL GetFieldName(long nIndex, CString &szName);
int GetRecordCount();
CString GetLastError()
{
CString str = m_szLastError;
m_szLastError.Empty();
return str;
}
class CProc
{
/*
enum ParameterDirectionEnum
{
adParamUnknown = 0,
adParamInput = 1,
adParamOutput = 2,
adParamInputOutput = 3,
adParamReturnValue = 4
};
*/
CString m_szLastError;
_CommandPtr m_pCmd;
//_ConnectionPtr & m_pConn;
public:
LPCTSTR GetLastError() const
{
return m_szLastError;
}
int Exec();
BOOL Create(_ConnectionPtr &pConn, LPCTSTR szProc);
BOOL AddParam(LPCTSTR szVName, long lParam, ParameterDirectionEnum eDir = adParamInput);
BOOL AddParam(LPCTSTR szVName, LPCTSTR szParam, ParameterDirectionEnum eDir = adParamInput);
BOOL GetValue(LPCTSTR szVName, long &lParam);
BOOL GetValue(LPCTSTR szVName, CString &lParam);
void Release()
{
delete this;
}
CProc()
{
}
};
CProc* CreateProc(LPCTSTR szProc);
int ExecProc(CProc* pProc);
CAdoLx();
virtual ~CAdoLx();
};
#include "stdafx.h"
#include "AdoLx.h"
//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////
CAdoLx::CAdoLx()
{
::OleInitialize(NULL);
}
CAdoLx::~CAdoLx()
{
}
BOOL CAdoLx::Connect(EType eType, LPCTSTR szDatabase, LPCTSTR szPass, LPCTSTR szUser, LPCTSTR szHost)
{
CString str;
switch (eType)
{
case DBT_ACCESS:
{
str.Format(TEXT("Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Initial Catalog=%s;Password=%s"),
szDatabase, szPass);
}
break;
case DBT_SQL:
{
str = TEXT("Driver=SQL Server;Server=");
str += szHost;
str += TEXT(";Database=");
str += szDatabase;
str += TEXT(";UID=");
str += szUser;
str += TEXT(";PWD=");
str += szPass;
}
break;
case DBT_ORACLE:
str = TEXT("Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=");
str += szUser;
str += TEXT(";Password=");
str += szPass;
str += TEXT(";Data Source=");
str += szDatabase;
break;
}
try
{
m_pConn.CreateInstance(__uuidof(Connection));
m_pConn->Open(_bstr_t(str), szUser, szPass, adModeUnknown);///连接数据库
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
// TRACE(m_szLastError+"\n");
return FALSE;
}
return TRUE;
}
int CAdoLx::ExecSQL(LPCTSTR szSql)
{
_variant_t vRet;
try
{
m_pConn->Execute(szSql, &vRet, adCmdText);
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return e.Error();
}
return (long)vRet;
}
BOOL CAdoLx::IsEOF()
{
try
{
if (m_pRst->GetadoEOF())
return TRUE;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
}
return FALSE;
}
BOOL CAdoLx::Select(LPCTSTR szSQL)
{
try
{
if (m_pRst)
m_pRst->Close();
m_pRst.CreateInstance(__uuidof(Recordset));
// m_pRst ->Open(szSQL,m_pConn.GetInterfacePtr(),adOpenForwardOnly,adLockReadOnly,adCmdText);
m_pRst->Open(szSQL, m_pConn.GetInterfacePtr(), adOpenStatic, adLockReadOnly, adCmdText);
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
return TRUE;
}
int CAdoLx::GetFieldCount()
{
try
{
return m_pRst->Fields->Count;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return -1;
}
return -1;
}
BOOL CAdoLx::GetFieldByIndex(long nIndex, TCHAR sValue[], int nSize)
{
try
{
_variant_t v = m_pRst->GetCollect(nIndex);
if (v.vt == VT_NULL)
{
*sValue = 0;
return TRUE;
}
CString str = v.bstrVal;
LPCTSTR p = str;
int i = 0;
while (--nSize && (*sValue = *p) != 0)
{
sValue++;
p++;
}
if (!nSize)
*sValue = 0;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
return TRUE;
}
BOOL CAdoLx::GetFieldName(long nIndex, CString &szName)
{
try
{
szName = (LPCTSTR)m_pRst->Fields->Item[nIndex]->Name;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
return TRUE;
}
BOOL CAdoLx::GetFieldValue(LPCTSTR szField, int &iValue)
{
try
{
iValue = (long)m_pRst->GetCollect(szField);
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
return TRUE;
}
BOOL CAdoLx::GetFieldByIndex(long nIndex, int &iValue)
{
try
{
_variant_t v = m_pRst->GetCollect(nIndex);
iValue = (long)v;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
return TRUE;
}
BOOL CAdoLx::GetFieldByIndex(long nIndex, CString &szValue)
{
try
{
_variant_t v = m_pRst->GetCollect(nIndex);
if (v.vt == VT_NULL)
szValue.Empty();
else
szValue = v.bstrVal;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
return TRUE;
}
BOOL CAdoLx::GetFieldByIndex(long nIndex, COleDateTime &tValue)
{
try
{
_variant_t v = m_pRst->GetCollect(nIndex);
if (v.vt == VT_NULL)
tValue = 0.0;
else
tValue = v;
return TRUE;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::GetFieldByIndex(long nIndex, double &fValue)
{
try
{
_variant_t v = m_pRst->GetCollect(nIndex);
if (v.vt == VT_NULL)
fValue = 0.0;
else
fValue = v;
return TRUE;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::GetFieldByIndex(long nIndex, long &lValue)
{
try
{
_variant_t v = m_pRst->GetCollect(nIndex);
if (v.vt == VT_NULL)
lValue = 0;
else
lValue = v;
return TRUE;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
/*
LONG lVal;
BYTE bVal;
SHORT iVal;
FLOAT fltVal;
DOUBLE dblVal;
*/
BOOL CAdoLx::GetFieldByIndex(long nIndex, DWORD &dwValue)
{
try
{
_variant_t v = m_pRst->GetCollect(nIndex);
if (v.vt == VT_NULL)
dwValue = 0;
else
dwValue = v.lVal;
return TRUE;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::GetFieldByIndex(long nIndex, UINT &iValue)
{
try
{
_variant_t v = m_pRst->GetCollect(nIndex);
if (v.vt == VT_NULL)
iValue = 0;
else
iValue = v.lVal;
return TRUE;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::GetFieldByIndex(long nIndex, char &cValue)
{
try
{
_variant_t v = m_pRst->GetCollect(nIndex);
if (v.vt == VT_NULL)
cValue = 0;
else
cValue = v.bVal;
return TRUE;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::GetFieldByIndex(long nIndex, short &nValue)
{
try
{
_variant_t v = m_pRst->GetCollect(nIndex);
if (v.vt == VT_NULL)
nValue = 0;
else
nValue = v;
return TRUE;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::GetFieldByIndex(long nIndex, BYTE &cbValue)
{
try
{
_variant_t v = m_pRst->GetCollect(nIndex);
if (v.vt == VT_NULL)
cbValue = 0;
else
cbValue = v;
return TRUE;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::GetFieldByIndex(long nIndex, WORD &wValue)
{
try
{
_variant_t v = m_pRst->GetCollect(nIndex);
if (v.vt == VT_NULL)
wValue = 0;
else
wValue = v.iVal;
return TRUE;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::MoveFirst()
{
try
{
return m_pRst->MoveFirst() == S_OK;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::MoveLast()
{
try
{
return m_pRst->MoveLast() == S_OK;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::MoveNext()
{
try
{
return m_pRst->MoveNext() == S_OK;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::MovePrev()
{
try
{
return m_pRst->MovePrevious() == S_OK;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::GetFieldType(long nIndex, int &nType)
{
try
{
nType = m_pRst->Fields->Item[nIndex]->Type;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
return TRUE;
}
BOOL CAdoLx::GetFieldValue(LPCTSTR szField, CString &sValue)
{
try
{
sValue = m_pRst->GetCollect(szField).bstrVal;
return TRUE;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::GetFieldValue(LPCTSTR szField, COleDateTime &tValue)
{
try
{
tValue = (DATE)m_pRst->GetCollect(szField);
return TRUE;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
int CAdoLx::GetRecordCount()
{
try
{
return m_pRst->GetRecordCount();
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
}
BOOL CAdoLx::CProc::Create(_ConnectionPtr &pConn, LPCTSTR szProc)
{
try
{
m_pCmd.CreateInstance(__uuidof(Command));
m_pCmd->ActiveConnection = pConn;
m_pCmd->CommandType = adCmdStoredProc;
m_pCmd->CommandText = _bstr_t(szProc);
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
return TRUE;
}
CAdoLx::CProc* CAdoLx::CreateProc(LPCTSTR szProc)
{
if (m_pConn == NULL)return FALSE;
CProc* pProc = new CProc;
if (pProc->Create(m_pConn, szProc))
return pProc;
delete pProc;
return NULL;
}
BOOL CAdoLx::CProc::AddParam(LPCTSTR szVName, long lParam, ParameterDirectionEnum eDir)
{
if (m_pCmd == NULL)
return FALSE;
try
{
_ParameterPtr pParam = m_pCmd->CreateParameter(szVName, adInteger, eDir, sizeof(long), lParam);
m_pCmd->Parameters->Append(pParam);
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
return TRUE;
}
BOOL CAdoLx::CProc::AddParam(LPCTSTR szVName, LPCTSTR szParam, ParameterDirectionEnum eDir)
{
if (m_pCmd == NULL)
return FALSE;
try
{
_ParameterPtr pParam = m_pCmd->CreateParameter(_bstr_t(szVName), adVarChar, eDir, lstrlen(szParam) + 2, szParam);
m_pCmd->Parameters->Append(pParam);
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
return TRUE;
}
int CAdoLx::CProc::Exec()
{
try
{
m_pCmd->Execute(NULL, NULL, adCmdStoredProc);
}
catch (_com_error& e)
{
m_szLastError = (LPCTSTR)e.Description();
return e.Error();
}
return 0;
}
BOOL CAdoLx::CProc::GetValue(LPCTSTR szVName, long &lParam)
{
try
{
_variant_t var = m_pCmd->Parameters->GetItem(_bstr_t(szVName))->GetValue();
lParam = var;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
return TRUE;
}
BOOL CAdoLx::CProc::GetValue(LPCTSTR szVName, CString &szParam)
{
try
{
//_bstr_t bstr = _bstr_t(m_pCmd->Parameters->GetItem(_bstr_t(szVName))->GetValue());
_bstr_t bstr = m_pCmd->Parameters->GetItem(_bstr_t(szVName))->GetValue();
szParam = (LPCTSTR)bstr;
}
catch (_com_error &e)
{
m_szLastError = (LPCTSTR)e.Description();
return FALSE;
}
return TRUE;
}
int CAdoLx::ExecProc(CProc* pProc)
{
/* try
{
if(FAILED(m_pCmd.CreateInstance(__uuidof(Command))))
{
return -1;
}
m_pCmd->ActiveConnection = m_pConn;
m_pCmd->CommandType = adCmdStoredProc;
m_pCmd->CommandText = L"P_LOGIN";
_ParameterPtr pParam = m_pCmd->CreateParameter(_bstr_t("v_empno"), adInteger, adParamInput ,4,7839L);
m_pCmd ->Parameters ->Append(pParam);
pParam = m_pCmd->CreateParameter(_bstr_t("v_pass"), adVarChar, adParamInput ,20, "123456");
m_pCmd ->Parameters ->Append(pParam);
pParam = m_pCmd->CreateParameter(_bstr_t("v_return"), adInteger, adParamReturnValue, 0);
m_pCmd ->Parameters ->Append(pParam);
m_pCmd->Execute(NULL, NULL, adCmdStoredProc);
long nRet = m_pCmd->Parameters->GetItem("v_return")->GetValue();
}
catch(_com_error &e)
{
m_szLastError =(LPCTSTR) e.Description();
return e.Error();
}*/
return 0;
}
