CLIENT SERVEUR ( Suite ) |
Sujet: CLIENT SERVEUR ( Suite ) par Anonyme sur 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. |