怎样用VB 实现自动查找局域网内可用的SQL SERVER 服务器

Question

怎样用VB 实现自动查找局域网内可用的SQL SERVER 服务器，就像SQL SERVER 里面新建注册那样自动找到装有SQL SERVER 的计算机的名字

Answer 1

SQL DMO來做，如果你完整安裝SQL Server，
在安裝目錄下有VB的示例代碼。

Answer 2

Application对象的ListAvailableSQLServers方法会返回一个NameList对象，它包含有网络上可用服务器的列表。下面的代码显示了一个使用这个方法来填充列表框控件的方法：Dim objSQLApp As SQLDMO.Application
Dim objNameList As SQLDMO.NameList
Dim intCount As IntegerSet objSQLApp = New SQLDMO.ApplicationSet objNameList = objSQLApp.ListAvailableSQLServers()For intCount = 1 To objNameList.Count
    Call List1.AddItem(objNameList.Item(intCount))
Next