Dim i As Integer
Dim oSQLServerapp As SQLDMO.Application
Set oSQLServerapp = New SQLDMO.Application
Dim namX As NameList
Set namX = oSQLServerapp.ListAvailableSQLServers
For i = 1 To namX.Count
Debug.Print namX.Item(i)
Next
Set oSQLServerapp = Nothing
Dim oSQLServerapp As SQLDMO.Application
Set oSQLServerapp = New SQLDMO.Application
Dim namX As NameList
Set namX = oSQLServerapp.ListAvailableSQLServers
For i = 1 To namX.Count
Debug.Print namX.Item(i)
Next
Set oSQLServerapp = Nothing
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货