mfc ado连接数据库的难题
在App.cpp中的代码如下
BOOL Cado1App::InitInstance()
{
// 如果一个运行在 Windows XP 上的应用程序清单指定要
// 使用 ComCtl32.dll 版本 6 或更高版本来启用可视化方式，
//则需要 InitCommonControlsEx()。否则，将无法创建窗口。
INITCOMMONCONTROLSEX InitCtrls;
InitCtrls.dwSize = sizeof(InitCtrls);
// 将它设置为包括所有要在应用程序中使用的
// 公共控件类。
InitCtrls.dwICC = ICC_WIN95_CLASSES;
InitCommonControlsEx(&InitCtrls);
CWinApp::InitInstance();
AfxEnableControlContainer();
// 标准初始化
// 如果未使用这些功能并希望减小
// 最终可执行文件的大小，则应移除下列
// 不需要的特定初始化例程
// 更改用于存储设置的注册表项
// TODO: 应适当修改该字符串，
// 例如修改为公司或组织名
SetRegistryKey(_T("应用程序向导生成的本地应用程序"));
AfxOleInit();
HRESULT hr;
try
{
hr = m_pConnection.CreateInstance(_T("ADODB.Connection"));///
if( SUCCEEDED(hr))
{
hr=m_pConnection->Open(_T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Documents and Settings/hao/My Documents/dbtest.mdb"),_T(""),_T(""),adModeUnknown);
AfxMessageBox(_T("success"));
}
}
catch(_com_error e)
{
CString errormessage;
errormessage.Format(_T("连接失败!\r\n错误信息：%s"),e.ErrorMessage());
AfxMessageBox(errormessage);
return FALSE;
}
在Dlg.cpp中的代码如下：
// TODO: 在此添加额外的初始化代码
::SendMessage(m_userlist.m_hWnd,LVM_SETEXTENDEDLISTVIEWSTYLE,LVS_EX_FULLROWSELECT,LVS_EX_FULLROWSELECT);
m_userlist.InsertColumn(0,_T("用户ID"),LVCFMT_LEFT,60);
m_userlist.InsertColumn(1,_T("用户名"),LVCFMT_LEFT,100);
m_userlist.InsertColumn(2,_T("年龄"),LVCFMT_LEFT,60);
m_userlist.InsertColumn(3,_T("生日"),LVCFMT_LEFT,100);
int nItem;
_variant_t vID,vUsername,vOld,vBirthday;
try
{
m_pRecordset.CreateInstance(_T("ADODB.Recordset"));
//m_pRecordset->Open(_T("SELECT * FROM user"),_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
m_pRecordset->Open(_T("SELECT * FROM user"),
_variant_t((IDispatch*)theApp.m_pConnection,true), // 获取库接库的IDispatch指针
adOpenDynamic,
adLockOptimistic,
adCmdText);
while(!m_pRecordset->adoEOF)
{
vID=m_pRecordset->GetCollect(_T("ID"));
vUsername=m_pRecordset->GetCollect(_T("username"));
vOld=m_pRecordset->GetCollect(_T("old"));
vBirthday=m_pRecordset->GetCollect(_T("birthday"));
nItem=m_userlist.InsertItem(0xffff,(_bstr_t)vID);
m_userlist.SetItem(nItem,1,1,(_bstr_t)vUsername,NULL,0,0,0);
m_userlist.SetItem(nItem,2,1,(_bstr_t)vOld,NULL,0,0,0);
m_userlist.SetItem(nItem,3,1,(_bstr_t)vBirthday,NULL,0,0,0);
m_pRecordset->MoveNext();
}
}
catch(_com_error e)
{
AfxMessageBox(_T("读取数据库失败"));
}
每次调试都有
“读取数据库失败”
的错误，求高手赐教
[解决办法]
加异常捕获看是什么错误
try{//你的ADO代码}catch (_com_error& e){AfxMessageBox(e.Description());AfxMessageBox(e.ErrorMessage());}
[解决办法]
1、加上返回值，确认每一步是否成功：
HRESULT hr=m_pRecordset.CreateInstance(_T("ADODB.Recordset"));
hr=m_pRecordset->Open(_T("SELECT * FROM user"),
_variant_t((IDispatch*)theApp.m_pConnection,true), // 获取库接库的IDispatch指针
adOpenDynamic,
adLockOptimistic,
adCmdText);
断点调试，查看每一步的hr值，是否为0！非0说明执行失败。
2、在stdafx.h头文件处理：
#import "c:\Program Files\Common Files\System\ADO\msado15.dll" no_namespace rename("EOF","adoEOF")
[解决办法]