Question

MFC 利用ADO连接ACCESS数据库失败 怎么回事呀

在线等哈 请各位大侠们 帮我看看分析分析原因呐
小弟不胜感激呐
先送上20分

Answer 1

先导入ado库
#pragma warning(disable:4146)
#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF","ENDOFFILE")

BOOL CADODlg::GetData()
{
CoInitialize(NULL);

try
{
_ConnectionPtr pConn("ADODB.Connection");
_bstr_t Connection="Provider=Microsoft.Jet.OLEDB.4.0;"
"Data Source=H:\\LoginDemo.mdb;Persist Security Info=FALSE";
pConn->Open(Connection,"","",adConnectUnspecified);
_RecordsetPtr pRs("ADODB.Recordset");
CString strSQL;
strSQL.Format("select * from USERINFO");
pRs->Open(_variant_t(strSQL.GetBuffer(strSQL.GetLength())),_variant_t(pConn,true),adOpenStatic,
adLockOptimistic,adCmdText);
if(pRs->BOF)
{
pRs->Close();
pRs.Release();
pConn->Close();
pConn.Release();
return FALSE;
}
else
{
strcpy(m_username.GetBuffer(255),_bstr_t(pRs->GetCollect("USERNAME")));
strcpy(m_password.GetBuffer(255),_bstr_t(pRs->GetCollect("PASSWORD")));
UpdateData(FALSE);
pRs->Close();
pRs.Release();
pConn->Close();
pConn.Release();
return TRUE;
}
}
catch(_com_error &e)
{
CoUninitialize();
::AfxMessageBox(e.ErrorMessage());
return FALSE;
}
}

Answer 2

cuowu ne?

Answer 3

什么错误？找不到*.mdb文件？还是ADO控件设置有误？