SQL-DMO 實作範例：列舉區域網路 SQL Server 執行個體

完整程式碼 (VB6/VBA)

Private Sub Form_Load()
    Dim i As Long
    Dim sqlApp As SQLDMO.Application
    Dim serverList As SQLDMO.NameList

    ' 建立 Application 物件
    Set sqlApp = New SQLDMO.Application

    ' 取得可用伺服器清單
    Set serverList = sqlApp.ListAvailableSQLServers

    ' 填入下拉選單
    For i = 1 To serverList.Count
        cboServer.AddItem serverList.Item(i)
    Next i
End Sub

關鍵點解析

1. SQLDMO.Application：進入點物件，提供枚舉、管理伺服器群組等高層功能。
2. ListAvailableSQLServers()：掃描網路廣播封包，回傳 NameList 集合。注意：
   　• 需網路允許 UDP 1434 廣播。
   　• 防火牆、跨子網、SQL Browser 服務停用會導致列舉不全。
   　• 僅列舉「可見」執行個體（未勾選「隱藏執行個體」者）。
3. NameList.Item(index)：1-based 索引取得伺服器名稱字串。

進階：連線驗證並取得資料庫清單

Private Sub cboServer_Click()
    Dim sqlSvr As New SQLDMO.SQLServer
    Dim db As SQLDMO.Database
    
    lstDatabases.Clear
    
    On Error GoTo ErrHandler
    sqlSvr.LoginSecure = True          ' Windows 整合驗證
    sqlSvr.Connect cboServer.Text      ' 連線選取的伺服器
    
    For Each db In sqlSvr.Databases
        If Not db.SystemObject Then    ' 過濾系統資料庫
            lstDatabases.AddItem db.Name
        End If
    Next db
    Exit Sub

ErrHandler:
    MsgBox "連線失敗：" & Err.Description, vbCritical
End Sub

常見問題排查

結語

SQL-DMO 列舉伺服器功能輕鬆實作「伺服器選擇」UI，是資料庫管理工具開發的常用起手式。注意網路環境與位元數相容性，即可穩定運作。