Nombre limite de TSqlQuery

Bonsoir,



Le projet est en ligne et fonctionne (pour beaucoup) grace à vous.
Maintenant je fais un peu de ménage dans le code et j'essaye d'organiser un peu mieux mon modèle de données, le code etc ... d'autant que j'ai des modules à rajouter.
Module paramétrage (le paramétrage de TMySQLConnection)
Module édition
Module export vers OpenOffice ou (hélas) MSOffice)
Module Distribution
etc ...

Pour l'instant Topo :

4 unités avec Form
dont une Form principale : F1 (menus et paramétrage(basique)) qui appelle 2 Form F2 (Gestion des demandeurs) ou F3 (Gestion de recherche) l'une d'elle F2 appelant F4(Gestion des enfants) à son tour.

Cette organisation étant lourde à gérer, j'ai transférer l'ensemble de F3 dans F2 j'ai corriger le code et le paramétrage des composants bref en compile tout passe mais à l'éxécution j'ai le message DatabaseName non assigné alors que tout est ok

Faute de trouver une solution j'ai déclaré un DataModule et j'ai voulu migrer mes composants SGBD dans ce DataModule et là pareil.

alors je bute d'autant que je ne peux pas avancer ailleurs tant que ce problème n'est pas réglé)
Sinon je suis assez satisfait de Lazarus, les critiques sont certes tentantes mais c'est un produit en gestation V 0.26 attendons la V1 pour être exigeant.

Bonne continuation.

Eric

bonsoir

as tu vérifié que tous tes TSQLQuery ai leur propriété "active" à false?
il y a un rapport de bug sur ce problème
http://bugs.freepascal.org/view.php?id=11946

j'ai aussi rencontré ce problème quand certaines unités contenant le composant n'étaient pas ajoutées au projet mais simplement appelées par la clause "uses"

Bonsoir,

L'idée d'utiliser un DATA MODULE est une TRÈS bonne idée comme je l'ai expliqué sur l'article suivant :king:

Pour ton problème, effectivement il est impératif de fermer tous les Dataset avant de manipuler le composant de connexion ! et de lire l'article ci-dessus car il y a une petite astuce a connaitre :aie:

Bon courage pour la suite et tiens nous régulièrement au courant,

Chris

Chris,


Il est vrai que l'article tombe en plein dedans.

Comment dire "Merci" en toutes les langues...

For i :=1 to all_langage do Begin
if dest_name='Chris' Then
remerciement.Caption:='Merci';
End;

Eric