//Connexion par programmation à une base SQL Serveur via l`accès natif.
//Variables de connexion
sNomConnexion est une chaîne = "CNX_SQLServer"
sTypeConnexion est une chaîne = "WinDevSQLServer"
sTypeAccès est un entier = hOLectureEcriture
sNomSource est une chaîne = "MonServeurSQL"
sNomBase est une Source de Données = "TEST"
sNomUtilisateur est une chaîne = "sa"
sMotDePasse est une chaîne = ""
sInfoEtendus est une chaîne = ""
//CRéation de la connexion
SI HDécritConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse, sNomSource, sNomBase, sTypeConnexion, sTypeAccès) ALORS
//Affectation de la connexion
SI HOuvreConnexion(sNomConnexion) ALORS
HChangeConnexion(Cedex,"CNX_SQLServer")
Info("Connexion créée. Changement de connexion effectué")
SINON
Erreur(HErreurInfo())
FIN
SINON
Erreur(HErreurInfo())
FIN
|