（求助）获取局域网内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

出错提示如下：

               

aslxt

这样是可行的：
oServer.Connect "指定的ip地址", "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 sql 服务器的机器名, "sa", "sapowd"

mrd_wxqs

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

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


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