在VB中用SQLDMO获取本地所有服务器名，需要引用的组件教什么？

[sanmu_bradley]

我在PROJECT中的引用里没有找到叫SQLDMO的，是不是别的名字。VB不必象.net那样打SP2补丁吧。

[sanmu_bradley]

大家帮忙看看下面的代码出什么问题了。
报错说Expected Function or variable.出错表示在Connect
Private Sub cmbDatabase_DropDown()
If "" = Trim(cmbServerName.Text) Then
cmbServerName.SetFocus
MsgBox ("Please select a server.")
If "" = Trim(ServerUserName.Text) Then
ServerUserName.SetFocus
MsgBox ("Please input user name.")
End If
If "" = Trim(ServerPassword.Text) Then
ServerPassword.SetFocus
MsgBox ("Please input password.")
End If
Dim strServer As SQLDMO.SqlServer
Dim connFlag As String
connFlag = strServer.Connect(cmbServerName.Text, ServerUserName.Text, ServerPassword.Text)
For i = 1 To strServer.Databases.Count
cmbDatabase.AddItem strServer.Databases(i).Name

End Sub

[hhhdyj]

Microsoft SQLDMO Object Library

[hhhdyj]

参照一下代码
Dim sqlApp As SQLDMO.Application
Dim sqlNameList As SQLDMO.NameList
Dim i As Integer

On Error GoTo ErrorLine

Set sqlApp = New SQLDMO.Application
Set sqlNameList = sqlApp.ListAvailableSQLServers

For i = 1 To sqlNameList.Count
lstServer.AddItem sqlNameList.Item(i)
Next

sqlApp.Quit

Set sqlNameList = Nothing
Set sqlApp = Nothing

Exit Sub

[superdinosaur520]

顶！！！

[云中客]

Microsoft SQLDMO Object Library