如何判断服务器是否存在sql2000（是否安装sql2000）?

Question

如何判断服务器是否存在sql2000（是否安装sql2000）?

Answer 1

用 adodb.connection 连接它，然后判断错误信息;或者用 sqldmo 对象的 ListAvailableSQLServers 集合。列出网络中所有的活动 sql server:    Dim oDmo As New SQLDMO.Application
    Dim i As Integer
    
    For i = 1 To oDmo.ListAvailableSQLServers.Count
        List1.AddItem oDmo.ListAvailableSQLServers(i)
    Next但是要注意的是，sqldmo 对象不是每台电脑都有的，只有安装了sql server客户端管理工具才能引用到。

Answer 2

参考：
http://sz.qcode.org/q0/other/vb/vb3/%D4%DAVB%D6%D0%C8%E7%BA%CE%C1%D0%B3%F6%D5%FD%D4%DA%D4%CB%D0%D0%B5%C4SQL%20Server%B7%FE%CE%F1%C6%F7.rar