（求助）获取局域网内SQL服务器及数据库列表的问题

mrd_wxqs

以下是在网络上搜得的获取局域网内SQL服务器及数据库列表代码，已添加对sqldmo的引用，但运行时出错，不能连接sql服务器，请前辈高手来指导一下，如何才能得到运行结果，不胜感激，谢谢！

    Dim i As Integer
    Dim sqlApp As New SQLDMO.Application
    Dim ServerName As SQLDMO.NameList
    Set ServerName = sqlApp.ListAvailableSQLServers
    For i = 1 To ServerName.Count
       Combo1.AddItem ServerName.Item(i)  '列出可用的服务器
    Next

    Dim oServer As New SQLDMO.SQLServer
    oServer.Connect "(local)", "sa", "sapowd"                   ‘’运行出错,如下图

    Dim db As SQLDMO.Database
    For Each db In oServer.Databases  
        Combo2.AddItem db.Name  '列出所有的数据库
    Next

出错提示如下：

               

mrd_wxqs

aslxt 发表于 2010-11-30 20:22
也可以啊，我测试了一下语句，当然用户名和密码必须正确才行
oServer.Connect sql 服务器的机器名, "sa",  ...

谢谢aslxt的解答,在我的电脑上代码还是提示错误，服务器用户密码都是对的，ODBC可以连接成功，请问除了添加"Microsoft SQLDMO Object Library"引用外,是否还需要添加别的引用才可以呢?


问题解决：
       原来那三个参数都必须是固定文本类型才行，从控件直接取数都不行！

aslxt

也可以啊，我测试了一下语句，当然用户名和密码必须正确才行
oServer.Connect sql 服务器的机器名, "sa", "sapowd"

mrd_wxqs

aslxt 发表于 2010-11-30 19:15
这样是可行的：
oServer.Connect "指定的ip地址", "sa", "sapowd"
我没有本地的服务器，没有测试

不行啊，老兄，以下代码同样提示错误：

    oServer.Connect "127.0.0.1", "sa", "sapowd"

我也是很纳闷，能不能麻烦哪位前辈做个测试，帮助找找原因，谢谢了！

而且通过 Combo1.AddItem ServerName.Item(i) 得到的是sql 服务器的机器名，而不是ip地址。

aslxt

这样是可行的：
oServer.Connect "指定的ip地址", "sa", "sapowd"
我没有本地的服务器，没有测试