Comment decrire dynamiquement un fichier Hyper File Client Serveur ?
Voici un exemple complet :
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 Donnees = "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 = hCleDoublon
HDecritRubrique(DecFic,DecRub)
DecRub..Nom = "ConnectNomMachine"
DecRub..Type = hRubTexte
DecRub..Taille = 50
HDecritRubrique(DecFic,DecRub)
DecRub..Nom = "ConnectIpMachine"
DecRub..Type = hRubTexte
DecRub..Taille = 20
HDecritRubrique(DecFic,DecRub)
DecRub..Nom = "ConnectNomExe"
DecRub..Type = hRubTexte
DecRub..Taille = 20
HDecritRubrique(DecFic,DecRub)
HDecritFichier(DecFic)
SI HChangeConnexion("ConneBst",sNomConnexion) ALORS
HCreationSiInexistant("ConneBst")
ConneBst.ConnectNom = "Valeur de test 2"
HAjoute(ConneBst)
HLitPremier(ConneBst,"ConnectNom")
SINON
Erreur(HErreurInfo())
FIN