[HS] [WD10] Creation d'une base SQL Server

Pascal F a exprimé avec précision :

Bonjour, Je sais ce n'est pas vraiment le lieu, mais je n'ai pas réussi à trouver l'information.
Je voudrai à partir d'un programme WD pouvoir créer une DataBase sur un serveur SQL Server. Pour ce qui est de créer les tables
sur une base existante pas de problème, mais pour la création de bases (cas de multi sociétés ou de dossiers différents) je ne
sais pas comment faire.

J'ai bien trouver certaines pistes, mais à priori ce n'est valable qu'en local puisqu'il faut donner le chemin de création de
la table. Mais déja est il possible de récupérer le chemin générique du serveur (en local et en distant)?

Ou bien faut il absolument passer par un outil d'admin? (mais celui là fait bien la création....)
Merci d'avance

Bon, je me réponds puisque j'ai trouvé. Si ça peut éviter à d'autres de chercher ;o)

Donc j'utilise les ordres Hxxx edt un acces OLE DB sur SQLServer
Pour créer une database:

PROCEDURE Creation_Base_SQLServer(pConnex,pLogin,pMDP,pServeur,pBase)

SI PAS HDécritConnexion(pConnex,pLogin,pMDP,pServeur,"",hOledbSQLServer) ALORS
RENVOYER Faux
FIN

SI PAS HExécuteRequêteSQL("Test",pConnex,hRequêteSansCorrection,"CREATE DATABASE "+pBase) ALORS
SI HErreurInfo(hErrBase)01 ALORS // La base existe déjà
RENVOYER Vrai
FIN

RENVOYER Faux
SINON
Info(ChaîneConstruit("Création de la base de données %1",pBase))
FIN


RENVOYER Vrai


Et pour supprimer une base:
SI PAS HExécuteRequêteSQL("Test",ConnectFLO::m_cNomConnex2,hRequêteSansCorrection,ChaîneConstruit("DROP DATABASE
%1",ConnectFLO::m_Base2)) ALORS
SI HErreurInfo(hErrBase)701 ALORS
Erreur(ChaîneConstruit("La base %1 n'existe pas sur le serveur %2",ConnectFLO::m_Base2,ConnectFLO::m_Serveur))
SINON
Erreur(HErreurInfo())
FIN
SINON
Info("Suppression réussie")

FIN

--
Pascal
N0.pascal.SPAM@efpe.biz
Ne garder que le prénom pour me joindre