直接访问旧的 MDB 文件

Question

我有一个 C++ (MFC) 应用程序。我的客户需要我添加一个功能来读取一些数据文件。

这些数据文件是 MDB 文件。它们似乎适用于旧版本的 Microsoft Access（可能是 2007 年之前的版本，但我无法确认）。

如果我能找到足够的格式文档，我愿意直接阅读这些文件。我也听说过可以处理这些旧文件的旧 ODBC 或其他类似工具。但是一个要求是我们不需要安装一堆额外的软件。理想情况下，我可以使用 C++ 来完成这一切。

我能否就如何访问这些数据获得一些建议？格式文档在哪里，除了自己直接阅读之外，还有什么其他选择？

注意：This article 表示 MDB 文件的布局；但是，它似乎与我正在使用的文件的内容不匹配。

Answer 1

我使用CDatabase 和 Microsoft Jet 驱动程序连接到 MDB 数据库。

我这样找到正确的驱动程序：

// We now iterate the JET drivers list and locate a valid MDB driver
CString CPTSDatabase::GetJETDriver(bool bAccDbMode)
{
    CString         strDriver;
    CString         strName, strNameLower, strValue;
    CString         strDefaultDriver = _T("Microsoft Access Driver (*.mdb)");
    CString         strDBType = _T("(*.mdb)");
    CStringArray    aryStrDrivers;
    TCHAR           szBuf[2001];
    WORD            cbBufMax = 2000;
    WORD            cbBufOut;
    TCHAR           *pszBuf = szBuf;

    if (SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
    {
#ifdef _WIN64
        strDefaultDriver = _T("Microsoft Access Driver (*.mdb, *.accdb)");
        strDBType = _T("(*.mdb, *.accdb)");
#else
        if (bAccDbMode)
        {
            strDefaultDriver = _T("Microsoft Access Driver (*.mdb, *.accdb)");
            strDBType = _T("(*.mdb, *.accdb)");
        }
#endif
        do 
        {
            strName = CString(pszBuf);
            strNameLower = strName;
            strNameLower.MakeLower();

            if (strNameLower.Find(strDBType) != -1)
            {
                aryStrDrivers.Add(strName);
                if (strName.CollateNoCase(strDefaultDriver) == 0)
                {
                    strDriver = strName;
                    break;
                }
            }

            pszBuf = _tcschr(pszBuf, _T('\0')) + 1;
        } while (pszBuf[1] != _T('\0'));

        if (strDriver.IsEmpty() && aryStrDrivers.GetSize() > 0)
        {
            // Try and use the first MDB driver we found
            strDriver = aryStrDrivers.GetAt(0);
        }
    }

    // Make a note of the driver
    AfxGetApp()->WriteProfileString(_T("Options"), _T("JET Connection Driver"), strDriver);

    return strDriver;
}

如果您知道要使用哪个驱动程序，就使用它。然后打开你的数据库：

// Opens the database (gets closed in destructor)
void CPTSDatabase::OpenDatabase(bool bAccDbMode, CString strPassword)
{
    CString     strDBConnectString;
    CString     strDriver;

    if (m_dbDatabase.IsOpen())
        return;

    if (DatabaseExist(m_strDatabasePath))
    {
        // AJT v10.5.0 Take into account the DB mode
        strDriver = GetJETDriver(bAccDbMode);
        // Take into account the DB password (decrypted!)
        strDBConnectString.Format(_T("Driver={%s};DBQ=%s;Pwd=%s"),
            strDriver, m_strDatabasePath,
            CPTSTools::DecryptDatabasePassword(strPassword));

        m_dbDatabase.OpenEx(strDBConnectString, CDatabase::noOdbcDialog);
    }
}

但是警告一句话......我以我自己的电脑为例......

我的电脑是 Windows 10 64 位 ...

它有：

• 64 位 ACCDB Microsoft 数据库驱动程序
• 32 位 MDB Microsoft 数据库驱动程序

没有 64 位 MDB 驱动程序。因此，如果您想使用 MDB 数据库，请确保以 32 位模式构建应用程序。

Answer 2

读取 MS Access .mdb 文件所需的只是安装在目标 PC/服务器上的 MDAC（Microsoft 数据访问组件）。 为了您的方便，所有现代操作系统（如 Vista/Windows 7/8/8.1/10）都预先安装了此组件。如果您必须以 XP 为目标，您可以从 MS 站点下载此组件。如果您需要为您的应用构建安装程序，InstallShield 还附带 MDAC 2.7 合并模块。

您可以简单地使用标准的 MFC 类集来处理数据库：

CDatabase database;
CString sDsn;
CString sFile = _T("D:\\Projects\\DB\\Test.mdb");

// Build ODBC connection string
sDsn.Format(_T("ODBC;DRIVER={%s};DSN='';DBQ=%s"), _T("MICROSOFT ACCESS DRIVER (*.mdb)"), sFile);
try
{
    // Open the database
    database.Open(NULL, FALSE, FALSE, sDsn);

    // Allocate the recordset
    CRecordset recset( &database );

    // Build the SQL statement
    CString sSqlString =  _T("SELECT Field1, Field2 from MyTable");

    // Execute the query
    recset.Open(CRecordset::forwardOnly, sSqlString, CRecordset::readOnly);

    // Loop through each record
    while( !recset.IsEOF() )
    {
        // Copy each column into a variable
        CString sField1;
        CString sField2;
        recset.GetFieldValue(_T("Field1"), sField1);
        recset.GetFieldValue(_T("Field2"), sField2);

        // goto next record
        recset.MoveNext();
    }
    // Close the database
    database.Close();
}
catch(CDBException* e)
{
    // If a database exception occured, show error msg
    AfxMessageBox(_T("Database error: ") + e->m_strError);
}