主题：怎样获取局域网SQL服务器列表？

 类似VB代码：
    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", ""

    Dim db As SQLDMO.Database
    For Each db In oServer.Databases  
        Combo2.AddItem db.Name  '列出所有的数据库
    Next
在狐表中怎样才能实现？

上面的代码可以直接在foxtable使用的。

你得有sqldmo.dll这个文件，并已经注册到系统了。

然后在foxtable引用下面的Interop.SQLDMO.dll文件即可。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:interop.sqldmo.rar

那就把这个功能加到foxtable上去，用户可以直接用，不用有其他操作。

谢谢！问题解决了！

如何解决，可以与大家分享么？

解决方法在2楼

如何列出局域网内所有SQL?

有这个提示！

此主题相关图片如下：未命名.gif

这不是你玩的，还是别玩了

贺老师，也别打击我的积极性嘛！我也是忠实的狐友哇！