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
最新推荐文章于 2024-07-19 15:37:00 发布