Il existe deux commandes très simples pour passer d’une base à l’autre.

 

Voici le code à utiliser, par exemple au début du projet, avant toute utilisation des fichiers :

sAdresseServeur est une chaîne = "xxx.xxx.xxx.xxx"

 

sAdresseServeur est une chaîne = "xxx.xxx.xxx.xxx"

SI Ping(sAdresseServeur) ALORS

        // Le serveur est accessible, connexion HF C/S

        HOuvreConnexion("ConnexionHFCS", "admin", "", sAdresseServeur, ...

                                                                "BASE_CLIENT",hAccèsHFClientServeur)

        HChangeConnexion("*", "ConnexionHFCS")

        Info("Connecté à la base HF C/S.")

SINON

        // Le serveur ne répond pas, utilisation de la base HF locale

        HOuvreConnexion("ConnexionHFLocale", "", "", "C:\Base Test\", ...

                                                                "", hAccèsHF7)

        HChangeConnexion("*", "ConnexionHFLocale")

        Info("Connecté à la base locale.")

FIN