Access/Excel 遷移 MySQL 實戰 (三)：VB6 + ADO + Excel Object Library 自動化導入工具開發

工程架構

• **語言**：Visual Basic 6.0 (經典桌面開發，文中 2003 年背景)
• **數據訪問**：ADO 2.6 (Microsoft ActiveX Data Objects 2.6 Library) — 同 ASP 經典模型
• **Excel 操作**：Microsoft Excel 9.0 Object Library — 讀取 .xls 工作表
• **UI 組件**：Common Dialog 6.0 (文件選擇)、Common Controls 6.0 (進度條/狀態欄)

核心對象聲明

Option Explicit
Dim Cn As New ADODB.Connection       ' Access/Excel 連接
Dim CnMySQL As New ADODB.Connection  ' MySQL 連接
Dim Rs As New ADODB.Recordset        ' 源數據游標
Dim RsMySQL As New ADODB.Recordset   ' 目標游標 (少用，多用 Command 執行 INSERT)

關鍵輔助函數：SQL 轉義

Function replace_str(srcstr As String)
    srcstr = Replace(srcstr, "\", "\\")  ' 反斜杠轉義
    replace_str = Replace(srcstr, "'", "\'")  ' 單引號轉義
End Function

**注意**：VB6/ADO 參數化查詢 (Command.Parameters) 更安全，文中為教學演示用字符串拼接。

Form_Load：初始化 MySQL 連接

Private Sub Form_Load()
    prgBar1.Visible = False
    ' DSN=build，UID=root，PWD=空 (文中示例)
    CnMySQL.ConnectionString = "uid=root;pwd=;dsn=build"
    CnMySQL.Open
End Sub

界面控件映射 (文中圖示)

遷移邏輯大綱 (文中後續章節)

1. 用戶選擇 .mdb/.xls 文件 → 顯示路徑
2. 點擊「導入」按鈕 → 打開源連接 (ADO Jet OLEDB / Excel OLEDB)
3. 讀取源表記錄集 → 逐行/批次構造 INSERT SQL → MySQL 執行
4. 進度條更新、狀態欄提示、錯誤捕獲繼續/停止
5. 完成提示、關閉連接

現代化重寫建議 (VB6 已停止支援 2008 年)

核心遷移模式 (跨語言通用)

# Python 概念代碼
def migrate_access_to_mysql(mdb_path, mysql_dsn, table_map):
    # 1. 連接源 (pyodbc + Access ODBC)
    src = pyodbc.connect(f"DRIVER={{Microsoft Access Driver (*.mdb, *.accdb)}};DBQ={mdb_path};")
    # 2. 連接目標 (MySqlConnector)
    tgt = mysql.connector.connect(**mysql_dsn)
    # 3. 逐表遷移
    for src_tbl, tgt_tbl, col_map in table_map:
        cols = ', '.join(col_map.keys())
        placeholders = ', '.join(['%s'] * len(col_map))
        sql = f"INSERT INTO `{tgt_tbl}` ({cols}) VALUES ({placeholders})"
        # 4. 批次讀取 + 批次寫入
        batch = []
        for row in src.cursor().execute(f"SELECT {cols} FROM `{src_tbl}`"):
            batch.append(tuple(row[col] for col in col_map.keys()))
            if len(batch) >= 5000:
                tgt.cursor().executemany(sql, batch)
                tgt.commit()
                batch.clear()
        if batch:
            tgt.cursor().executemany(sql, batch)
            tgt.commit()
    src.close(); tgt.close()

結語

文中 VB6+ADO 方案在 2003 年是「桌面自動化遷移」的主流選擇，但**今天已屬技術考古**。現代遷移工具鏈：**無 COM 依賴、無 Office 安裝、批次參數化、並行流式、容器化部署、可觀測進度**。若維護舊系統必須用 VB6，請嚴格隔離運行環境 (XP/Win7 虛擬機、網絡隔離)；新專案**直接上現代棧**，開發效率提升 10x+，穩定性質變。