使用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 

从here。

这个SO question表示它不会找到Express实例;需要使用SQLBrowseConnect。

Answer 2

This sample正在使用SQLBrowseConnect API。