EXTERNE ConneBst, ConnectNom

//Variables de connexion
sNomConnexion est une chaîne = "PMO_test"
sLibelleConnexion est une chaîne = "Connexion au serveur PMO, base test"
sTypeConnexion est une chaîne = "WinDevClientServeurHF"
sTypeAccès est un entier = hOLectureEcriture
sNomSource est une chaîne = "PMO:4900"
sNomBase est une Source de Données = "test"
sNomUtilisateur est une chaîne = "pmo"
sMotDePasse est une chaîne = "forpmo"
sInfoEtendus est une chaîne = ";Cryptage = aucun;Initial Catalog=test"

SI HOuvreConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse, sNomSource, sNomBase, sTypeConnexion, sTypeAccès) ALORS
Info("Connexion etablie")
SINON
Erreur(HErreurInfo())
FIN

//Declarations
DecFic est une Description de Fichier
DecRub est une Description de Rubrique

//Fichier
DecFic..Nom = "ConneBst"
DecFic..Type = hFichierClientServeur

//Rubriques
DecRub..Nom = "ConnectNom"
DecRub..Type = hRubTexte
DecRub..Taille = 20
DecRub..TypeCle = hCléDoublon
HDécritRubrique(DecFic,DecRub)

DecRub..Nom = "ConnectNomMachine"
DecRub..Type = hRubTexte
DecRub..Taille = 50
HDécritRubrique(DecFic,DecRub)

DecRub..Nom = "ConnectIpMachine"
DecRub..Type = hRubTexte
DecRub..Taille = 20
HDécritRubrique(DecFic,DecRub)

DecRub..Nom = "ConnectNomExe"
DecRub..Type = hRubTexte
DecRub..Taille = 20
HDécritRubrique(DecFic,DecRub)

HDécritFichier(DecFic)

SI HChangeConnexion("ConneBst",sNomConnexion) ALORS

HCréationSiInexistant("ConneBst")

ConneBst.ConnectNom = "Valeur de test 2"
HAjoute(ConneBst)
HLitPremier(ConneBst,"ConnectNom")

SINON
Erreur(HErreurInfo())
FIN