用SQLDMO很简单 1,引用Microsoft SQLDMO Object library Dim oApplication As New SQLDMO.Application Dim oNameList As SQLDMO.NameList Dim i As Integer Set oNameList = oApplication.ListAvailableSQLServers()Combo1.Clear For i = 1 To oNameList.Count Combo1.AddItem oNameList.Item(i) NextSet oNameList = Nothing Set oApplication = Nothing 上面代码是杯举出当前网络中可用数据库服务器
1,引用Microsoft SQLDMO Object library
Dim oApplication As New SQLDMO.Application
Dim oNameList As SQLDMO.NameList
Dim i As Integer
Set oNameList = oApplication.ListAvailableSQLServers()Combo1.Clear
For i = 1 To oNameList.Count
Combo1.AddItem oNameList.Item(i)
NextSet oNameList = Nothing
Set oApplication = Nothing
上面代码是杯举出当前网络中可用数据库服务器