Discussion :

[lave_01]

Bonjour,

Je viens de migrer un programme de Delphi 7 vers Delphi XE2.

Dans le processus, le programme vérifie dans une table (avec le composant ttable) si des enregistrements existent via la propriété SetRange.
Ensuite, il essaie d'ajouter un nouveau record avec Append.

Si j'ai la propriété FetchWholeRows qui est à True, le setRange me renvoie une erreur. Si elle est a False, c'est l'Append qui me renvoie qu'il ne peut pas insérer une nouvelle ligne.

J'ai contourné le problème en désactivant la propriété au moment du setRange et en la réactivant ensuite.

Le but de mon post est d'essayer de comprendre pourquoi cela agit ainsi et de voir si je peux améliorer cela.

Merci d'avance si vous pouvez m'aider et m'éclairer dans mon apprentissage Delphi.

Bonne fin de journée,

Lave

[Moez.B]

Bonjour
Le SetRange permet de créer un intervalle dans le jeu de données déjà récupéré sur le DataSet: c'est normal donc que tu ne peux pas mettre à jour correctement le DataSet d'où le Insert ou tout autre opération de mise à jour sur le DataSet échoue.
Pour le faire, il faut avoir le FetchWholeRows à True mais dans ce cas tu ne peux plus créer un intervalle avec le SetRange.
Pour créer une nouvelle ligne dans ton cas, il y a un contrôle d'unicité qui se fait d'après ce que j'ai vu ( ou tout autre contrôle de non redondance avant de lancer l'ajout du nouvel enregistrement ) : il faut soit :
- Passer par un Locate sur le DataSet avec un VarArrayOf: s'il renvoie False, c'est que ton enregistrement n'est pas trouvé et que tu peux faire un Append.
- Créer carrément un Query qui cherche si cette ligne existe avec l'ensemble de paramètres que tu passes : après un Open du DataSet, s'il est empty (tu peux tester aussi le EOF à true), tu insère ton enregistrement.
Bon courage.

[lave_01]

Bonjour,

Merci pour ta réponse Moez.B.

J'ai oublié de préciser que nous faisons un CancelRange lorsque nous avons fini l'opération avec le setRange.
Est-ce que cela change quelque chose à tes propos ?
Si après le setRange et le CancelRange, nous faisons un Refresh sur la table, est-ce que cela pourrait également améliorer la situation ?

Sinon, nous comptons migrer les ttable en Query mais il y a beaucoup de travail a effectué pour cela

Merci d'avance pour votre aide.

Bonne journée,

Lave

Ps : au besoin, la db est en Firebird

[Moez.B]

Bonjour
Le CancelRange ne fait que supprimer l'intervalle ce qui permet de récupérer toutes les données sur le DataSet et rendre accessible l'opération d'ajout.
Dans un intervalle on ne peut que consulter/modifier les données sur le DataSet mais on ne peut insérer car il nous faut la totalité des données sur le DataSet.
Utiliser un TTable sans filtre est dangereux si on fait face à de gros volumes de données et c'est pour cela qu'il faut filtrer le jeu de données sur lequel on va travailler.
Il existe des composants (FireDac, DevArt..) qui présentent un TQuery qui permettent de fetcher les données sans interdire les opérations de mise à jour (insert/append/edit/delete) en gérant le corps des requêtes SQL d'une façon personnalisée (on peut ajouter autant de paramètre(s) qu'on veut, modifier la requête Update..).
Bonne journée.

[ShaiLeTroll]

Est-ce vraiment un TTable du BDE et non un TIBOQuery de IBObjects pour InterBase/FireBird ?
Par ce que FetchWholeRows ça n'est existe pas dans le TTable !

[Moez.B]

Est-ce vraiment un TTable du BDE et non un TIBOQuery de IBObjects pour InterBase/FireBird ?
Par ce que FetchWholeRows ça n'est existe pas dans le TTable !

Évidement que c'est les composants de IbObjects :
http://www.ibobjects.com/Ibo/IDH_TIB...hWholeRows.htm

D'après leur explication, cette propriété sert à gérer d'une façon plus performante un DataSet disposant d'un nombre important de colonnes et lignes.

[lave_01]

Bonjour,

Oui c'est bien un tibotable. Désolé pour ce manque de précision

Merci pour vos réactions.
Au final, si je comprends bien, si nous voulons faire un append, je suis obligé d'avoir la propriété FetchWholeRows à True sinon le dataset n'est pas "correct".

Une dernière réflexion : vu que nous faisons un append qui met le nouveau record à la fin du Dataset (et voilà pourquoi il faudrait l'ensemble des données), est-ce qu'un insert ne pourrait pas fonctionner sans la propriété FetchWholeRows à true ?

Merci d'avance et bonne journée,

Lave

[ShaiLeTroll]

Évidement que c'est les composants de IbObjects :
http://www.ibobjects.com/Ibo/IDH_TIB...hWholeRows.htm

Non ! cela n'avait rien d'évident, tout le sujet évoque le TTable !
Tu connaissais la propriété, donc tu le savais. Je l'ai déterminé par Google
Mais il existe IBX, FIBPlus, Zeos, ou même le BDE ...
toujours mentionner la lib et le nom exacte des classes utilisées pour que ceux qui savent puisse répondre
et que les autres ne perdent pas de temps à poser la question

[Moez.B]

Non ! cela n'avait rien d'évident, tout le sujet évoque le TTable !
Tu connaissais la propriété, donc tu le savais. Je l'ai déterminé par Google
Mais il existe IBX, FIBPlus, Zeos, ou même le BDE ... j'aurais su, dès le début, que c'était du IbObjects, je n'aurais pas perdu de temps à donner une réponse liée au TTable du BDE !

C'était une fausse piste du demandeur
Je ne connais les propriétés de TTable par cœur mais je n'ai pas rencontré non plus cette propriété ( qui , dans l'aide en ligne de ibobjects, est suggérée être à True si on va récupérer plus que le 1/3 d'une table volumineuse )

[Moez.B]

Bonjour,

Oui c'est bien un tibotable. Désolé pour ce manque de précision

Merci pour vos réactions.
Au final, si je comprends bien, si nous voulons faire un append, je suis obligé d'avoir la propriété FetchWholeRows à True sinon le dataset n'est pas "correct".

Une dernière réflexion : vu que nous faisons un append qui met le nouveau record à la fin du Dataset (et voilà pourquoi il faudrait l'ensemble des données), est-ce qu'un insert ne pourrait pas fonctionner sans la propriété FetchWholeRows à true ?

Merci d'avance et bonne journée,

Lave

Un Append permet d'ouvrir un nouvel enregistrement vide à la fin d'un DataSet.
Un Insert permet d'ouvrir un nouvel enregistrement dans un DataSet à une position donnée (suite à un Locate par exemple et un déplacement du curseur du DataSet jusqu'à le bon enregistrement)
Dans les 2 cas, le TIbTable doit comporter la totalité des lignes récupérées pour gérer correctement les données à l'intérieur (Déplacement, Suppression, Modification ..)
Si on fait un Range, l'Insert va se faire à l'intérieur de l'intervalle ce qui n'est pas permis aussi.

[lave_01]

Encore désolé pour le manque de précision et la perte de temps que cela a pu provoqué . C'est noté pour mes futures posts

Merci aussi pour les différentes précisions.

Cela résout mon problème