在VB中,怎样自动搜索网络环境中正在运行的SQLSERVER数据库服务器，并与之建立连接？

Question

敬请高手指教：
在用VB编写的C/S应用程序中，在进行初始化时，怎样才能自动搜索网络环境中正在运行的SQLSERVER数据库服务器，并与之建立连接和建立数据库？请具体指教。
谢谢！

Answer 1

使用DMO来获得服务器列表   '得到SQL服务器的列表
        '必须安装SQL SERVER 2000 SP2 及以上版本
        Dim I As Short
        Dim sqlApp As New SQLDMO.Application()
        Dim ServerName As SQLDMO.NameList
        ServerName = sqlApp.ListAvailableSQLServers
        For i = 1 To ServerName.Count
            cbServer.Items.Add(ServerName.Item(i))
        Next连接数据库可以用ADO

Answer 2

又问: 若是sqlserver7.0, 有什么办法呢?

Answer 3

你装的是sqlserver7.0,在vb里看看 工程/引用/是否有Microsoft SQLDMO Object Library
如果有,就可以用上面的方法做