作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

 引用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 

相关软件：