gpwOuvreConnexion(gcnxMaConnexion,sUser,sMotDePasse,sAdresseOuNomServeurHF,sNomBaseDeDonnees,hAccèsHFClientServeur,hOLectureEcriture)
gsAppli_CS est une chaîne=INILit("Param","Application_ClientServeur","",fRepExe()+"\Appli.ini")
gsUser est une chaîne=INILit("Param","Utilisateur","",fRepExe()+"\Appli.ini")
gbResCnx est un booléen
SELON gsAppli_CS
CAS "Oui"
gsAccèsServeurDonnées est une chaîne=INILit("Param","AccesServeurHF","",fRepExe()+"\Appli.ini")
DPS est une Connexion
// Paramètres de la connexion
DPS..Provider = hAccèsHFClientServeur
DPS..Utilisateur = gsUser
DPS..MotDePasse = ""
DPS..Serveur = gsAccèsServeurDonnées
DPS..BaseDeDonnées = "GEODES"
DPS..Cryptage = hCryptageNon
// Ouverture de la connexion
HOuvreConnexion(DPS)
gbResCnx=HChangeConnexion("*",DPS)
SI gbResCnx=Faux ALORS
HErreurInfo(hErrComplet)
FIN
CAS "Non"
gsCheminAccesDonnées est une chaîne=INILit("Param","Repertoire_Données_Application","",fRepExe()+"\Appli.ini")
SI PAS gsCheminAccesDonnées="" ALORS
HChangeRep("*",gsCheminAccesDonnées)
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6569&post_id=25802