神马品牌网师德表现情况:VB中查找局域网内MS-SQL服务器
来源：百度文库 编辑：神马品牌网 时间：2024/05/01 19:09:06
=======================================
Dim objApp As New SQLDMO.Application
Dim objNameList As SQLDMO.NameList
Dim i As Integer, n As Integer
Set objNameList = objApp.ListAvailableSQLServers
n = objNameList.Count
For i = 1 To n
List1.AddItem objNameList(i)
Next
Set objNameList = Nothing
Set objApp = Nothing
=======================================
那位大哥帮忙试一下行不行?偶现在没有局域网.
不行的话能不能告诉我正确的方法呢?
Dim objApp As New SQLDMO.Application
Dim objNameList As SQLDMO.NameList
Dim i As Integer, n As Integer
Set objNameList = objApp.ListAvailableSQLServers
n = objNameList.Count
For i = 1 To n
List1.AddItem objNameList(i)
Next
Set objNameList = Nothing
Set objApp = Nothing
=======================================
那位大哥帮忙试一下行不行?偶现在没有局域网.
不行的话能不能告诉我正确的方法呢?
我在局域网里，试过了，可以找出一些SQL SERVER服务器。
我想你既然这么写代码了，肯定在VB的引用中加入了Microsoft SQLDMO Object Libary了吧，如果加了就没问题了。