|
|
|
|
- Exemple : Importer une description de fichier à partir d'un fichier de données existant
- Exemple : Importation d'un fichier Client/Serveur HFSQL avec mot de passe
- Exemple : Se connecter au fichier des utilisateurs du Groupware
HDéclareExterne (Exemple)
Exemple : Importer une description de fichier à partir d'un fichier de données existant Exemple : Importation d'un fichier Client/Serveur HFSQL avec mot de passe sdMonHotel est une Source de Données Nouvelle_connexion est une Connexion  HPasse(sdMonHotel, "Tahiti")  // Paramètres de la connexion Nouvelle_connexion.Provider = hAccèsHFClientServeur Nouvelle_connexion.Utilisateur = "MonUtilisateur" Nouvelle_connexion.MotDePasse = "MonMotDePasse" Nouvelle_connexion.Serveur = "MonIPServeur" Nouvelle_connexion.BaseDeDonnées = "MaBaseDeDonnees"  // Ouverture de la connexion SI PAS HOuvreConnexion(Nouvelle_connexion) ALORS Erreur("Erreur de connexion : ", HErreurInfo()) RETOUR FIN SI PAS HDéclareExterne(".\Hotels.fic","sdMonHotel", Nouvelle_connexion) ALORS Erreur("Erreur sur la déclaration externe : ", HErreurInfo()) RETOUR FIN  HLitPremier(sdMonHotel) Info(sdMonHotel.Nom) Exemple : Se connecter au fichier des utilisateurs du Groupware Cet exemple montre comment se connecter au fichier des utilisateurs du Groupware utilisateur lorsque ce fichier est de type HFSQL Client/Serveur. sdGPWUTIL est une Source de Données Nouvelle_connexion est une Connexion  // Paramètres de la connexion Nouvelle_connexion.Provider = hAccèsHFClientServeur Nouvelle_connexion.Utilisateur = "mon utilisateur" Nouvelle_connexion.MotDePasse = "mon mot de passe" Nouvelle_connexion.Serveur = "mon serveur" Nouvelle_connexion.BaseDeDonnées = "ma base de données" Nouvelle_connexion.Cryptage = hCryptageNon  // Ouverture de la connexion SI PAS HOuvreConnexion(Nouvelle_connexion) ALORS Erreur(HErreurInfo()) RETOUR FIN  HPasse(sdGPWUTIL,"PCSGPW2001") SI PAS HDéclareExterne(".\Gpw_GPWU_HFCS\\GPWUTILISATEUR.fic", sdGPWUTIL, Nouvelle_connexion) ALORS Erreur(HErreurInfo()) RETOUR FIN  sdGPWUTIL.login = "testman" SI PAS HAjoute("sdGPWUtil") ALORS Erreur(HErreurInfo())
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|