List All Network-Visible SQL Servers

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 BinnResources1033sqldmo.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))            Next        End With    End With    Set oApplication = Nothing    GetAllSqlServerCollection = TrueEnd 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.

See also  5 Benefits of Using Time Tracking Software

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist