如何在VB中查询网络中有哪些机器上提供了SQLSERVER服务呢？

Question

2.如果还没连上数据库，想得到服务器名连的话，那么
在vb中引入，micorsoft sqldmo object library
Dim appdmo As SQLDMO.Application
Set appdmo = New SQLDMO.Application
    Dim i%
    Combo1.Clear
    Set server = appdmo.ListAvailableSQLServers
    For i% = 2 To server.Count
        Combo1.AddItem "" & server(i%)
    Next
在combobox中就列出了局域网中所有可用的服务器名。
至于如何连接这个服务器。
dim s as SQLDMO.SQLServer
Set s = New SQLDMO.SQLServer
s.Connect 服务器名, "sa", "密码"

Answer 1

1.如果你已经用ado连上了，sql server那么
dim rst as adodb.recordset
rst.open "select servername=srvname from master..sysserver",connection
text1.text=rst!servername