本文介绍了一段使用VBA编写的代码，该代码能够枚举并列出所有可用的SQL服务器实例。通过创建SQLDMO.Application对象并调用ListAvailableSQLServers方法实现此功能，并将这些服务器名称添加到ComboBox中。
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
扫一扫
评论
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
查看更多评论
添加红包
