Connexion à une base HFSQL C/S

//Méthode pour se connecter à une base de données HFSQLCS

 

conUneConnexion est une Connexion

 

conUneConnexion..Serveur       = "Monserveur:4900"

conUneConnexion..Utilisateur   = "Moncompteutilisateur"

conUneConnexion..MotDePasse    = "MonMDPducompteutilisateur"

conUneConnexion..BaseDeDonnées = "MaBaseDeDonnées"

conUneConnexion..Provider      = hAccèsHFClientServeur

 

SI HOuvreConnexion(conUneConnexion) ALORS

     SI HChangeConnexion("*",conUneConnexion) ALORS

          Info("Connexion OK.")

     SINON

          Erreur("Une erreur est survenue lors du changement de connexion."+RC+HErreurInfo(errComplet))

     FIN

SINON

     Erreur("Une erreur est survenue lors de l'ouverture de la connexion."+RC+RC+HErreurInfo(errComplet))

FIN