Une connection au serveur PostgreSQL au centuple

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:

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
:calim2: