如何列举出网络上所有的SQL Server服务器

王朝mssql·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

引用Microsoft SQLDMO Object Library

Private Sub Nsqlser_DropDown()

If Nsqlser.ListCount > 0 Then Exit Sub

Dim Server As SQLDMO.NameList '名字列表namelist

Dim appDMO As New SQLDMO.Application 'sqldmo应用

Dim i As Integer

Set Server = appDMO.ListAvailableSQLServers '得到所有的sql sever 列表

For i = 1 To Server.Count

Nsqlser.AddItem Server(i) 'Nsqlser为下拉列表框

Next

End Sub

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航