CLIENT SERVEUR ( Suite )

Posté par Anonyme le 11/1/2006 15:00:44

Bonjour à tous,

Pour faire suite à ma précédente question voici le code que j'utilise pour interroger un stock distant :

HDécritConnexion("STOCK",user_code,user_mp,nom_serveur,nom_bdd,hAccèsHFClientServeur,hOLecture)

SI PAS HChangeConnexion("ARTICLES_STOCKS","STOCK") ALORS
Info("La connexion n'a pas aboutie")
RETOUR
FIN

HLitRecherchePremier(ARTICLES_STOCKS,IDARTICLES,ARTICLES.IDARTICLES)
SI PAS HTrouve ALORS
Info("Cette réference est inconnue pour ce
magasin")
SINON
Info(ARTICLES_STOCKS.QTE_STOCK_MAGASIN)
FIN

Message("Fermeture de la connexion en cours...")

HFermeConnexion("STOCK")

SI PAS HChangeConnexion(ARTICLES_STOCKS,"") ALORS
Info("Le rétablissement de la connexion initiale à échouée")
RETOUR
FIN

Pourriez-vous me dire si cette solution est la plus efficace ou si il faut utiliser houvreconnexion ?

Merci d'avance.