100分求助: 如何通过编程或控件在VB.NET中得到局域网内的SQL服务器名及其数据库？

Question

用sql-dmo    Dim Server As SQLDMO.NameList
    Dim appDMO As New SQLDMO.Application
    Dim i As Integer
        
    
    Set Server = appDMO.ListAvailableSQLServers
    
    For i = 1 To Server.Count
        cmbServer.AddItem Server(i)
        'Debug.Print Server(i)
    Next

Answer 1

以上是服务器，数据库更简单，用下面的sql语句就可以了select name from sysdatabases where name not in ('master','msdb','model','tempdb','Nothwind','Pubs','distribution')

Answer 2

再请教一下，如何让SQL DMO 这个名称空间有效啊，是不是要把sqldmo.dll拷到那个目录？

Answer 3

解决了。补充一点，在VB.NET中使用SQL DMO要在工程--〉添加引用的COM标签中选择Microsoft SQL DMO 8.0.这样就可以使用SQLDMO了