Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Enterprise
Expertise: Intermediate
Jun 22, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

List All Network-Visible SQL Servers

To enumerate all network-visible SQL servers using SQL-DMO objects, create a new standard EXE project and add a reference to sqldmo.rll. This file can be found in \Binn\Resources\1033\sqldmo.rll under the SqlServer70 directory. Now add this code and declaration in your form's code:

Private Function GetAllSqlServerCollection(colSqlServers As Collection) As Boolean
    Dim intIndex As Integer
    Dim oApplication As SQLDMO.Application
    Dim oNameList As SQLDMO.NameList
    Set oApplication = New Application
    With oApplication
        Set oNameList = .ListAvailableSQLServers
        With oNameList
            For intIndex = 1 To .Count
                colSqlServers.Add (oNameList.Item(intIndex))
        End With
    End With
    Set oApplication = Nothing
    GetAllSqlServerCollection = True
End Function

This code quickly fetches a list of SQL servers and can be put inside a combo box's drop-down event to always get a refreshed list of SQL servers on your form.

KulBhushan Sharma
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date