Connexion au client/serveur

Pour ceux qui débutent, voici le code pour se connecter à une base client/serveur Hyperfile mais aussi MySQL

Code (Text):

SELON SansEspace(CSTYPEBASE)

    CAS "HYPERFILESQL" :
        SI PAS HDécritConnexion("CSHF",CSUSER,CSPASS,SansEspace(CSIPSERVEUR)+":"+SansEspace(CSPORT),CSBASE,hAccèsHFClientServeur) ALORS
            erreur("Erreur de connexion à la base MySQL" + RC+RC+ HErreurInfo())
        SINON
            HChangeConnexion("*","CSHF")              
        FIN
       
       
    CAS "MYSQL","MARIADB" :
       
        CNX_MYSQL..Provider = hAccèsNatifMySQL
        CNX_MYSQL..Utilisateur = CSUSER
        CNX_MYSQL..MotDePasse = CSPASS
        CNX_MYSQL..Serveur = CSIPSERVEUR
        CNX_MYSQL..BaseDeDonnées = CSBASE
        CNX_MYSQL..Accès = hOLectureEcriture
       
        SI PAS HOuvreConnexion(CNX_MYSQL) ALORS
            erreur("Erreur de connexion à la base MySQL" + RC+RC+ HErreurInfo())
        SINON
            HChangeConnexion("*",CNX_MYSQL)
            HCréationSiInexistant(JOURNALISATION)
            HCréationSiInexistant("*")
        FIN
    AUTRE CAS
       
        erreur("Le type de base (CS) n'est pas connu : " + CSTYPEBASE)
        Ferme
       
FIN