清风凉2 2019-07-30 21:18 采纳率: 100%
浏览 427
已采纳

MFC access数据库连接问题

请求帮助
使用吕鑫老师封装的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;

}

  • 写回答

1条回答 默认 最新

  • threenewbee 2019-07-31 08:41
    关注

    str.Format(TEXT("Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Initial Catalog=%s;Password=%s"),

    MSDASQL.1不支持access 2007+,换ace12

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥15 soildworks装配体的尺寸问题
  • ¥100 有偿寻云闪付SDK转URL技术
  • ¥30 基于信创PC发布的QT应用如何跨用户启动后输入中文
  • ¥20 非root手机,如何精准控制手机流量消耗的大小,如20M
  • ¥15 远程安装一下vasp
  • ¥15 自己做的代码上传图片时,报错
  • ¥15 Lingo线性规划模型怎么搭建
  • ¥15 关于#python#的问题,请各位专家解答!区间型正向化
  • ¥15 unity从3D升级到urp管线,打包ab包后,材质全部变紫色
  • ¥50 comsol温度场仿真无法模拟微米级激光光斑