Liste serveurs et bases de données SQL Server sous VB .NET
cs_chup
Messages postés
21
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
26 juillet 2007
-
15 sept. 2004 à 16:50
zeunz Messages postés 200 Date d'inscription jeudi 26 février 2004 Statut Membre Dernière intervention 30 juin 2008 - 4 juil. 2008 à 15:56
zeunz Messages postés 200 Date d'inscription jeudi 26 février 2004 Statut Membre Dernière intervention 30 juin 2008 - 4 juil. 2008 à 15:56
A voir également:
- Lister les bases de données sql server
- Curseur sql server - Conseils pratiques -SQL
- Sql server foreach - Forum SQL
- Sql afficher les 10 dernières lignes - Forum SQL
- Rollback sql server - Forum SQL
- Sql server concat - Forum SQL
1 réponse
zeunz
Messages postés
200
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
30 juin 2008
4 juil. 2008 à 15:56
4 juil. 2008 à 15:56
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
'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