引用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
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18