怎么查找出局域网中所有的SQLServer服务器

Question

用VB，怎么把局域网中的SQLSERVER服务器都找出来，

Answer 1

http://search.csdn.net/Expert/topic/1817/1817902.xml?temp=.3793604

Answer 2

得到sql server所有数据库：sp_databasesSET NOCOUNT ON
EXEC MASTER..XP_CMDSHELL 'OSQL -L'获取当前可以访问的sql server，引用sqldmo。 Dim Server As SQLDMO.NameList
    Dim appDMO As New SQLDMO.Application
    Dim i As Integer
        
    On Error GoTo Error
    
    Set Server = appDMO.ListAvailableSQLServers
    
    For i = 1 To Server.Count
        cmbServer.AddItem Server(i)
        'Debug.Print Server(i)
    Next

Answer 3

参考
http://www.china-askpro.com/msg49/qa28.shtml

Answer 4

招聘软件开发工程师：
1、计算机及相关专业本科以上学历；具有两年以上软件开发经验。
2、精通VB、VC等开发工具，熟悉SQL SERVER等大型数据库。
3、能读懂流程图及相应详细设计框图。
4、创新意识强，具有团队合作精神。
联系人：李先生  0898-68582235  [email protected]

Answer 5

一是引用sql dmo，里面有对应的属性\方法。
还有就是用API函数，好像是NET---的，不过如果装在WIN98上就会出糗了！

Answer 6

引用sql dmo
Set oSQLServerDMOApp = New SQLDMO.Application
  
  Dim namX As NameList
  Set namX = oSQLServerDMOApp.ListAvailableSQLServers
  For i = 1 To namX.Count
    txtServer.AddItem namX.Item(i)
  Next