Snippet Library

none

'Tip: Code For Getting Available SQL Server Names In Visual Basic
'October 10, 1999
'Add this code As a reference To the Microsoft SQLDMO Object Library (SQLDMO.DLL).


Dim SQLApp As SQLDMO.Application
Dim Names As SQLDMO.NameList
    
Set SQLApp = New SQLDMO.Application
' get available servers
Set Names = SQLApp.ListAvailableSQLServers
    
Dim indx As Integer

' print names to debug window    
For indx = 1 To Names.Count
    Debug.Print Names.Item(indx)
Next
    
Set Names = Nothing
Set SQLApp = Nothing
This tip was submitted by Kristjan Kelt.
;