[AccessD] Enumerate SQL Servers

Martin:

Here is a example which should work in Access. You will need to reference
the SQLDMO library to make it work.

	  Dim oApp As SQLDMO.Application
        Dim oNames As SQLDMO.NameList
        Dim oName As Variant

        Set oApp = New SQLDMO.Application
        Set oNames = oApp.ListAvailableSQLServers()
        For Each oName In oNames
            cboServers.AddItem oName
        Next

Hope it helps.

James Barash

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Martin Reid
Sent: Friday, May 05, 2006 3:05 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Enumerate SQL Servers

 
Anyone got an example of populating a drop down list in Access with all
available SQL Servers?
I am building a  new login procedure.
 
Martin
 
 
 
Martin WP Reid
Training and Assessment Unit
Riddle Hall
Belfast
 
tel: 02890 974477