用vb如何实现搜索网络sql server数据库？

Question

谢谢~！

Answer 1

安装  MS  SQL  Server  server/client  
引用  Microsoft  SQLDMO  Object  Library  
 
'CODE  
Option  Explicit  
 
Private  Sub  Command1_Click()  
On  Error  GoTo  Err1  
       Dim  dmoObj  As  New  SQLDMO.Application  
       Dim  I              As  Long  
   
       For  I  =  1  To  dmoObj.ListAvailableSQLServers.Count  
               List1.AddItem  dmoObj.ListAvailableSQLServers.Item(I)  
       Next  
Err1:  
End  Sub

Answer 2

获取当前可以访问的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

在查询分析器中，还可以这样：SET NOCOUNT ON
EXEC MASTER..XP_CMDSHELL 'OSQL -L'