Option Explicit
Sub LIST_SQL()
Dim sqlApp As New SQLDMO.Application
Dim NameList As SQLDMO.NameList
Dim index As Long
Set NameList = sqlApp.ListAvailableSQLServers
Me.ComboBox1.Clear
' local SQL Server must be added manually
Me.ComboBox1.AddItem "."
For index = 1 To NameList.Count
Me.ComboBox1.AddItem NameList.Item(index)
Next
End Sub
Private Sub UserForm_Initialize()
Call LIST_SQL
End Sub
list sql server of lan
最新推荐文章于 2025-11-25 14:28:51 发布
本文介绍了一段使用VBA编写的代码,该代码能够枚举并列出所有可用的SQL服务器实例。通过创建SQLDMO.Application对象并调用ListAvailableSQLServers方法实现此功能,并将这些服务器名称添加到ComboBox中。
996

被折叠的 条评论
为什么被折叠?



