Comment décrire dynamiquement un fichier Hyper File Client Serveur

Comment décrire dynamiquement un fichier Hyper File Client Serveur​

Ref :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Voici un exemple complet :

Code (Text):

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