使用 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问题说它找不到Express实例；需要使用SQLBrowseConnect。

Answer 2

此示例正在使用SQLBrowseConnect API。