1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
SI HOuvreConnexion("gpwCx",gsUser_name,gsPassword,gsAdresseServeur,gsChema_name,hAccèsNatifPostgreSQL,hOLectureEcriture)= Faux ALORS
Erreur(ErreurInfo(errComplet))
SINON
nRes est un entier = gpwOuvre()
SI nRes <> gpwOk ALORS
SELON nRes
CAS gpwErreur :
Erreur("Erreur à l'initialisation.", ErreurInfo(errComplet))
CAS gpwUtilisateurInconnu :
Erreur("Utilisateur inconnu.")
CAS gpwMotPasseInvalide :
Erreur("Mot de passe invalide.")
FIN
FIN
HChangeConnexion("GPU_Cible", "gpwCx")
HOuvre("GPU_Cible")
HChangeConnexion("GPU_Configuration", "gpwCx")
HOuvre("GPU_Configuration")
HChangeConnexion("GPU_Configuration_Element", "gpwCx")
HOuvre("GPU_Configuration_Element")
HChangeConnexion("GPU_Element", "gpwCx")
HOuvre("GPU_Element")
HChangeConnexion("GPU_Groupe", "gpwCx")
HOuvre("GPU_Groupe")
HChangeConnexion("GPU_HistoriqueConnexion", "gpwCx")
HOuvre("GPU_HistoriqueConnexion")
HChangeConnexion("GPU_Options", "gpwCx")
HOuvre("GPU_Options")
HChangeConnexion("GPU_Parametres", "gpwCx")
HOuvre("GPU_Parametres")
HChangeConnexion("GPU_Utilisateur", "gpwCx")
HOuvre("GPU_Utilisateur")
HChangeConnexion("GPU_Utilisateur_Groupe", "gpwCx")
HOuvre("GPU_Utilisateur_Groupe")
HChangeConnexion("GPU_UtilisateurMDP", "gpwCx")
HOuvre("GPU_UtilisateurMDP")
HChangeConnexion("GPU_UtilisateurWeb", "gpwCx")
HOuvre("GPU_UtilisateurWeb")
FIN |
Partager