Discussion :

[SINTECH]

Bonjour à toutes et à tous

J'ai conçu une application WinDev 25 qui fonctionne parfait lorsque je l'installe avec une base de données soit en monoposte soit en HFSQL Client/serveur.
Par contre lorsque je me connecte avec une base de données en ligne (Kalanda dans mon cas ici), tout devient exagérément lent lors de l'exécution de toutes les taches à commencer par l'ouverture de la fenêtre login du groupware utilisateur.
Je me demande si ca ne serait l'utilisateur du groupware utilisateur ou encore l'utilisation certaine fois de la fonction "hlitrecherche" (il y en a très peu) qui pourrait être à la base de cette lenteur.
voici quelques éléments à vous montrer:

1 - Configuration de mon groupware utilisateur



2 - Connexion à la base de données dans une procédure globale

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
	MaconnexionCloud est une Connexion
	MaconnexionCloud..Serveur		= "assurisk-civ.com"
	MaconnexionCloud..BaseDeDonnées	= "assurisk-04"
	MaconnexionCloud..Utilisateur	= "assurisk"
	MaconnexionCloud..MotDePasse	= "xxxxxxxxxxxxxxxxx"
	MaconnexionCloud..Cryptage		= hCryptageRC5_16
	MaconnexionCloud..Provider		= hAccèsHFClientServeur
	// Affectation de la connexion à tous les fichiers de données
 
	HChangeConnexion("*",MaconnexionCloud)
	// Ouverture de la connexion
	HOuvreConnexion(MaconnexionCloud)
	// Création des fichiers de données
	HCréationSiInexistant("*")

J'ai besoin s'il vous plait de vos observations et vos conseils pour résoudre ce problème de lenteur
Merci d'avance

[Voroltinquo]

Bonjour,
Les raisons d'une lenteur d'une appli en réseau sont multiples. Les principales sont
1-La qualité du RSO
2-L'utilisation de boucles à la place de requêtes. Dans une boucle, à chaque itération, il y a un aller-retour du client vers le serveur alors qu'avec une requête, il n'y a qu'un seul A-R. Je compare souvent ces deux méthode à quelqu'un qui fait ses course.
Boucle
J'ouvre le placard, il me maque du sel, je vais acheter le sel, je range le sel.
J'ouvre le placard, il me manque de l'huile, je vais acheter l'huile, je range l'huile.
etc...
et on y passe la journée
Requête
J'ouvre mes placards
Je note ce qui me manque
Je vais acheter ce qui me manque
On y passe qu'une heure ou deux.

Si on remplit un champ table par programmation avec HLitRecherchePremier/HLitSuivant au lieu de le lier à une requête ou un tableau de classe, ça peut devenir rapidement catastrophique au niveau du temps d'exécution.

[frenchsting]

Bonjour,

En plus de la remarque de voroltinquo, j'ajouterais que je ferais ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Si PAS HOuvreConnexion(MaconnexionCloud) ALORS
	//Traitement de l'erreur
	Retour
FIN
Si PAS HChangeConnexion("*",MaconnexionCloud)ALORS
	//Traitement de l'erreur
	Retour
FIN
gbFichiersDéjàCréés = IniLit("Param", "FichiersCréés", faux, sCheminEtNomFichierIni)
Si PAS gbFichiersDéjàCréés ALORS
	HCréationSiInexistant("*")
	IniEcrit("Param", "FichiersCréés", gbFichiersDéjàCréés, sCheminEtNomFichierIni)
FIN

1. Je traite les erreurs
2. J'ouvre déjà la connexion avant de faire le changement pour les fichiers
3. Je ne fais une création que si j'ai besoin de le faire. Généralement, on le fait à la première ouverture du programme, puis plus jamais (ou presque). Cette fonction peut être lente. D'autant plus qu'il y a beaucoup de fichiers (et que la connexion est lente).

[Voroltinquo]

HOuvreConnexion doit toujours être utilisé en dernier cf Optimiser les temps de connexion aux bases HFSQL Client/Serveur
Par ailleurs, si on ne travaille que sur une seule connexion, il est inutile d'utiliser HChangeConnexion.
En ce qui concerne le HCréationSiInexistant, l'administrateur a normalement créé les tables, surtout en cas d'évolution de l'appli qui amène à ajouter des tables. Dans ce cas, le booléen est à vrai mais il ne prend pas en compte les nouvelles tables.

[serendib]

Bonsoir,

Avec WD55 je remplace HCréationSiInexistant par :

Code :

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

1
2
3
4
5
 
H.ErrIgnore = Vrai
HOuvre(NomFich)
H.ErrIgnore = Faux
si H.Erreur = 3 alors HCreation(NomFich)

S'il y a beaucoup de fichiers la différence est spectaculaire !

A adapter et tester sur les nouvelles versions ...

[frenchsting]

@voroltinquo merci pour l'astuce sur l'ordre des instructions.
Concernant la présence du HChangeconnexion(), j'ai eu plusieurs fois des déconvenues concernant l'emplacement des fichiers. Maintenant, je la mets toujours (et maintenant, je le mettrais avant d'ouvrir la connexion )
Concernant les ajouts de tables, c'est l'intérêt de ce genre de méthode : lorsqu'il y a évolution de la bdd, un module d'init doit être fait. c'est lui qui va mettre à faux le booléen. Dans mon exemple, je les ai enchaînés pour plus de lisibilité. La lecture / modification de ce paramètre doit être faite en amont.

@serendib, je pense que ton code serait maintenant qq chose du genre (pas testé) :

Code :

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

Si PAS HOuvre(NomFich) _ET_ HErreurInfo(hErrCode) = 3 ALORS HCreation(NomFich)

[serendib]

@serendib, je pense que ton code serait maintenant qq chose du genre (pas testé) :

Code :

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

Si PAS HOuvre(NomFich) _ET_ HErreurInfo(hErrCode) = 3 ALORS HCreation(NomFich)

Vous n'avez plus qu'à tester

[SINTECH]

J'ai suivi avec beaucoup d'attention et d'intérêt toutes vos remarques, elles sont vraiment pertinentes.
je vais :
- transformer toutes mes fonctions hlitrecherche en requête
- modifier la procédure de connexion au cloud
et encore...
merci pour toutes ces remarques.