Re: gestion de deux bases dans Hyperfile

Posté par djstr1664 le 22/12/2010 9:03:52

si j'ai compris ce que tu veux faire ,
a l'init du projet tu declare une variable connexion
tu precise les parametre de cette connexion et tu fais un hchangeconnexion

NewConnex..Provider = hAccèsHFClientServeur
NewConnex..Utilisateur = INILit("HFCS","UTILISATEUR","",SansEspace(Wchemin+"\param.ini"))
NewConnex..MotDePasse = INILit("HFCS","MOTDEPASSE","",SansEspace(Wchemin+"\param.ini"))
NewConnex..Serveur =INILit("HFCS","SERVEUR","",SansEspace(Wchemin+"\param.ini"))
NewConnex..BaseDeDonnées = INILit("HFCS","BASEDEDONNEES","",SansEspace(Wchemin+"\param.ini"))
NewConnex..Cryptage = hCryptageNon
// Ouverture de la connexion
SI PAS HOuvreConnexion(NewConnex) ALORS
erreur("Impossible d'établir la connexion avec le serveur."+RC+NewConnex..Utilisateur+RC+NewConnex..Serveur+RC+NewConnex..BaseDeDonnées+RC+HErreurInfo)
FinProgramme()
FIN
HChangeConnexion("*",ConnexCorail)