Discussion :

[NetLandGim]

Bonjour
J'ai eu un truc bizarre que j'arrive pas à expliquer
Mon appli encore en développement utilise une base de donnée PostgreSQL
Quand l'appli se connecte au serveur, j'ai une multiplication des connections (Plus de 100 clients connectés en même temps!). Vous connaissez la suite un plantage du système.
J'arrive pas à expliquer. Aucun timer par erreur. Juste un SQLconnecte qui se lance de manière indéfinie

[NetLandGim]

J'ai corrigé le problème mais c'est vraiment absurde
En cas d'échec ou de succès , un message devrait s'afficher dans la barre des message si une fenêtre est ouverte ou une boite info dans le cas contraire!
Les exceptions sont gérées par une procédure qui met fin au traitement!

Le nom des cases de la barre de message est passé en paramètre

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
PROCEDURE Message_barre(champ,msg,TypeMes)
 
sMaFenêtre est une chaîne
SI champ<>"" ALORS
 
		sMaFenêtre =FenEnCours()
		SI sMaFenêtre<>"" ALORS
		SI {sMaFenêtre,indFenêtre}..BarreDeMessage=Vrai ALORS
			SELON TypeMes
				CAS 1
 
					{champ,indChamp}..Image="images\bulle.png"
 
				CAS 2
 
					{champ,indChamp}..Image="images\info.png"
				CAS 3
 
					{champ,indChamp}..Image="images\ok.png"
				CAS 4
 
					{champ,indChamp}..Image="images\priorite.png"
				CAS 5
 
					{champ,indChamp}..Image="images\attention.png"
				CAS 6
 
					{champ,indChamp}..Image="images\erreur.png"	 
				AUTRE CAS
					{champ,indChamp}..Image=""
 
 
			FIN
			Message({champ,indChamp},Remplace(msg,RC," - "))
 
 
		FIN
 
		SINON //Pas de fenetre
		î est un entier
		SELON TypeMes
			CAS 4
				î=2
			CAS 5
				î=2
			CAS 6
				î=3 
 
		FIN
 
		AfficheMessage(msg,î)	
		FIN
 
FIN

Lorsqu'une exception se déclenche suite à une case qui n'existe pas (corrigé) la connexion à la base de donnée se multiplie à l'infini