sql-server-2005 - 使用 VB6 代码列出 SQL Express 2005 实例

Question

如何使用 vb6 应用程序列出 SQL Server 2005 Express Edition 的所有实例？

Answer 1

这将列出所有使用 SQL-DMO 的 SQL Server 实例。您将需要过滤 Express 实例。

Function listServers(vControl As Object)
    Dim oApp As SQLDMO.Application 
    Dim oNames  As SQLDMO.NameList 

    Set oApp = New SQLDMO.Application 
    Set oNames = oApp.ListAvailableSQLServers() 

    For Each oName In oNames 
        vControl.AddItem oName 
    Next 
End Function 

从这里。

这个SO question说它不会找到 Express 实例；需要使用SQLBrowseConnect。

Answer 2

此示例使用SQLBrowseConnectAPI。