Salut à tous,

J'aimerais savoir comment lister les serveurs SQL Server de mon réseau local ainsi que les bases de données d'un serveur.

Merci de vos réponses.

Chup

lister les bases de données d'un serveur:

 'Déclaration des variables
        Dim objSQLServer As Object
        Dim objDataBases
        Dim objDatabase

        'Création de l'objet
        objSQLServer = CreateObject("SQLDMO.SQLServer")

        'Paramétrage de la connexion
        objSQLServer.LoginSecure = True
        objSQLServer.Connect("Nom_du_Serveur")

        'Récupération des noms de toutes les bases de données
        objDataBases = objSQLServer.Databases

        'Chargement des données
        For Each objDatabase In objDataBases
            'Chargement des noms des différentes base de données
            ListBox1.Items.Add(CStr(objDatabase.Name))
        Next