Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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))
            Next
        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.

 

 

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