2 ewenyee Ewenyee 于 2015.07.14 23:51 提问

关于vc6.0利用ADO动态链接ACCESS不成功的问题

void CDBDlg::OnButtonOpen()
{
// TODO: Add your control notification handler code here
//建立一个对话框,选择mdb文件

static char BASED_CODE szFilter[] = "mbd文件 (*.mdb)|*.mdb|所有文件 (*.*)|*.*||";
char Buffer[MAX_PATH];
::GetCurrentDirectory(MAX_PATH,Buffer); 
CFileDialog FileDlg( TRUE, NULL, NULL, OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT, szFilter,NULL );
FileDlg.m_ofn.lpstrInitialDir=Buffer;
if(IDOK==FileDlg.DoModal())
{
   lpstrName=FileDlg.GetPathName();
}




//连接数据库   
_bstr_t strcnn(_T("Provider=Microsoft.JET.OLEDB.4.0;Data source=lpstrName"));
try
{
    m_pConnection.CreateInstance(__uuidof(Connection));
    m_pConnection->Open(strcnn,_T(""),_T(""),adModeUnknown);
    m_pRecordset.CreateInstance(__uuidof(Recordset));
}
catch (_com_error e)
{
    AfxMessageBox("连接数据库失败");
    return;
}

//打开数据库
try
{

     _bstr_t bstrSQL="SELECT * FROM defects ";//order by RecordNum desc";
    m_pRecordset->Open(bstrSQL,m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
    while(!m_pRecordset->adoEOF)
    {   m_Grid.InsertItem(0,"");
        m_Grid.SetItemText(0,0,(char*)(_bstr_t)m_pRecordset->GetCollect("valid"));
        m_Grid.SetItemText(0,1,(char*)(_bstr_t)m_pRecordset->GetCollect("maxpost"));
        m_Grid.SetItemText(0,2,(char*)(_bstr_t)m_pRecordset->GetCollect("maxminor"));
        m_Grid.SetItemText(0,3,(char*)(_bstr_t)m_pRecordset->GetCollect("defecttype"));
        m_Grid.SetItemText(0,4,(char*)(_bstr_t)m_pRecordset->GetCollect("maxval1"));
        m_Grid.SetItemText(0,5,(char*)(_bstr_t)m_pRecordset->GetCollect("length"));
        m_Grid.SetItemText(0,6,(char*)(_bstr_t)m_pRecordset->GetCollect("defectclass"));
        m_Grid.SetItemText(0,7,(char*)(_bstr_t)m_pRecordset->GetCollect("tbce"));
        m_Grid.SetItemText(0,8,(char*)(_bstr_t)m_pRecordset->GetCollect("speedatmaxval"));
        m_Grid.SetItemText(0,9,(char*)(_bstr_t)m_pRecordset->GetCollect("postedspd"));
        m_pRecordset->MoveNext();
    }
    m_pRecordset->Close();
}
catch (_com_error e)
{
    AfxMessageBox("数据库打开失败");
}

}

3个回答

caozhy
caozhy   Ds   Rxr 2015.07.15 00:17
已采纳

你那样写根本不会将文件名拼接在连接字符串里
CString dd;

dd.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s",lpstrName);

hr = m_pConnect->Open((_bstr_t)dd,"","",adModeUnknown);

具体:
http://www.cnblogs.com/cy163/archive/2007/04/05/700596.html

caozhy
caozhy 回复Ewenyee: 你那样写,lpstrName只是被当作了普通的字符。
2 年多之前 回复
Ewenyee
Ewenyee 完美解决问题,暂时明白了这个问题,为什么在我的那条语句里不能把Provider=Microsoft.JET.OLEDB.4.0;Data source=lpstrName变量解析成字符串呢?
2 年多之前 回复
oyljerry
oyljerry   Ds   Rxr 2015.07.14 23:54

lpstrName是变量,你不能直接放到strcnn中,需要用Format格式化字符串。

Ewenyee
Ewenyee lpstrName我定义的是成员CString变量,已经用FileDlg.GetPathName()给它赋值了。
2 年多之前 回复
Ewenyee
Ewenyee 能具体一点吗?
2 年多之前 回复
weixin_29148573
weixin_29148573   2015.07.15 00:27
Csdn user default icon
上传中...
上传图片
插入图片