VC + ADO 獲取 Access 2000 資料庫所有使用者資料表名稱

核心原理

Access 使用者建立的資料表在 `MSysObjects` 系統表中 `Type` 欄位值為 1 (或 `TABLE` 字串)。ADO `OpenSchema(adSchemaTables)` 可枚舉所有資料表，篩選 `TABLE_TYPE = 'TABLE'` 即得使用者資料表清單。

環境準備

• VC6 + ADO 2.5+ (mdac_typ.exe)
• 專案設定：`#import "msado15.dll" no_namespace rename("EOF", "EndOfFile")`
• `stdafx.h` 加入 ` `
• 對話框類成員：`CListBox m_strList;` 並關聯控制項
• 建構函數呼叫 `::CoInitialize(NULL);`，關閉時 `::CoUninitialize();`

完整實現代碼

1. 列舉資料表核心函數

void OpenSchemaX(TCHAR* TableName) {  // TableName = 完整 .mdb 路徑
    _ConnectionPtr pConn("ADODB.Connection");
    _RecordsetPtr pRs("ADODB.Recordset");

    try {
        pConn->ConnectionString = _bstr_t(
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=") + TableName;
        pConn->Open("", "", "", adModeUnknown);

        // 關鍵：開啟 Schema 資料集
        pRs = pConn->OpenSchema(adSchemaTables);

        while (!pRs->EndOfFile) {
            _bstr_t tableName = pRs->Fields->GetItem("TABLE_NAME")->Value;
            _bstr_t tableType = pRs->Fields->GetItem("TABLE_TYPE")->Value;

            CString strType((LPCTSTR)tableType);
            if (strType == _T("TABLE")) {  // 篩選使用者資料表
                m_strList.AddString((LPCTSTR)tableName);
            }
            pRs->MoveNext();
        }
        pRs->Close(); pConn->Close();
    }
    catch (_com_error& e) {
        PrintComError(e);
        PrintProviderError(pConn);
    }
    ::CoUninitialize();
}

2. 錯誤處理輔助函數

void PrintProviderError(_ConnectionPtr pConn) {
    if (pConn->Errors->Count > 0) {
        for (long i = 0; i < pConn->Errors->Count; ++i) {
            ErrorPtr pErr = pConn->Errors->GetItem(i);
            CString msg; msg.Format(_T("Error 0x%X: %s"), pErr->Number, (LPCTSTR)pErr->Description);
            AfxMessageBox(msg);
        }
    }
}

void PrintComError(_com_error& e) {
    CString msg; msg.Format(_T("COM Error: %s (0x%X)"), e.ErrorMessage(), e.Error());
    AfxMessageBox(msg);
}

3. 檔案選擇對話框調用

void CMyDlg::OnBtnSelectMdb() {
    TCHAR bigBuff[2048] = {0};
    TCHAR szFilter[] = _T("Access Files (*.mdb)|*.mdb|All Files (*.*)|*.*||");
    CFileDialog dlg(TRUE, NULL, NULL, OFN_HIDEREADONLY | OFN_ALLOWMULTISELECT, szFilter);
    dlg.m_ofn.lpstrFile = bigBuff;
    dlg.m_ofn.nMaxFile = 2048;

    if (dlg.DoModal() == IDOK) {
        m_strList.ResetContent();
        OpenSchemaX(dlg.GetPathName());
    }
}

4. 視窗關閉時清理 COM

LRESULT CMyDlg::WindowProc(UINT msg, WPARAM wp, LPARAM lp) {
    if (msg == WM_CLOSE) ::CoUninitialize();
    return CDialog::WindowProc(msg, wp, lp);
}

關鍵點總結

擴展：獲取欄位資訊

// 取得指定資料表的欄位清單
pRs = pConn->OpenSchema(adSchemaColumns, 
    vtMissing, vtMissing, _variant_t((LPCSTR)tableName));
while (!pRs->EndOfFile) {
    _bstr_t colName = pRs->Fields->GetItem("COLUMN_NAME")->Value;
    _bstr_t dataType = pRs->Fields->GetItem("DATA_TYPE")->Value;
    // ...
    pRs->MoveNext();
}

結語

ADO `OpenSchema` 是獲取資料庫中繼資料的標準途徑，比直查 `MSysObjects` 更跨資料庫 (支援 SQL Server、Oracle 等)。掌握 `adSchemaTables`/`adSchemaColumns`/`adSchemaIndexes` 三大 Schema，即可構建通用的資料庫物件瀏覽器。