VB6 呼叫 Microsoft Access 報表最佳實踐：Automation 物件模型完整範例

VB6 內建報表功能弱，Crystal Reports 又過重。利用 Automation (OLE 自動化) 直接駕馭已安裝的 Microsoft Access 應用程式開啟並列印報表，是輕量、高相容的方案。本文提供最小可行程式碼與關鍵注意事項。

前置條件

• 目標機器**必須安裝 Microsoft Access** (版本需支援 Automation，Access 97 以上)。
• Access 資料庫 (.mdb/.accdb) 已建立報表物件 (如 rptEmployees)。

專案參考設定

1. 專案 → 參考
2. 勾選 Microsoft Access 8.0/9.0/10.0... Object Library (版本號對應 Access 版本)

完整程式碼

' 模組層級變數持有 Application 物件
Dim appAccess As Access.Application

Private Sub Command1_Click()
    On Error GoTo ErrHandler

    Set appAccess = New Access.Application
    ' 開啟資料庫 (App.Path 為專案執行目錄)
    appAccess.OpenCurrentDatabase App.Path & "\novelty.mdb"

    ' 開啟報表並預覽/列印
    ' acViewNormal = 0 (列印), acViewPreview = 1 (預覽), acViewDesign = 2 (設計)
    appAccess.DoCmd.OpenReport "rptEmployees", acViewNormal

    ' 清理
    appAccess.CloseCurrentDatabase
    Set appAccess = Nothing

    Exit Sub

ErrHandler:
    MsgBox "錯誤 " & Err.Number & ": " & Err.Description
    If Not appAccess Is Nothing Then
        On Error Resume Next
        appAccess.CloseCurrentDatabase
        Set appAccess = Nothing
    End If
End Sub

關鍵常數與方法說明

優缺點權衡

替代方案

• Access Runtime：免費散佈版，僅含執行引擎，無設計介面，解決授權成本。
• VB6 DataReport：內建報表設計師，功能較簡但免安裝 Access。
• 第三方輕量報表元件：如 VSPReport、RBuilder 等。

部署檢查清單

• [ ] 目標機安裝 Access 或 Access Runtime
• [ ] 專案參考指向正確版本 Object Library
• [ ] 資料庫路徑以 App.Path 相對定位，避免硬編碼
• [ ] 錯誤處理確保 appAccess 釋放，防止殭屍進程

對於已有 Access 基礎設施的企業內部系統，此方案開發效率最高、維護成本最低。