1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  2. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

Comment décrire dynamiquement un fichier Hyper File Client Serveur

Discussion dans 'Base de donnés & HFSQL' créé par suenodesign, Mar 26, 2018.

  1. suenodesign

    suenodesign Well-Known Member
    MEMBRE WX

    Inscrit:
    Jan 1, 2018
    Messages:
    507
    J'aime reçus:
    732
    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
     

Partager cette page

Chargement...