Discussion :

[Glomsys]

Bonjour !

Je travaille sur une application utilisant une base de données HF Client-Serveur. J'ai un Serveur secondaire où sont répliqué les données du Serveur principal.

Alors, je veux que l'utilisateur (l'application) soit redirigé automatiquement vers le serveur secondaire au cas où le principal serait hors service.

Lors du lancement de l’application il n'y a aucun problème. Si le SERVEUR 1 est indisponible, la connexion se fait au SERVEUR 2.

Mon vrai problème est pendant l'utilisation de l'application. Si le SERVEUR sur lequel l'application est connecté devient injoignable, l'application plante...

Un coup de main SVP !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
CODES DE CONNEXION AU SERVEUR (placés dans la partie code du projet)
 
//SERVEUR 1   *****************************
TheSERVER est une chaîne 
ConSVR1 est une Connexion
// Paramètres de la connexion
ConSVR1..Provider = hAccèsHFClientServeur
ConSVR1..Utilisateur = "admin"
ConSVR1..MotDePasse = ""
ConSVR1..Serveur = "10.12.8.105"
ConSVR1..BaseDeDonnées = "Replic_Test"
ConSVR1..Cryptage = hCryptageNon
 
//SERVEUR2   ******************************
ConSVR2 est une Connexion
// Paramètres de la connexion
ConSVR2..Provider = hAccèsHFClientServeur
ConSVR2..Utilisateur = "admin"
ConSVR2..MotDePasse = ""
ConSVR2..Serveur = "10.12.8.107"
ConSVR2..BaseDeDonnées = "Replic_Test"
ConSVR2..Cryptage = hCryptageNon
 
// Ouverture de la connexion
SI HOuvreConnexion(ConSVR1) =Faux ALORS
	SI HOuvreConnexion(ConSVR2) = Faux ALORS
		Erreur("Les serveurs sont indisponibles pendant un moment.")
		RETOUR
	SINON
		Info("Connexion effectuée au SERVEUR 2.")
		HChangeConnexion("*",ConSVR2)
	FIN
SINON
	Info("Connexion effectuée au SERVEUR 1.")
	HChangeConnexion("*",ConSVR1)
FIN

[Narwe]

J'imagine qu'en utilisant un évenement sur la perte de connexion, il doit être possible de réaliser cela.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HSurErreur("*",hErrPerteConnexion, PG_PerteConnexion)

Le code PG_PerteConnexion serait équivalent à celui indiqué