Problème avec Firedac

Version imprimable

22/02/2023, 15h40
f5jcg_Lulu

Problème avec Firedac

Bonjour à tous,
J'ai un DBGrid qui affiche une table de ma BDD SQLite. Pour effectuer un traitement sur 1 ou plusieurs enregistrements (des lignes donc), sur proposition de SergioMaster (il y a longtemps) j'ai créé un champ Print qui sert à marquer ces enregistrements par un X (par exemple). Ce X est utilisé dans plusieurs requêtes SQL.
Ce champ est invisible et se vide automatiquement dès le traitement terminé. Tout fonctionne bien avec Zeosdbo.
J'ai essayé avec les contrôles Firedac TFDConnection et TFDQuery. Le champ Print ne se vide pas, autrement dit la ou les X restent présentes et peuvent induire des erreurs pour d'autres requêtes SQL.
Dans le TFDConnection je choisis l'option FetchOptions > Mode > fmAll.
Merci encore une fois pour votre aide.
Cordialement
22/02/2023, 16h05
SergioMaster

Bonjour,

Je ne comprends pas la question (et pourtant)
Quelle est la requête en question et y a-t-il un FDUpdateSQL associé ?

Bonjour SergioMaster,
Voici la procédure de marquage de l'enregistrement :

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
procedure TMainForm.mnSelectionQSOClick(Sender: TObject);
var
 i : integer;
 aBookmark : TBookmark;
begin
  inherited;
  if DBGrid1.SelectedRows.Count > 0 then
  begin
    with DBGrid1.DataSource.DataSet do
    begin
      for i := 0 to DBGrid1.SelectedRows.Count-1 do
      begin
        DBGrid1.DataSource.Dataset.GotoBookmark(DBGrid1.SelectedRows.Items[i]);
        ABookmark := Datas.QContacts.GetBookMark;
        Datas.QContacts.Edit;
        Datas.QContacts.FieldByName('Print').Value := 'X';
        Datas.QContacts.Post;
        Datas.QContacts.DisableControls;
        Datas.QContacts.Refresh;
        Datas.QContacts.GotoBookmark(ABookmark);
        Datas.QContacts.EnableControls;
      end;
    end;
end;
end;

et celle qui l'utilise pour, par exemple, sortir un état du ou des enregistrement(s) sélectionné(s) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TMainForm.impQSOselectionnesClick(Sender: TObject);
begin
mnSelectionQSOClick(self);
  With Datas.QReport do
  begin
    SQL.Clear;
    SQL.Add('SELECT * from tblContacts WHERE Print LIKE '+QuotedStr('X' + '%'));
    Open;
  end;
  with TReport.Create(nil) do
    try
      RLLabel1.Caption := 'Liste des ' + Format('%d', [Datas.QReport.RecordCount]) + ' contacts marqués';
      RLReport1.Preview;
    finally
    Destroy;
  end;
mnDeselectionQSOClick(self);
DBNavigator1Click(self,nbRefresh);
end;

Et non je n'ai pas de FDUpdateSQL associé, novice que je suis en Firedac.

Plus clairement dit, je souhaite que le champ Print soit vidé à la fin du traitement.

Merci.

22/02/2023, 16h40
ShaiLeTroll

Dommage de ne pas faire des UPDATE en SQL au lieu de ce vilain Bookmark\Edit

On dirait que vous utilisiez un champ dans le cache sans le commiter
Un champ virtuel serait préférable ou alors utiliser une TRANSACTION avec une sorte d'équivalent à ON COMMIT DELETE ROWS (ORACLE)

Vous devriez utiliser une table temporaire uniquement visible par la session pour selectionner vos données
Cela ne fonctionnera jamais dans un environnement multi-utilisateur votre système.

1 pièce(s) jointe(s)

Alors premièrement ma question sera la colonne Print existe ou non dans tblContacts ?
Car, je ne comprends pas trop cette phrase "Ce champ est invisible et se vide automatiquement dès le traitement terminé. "

ceci

Code:

SQL.Add('SELECT * from tblContacts WHERE Print LIKE '+QuotedStr('X' + '%'));

m'indiquerait que oui
P.S, pas très joli cette requête et largement améliorable si c'est fdquery
un
Code:

1 2 FDQuery.Open('SELECT * from tblContacts WHERE Print='+QuotedStr('X'));
Fera le même job à moindre code ;)

J'ai quand même voulu faire un test avec inexistence de la colonne en procédant ainsi

Code:

SELECT EmployeeID,LastName,FirstName,title, CAST(' ' AS CHAR(1)) PRINT FROM Employees

(database fddemo.db)
en définissant les champs et en mettant la requête cachedupdate=true, en mettant le champ Print à ReadOnly:=False
un code comme celui-ci (sans même m'occuper de multiselection)
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm6.DBGrid1CellClick(Column: TColumn); begin if SameText(Column.FieldName,'Print') then begin FdQuery1.Edit; if FDQuery1PRINT.AsString='X' then fdQuery1PRINT.Clear else fdQuery1PRINT.asString:='X'; FdQuery1.Post; end; end;
fait l'affaire quant à la sélection des trucs à imprimer une fois fait
Code:

1 2 3 4 procedure TForm6.Button1Click(Sender: TObject); begin FDQuery1.CancelUpdates; // merci CacheUpdates=True end;
évite tout ce truc de beginupdate/réouverture et repositionnement/endupdate

Idem puisque programme VCL, plutôt que de voir un X en colonne print, j'utiliserai un vieux truc pour afficher à la place une case à cocher il y a cette FAQ mais j'ai plutôt en tête cette solution, à envisager aussi le composant smdbgrid

avec ce code en mettant DefaulDrawGrid à false
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 DataCol: Integer; Column: TColumn; State: TGridDrawState); var r : Trect; begin if SameText(Column.FieldName,'Print') then begin r.Top:=Rect.Top+1; r.Bottom:=Rect.Bottom-1; r.Left:=Rect.Left+1; r.Right:=Rect.Right-1; (Sender as TDBGrid).Canvas.FillRect(r); DrawFrameControl((Sender as TDBGrid).Canvas.Handle,r,DFC_BUTTON, IfThen(FDQuery1PRINT.asString='X',DFCS_CHECKED,DFCS_BUTTONCHECK)); end else DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); end;
on obtient
Pièce jointe 634696

pour le Report, comme je ne sais pas trop quel est le générateur ... Pour l'instant, je botte en touche.
Mais s'il s'agit de fastreport j'écrirais de ne pas faire de SQL et de tester par script pascal si la ligne doit être imprimée ou non

22/02/2023, 18h29
f5jcg_Lulu

Je me suis mal exprimé. Oui le champ Print existe dans tblContacts (c'était d'ailleurs votre suggestion à l'époque). La colonne est juste rendu non visible dans le DBGrid puisque je n'interviens pas du tout, ni pour marquer la ligne par un X ni pour supprimer le X en fin de traitement. C'est pourquoi les cases à cocher ne conviennent pas, la colonne étant non visible.
J'avais essayé de me passer de la X en exécutant le traitement par simple sélection de la ou des ligne(s). Mais je n'ai pas su lancer un traitement par simple sélection de ligne. La X dans la colonne Print est indispensable en l'état du code.
Mon seul problème est de vider le champ Print en fin de traitement avec Firedac, car Zeos le fait très bien. Peut-être un Update... Qu'en pensez-vous ?
Vous me direz : continuez avec Zeos puisque ça fonctionne ! Certes, mais je suis curieux et tenace :D
Merci pour vos creusements de cerveau.
Cordialement
22/02/2023, 18h58
SergioMaster

Citation:

Envoyé par f5jcg_Lulu

Oui le champ Print existe dans tblContacts (c'était d'ailleurs votre suggestion à l'époque).

époque lointaine dont je ne me souviens pas

Citation:

Envoyé par f5jcg_Lulu

Mon seul problème est de vider le champ Print en fin de traitement avec Firedac

un FDConnexion.ExecSQL('UPDATE tblContacts SET PRINT=NULL');mais pas besoin si FDQuery est en CacheUpdate,
auquel cas FDQuery.CancelUpdates; suffit

Citation:

Vous me direz : continuez avec Zeos puisque ça fonctionne !

non, car Firedac est mieux sur beaucoup de points (macros, Open etc...)
22/02/2023, 19h12
f5jcg_Lulu

Bingo SergioMaster, vous réglez mon problème en 1 ligne car ça fonctionne, et avec Firedac ! Rien ne s'oppose plus à ce que je vire ma cuti pour Firedac.
Merci beaucoup.
Bonne soirée.
PS : à bientôt pour de nouvelles aventures :D
23/02/2023, 07h42
SergioMaster

Reste à savoir laquelle des deux, le SQL Update ou le CancelUpdates d'un dataset en CacheUpdate:=True

Bonjour à tous,
Il y a encore un problème (?) avec ma BDD sur Firedac. Quand je choisis un certain nombre d'enregistrements à éditer, j'ai bien le nombre de lignes mais ce ne sont pas celles que j'ai choisies, ce sont des lignes tirées semble-t-il "au hasard", jamais les mêmes.
Je ne veux pas croire que le diable se cache là-dedans, mais je relis mon code encore et encore et je ne vois rien qui puisse expliquer objectivement ce "phénomène".
Le add-on de reporting n'est pas en cause.
Voici les 3 seules procédures utilisées par l'édition d'enregistrement(s) :
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 procedure TMainForm.mnSelectionQSOClick(Sender: TObject); //Sélection enregistrement(s) var i : integer; aBookmark : TBookmark; begin inherited; if DBGrid1.SelectedRows.Count > 0 then begin with DBGrid1.DataSource.DataSet do begin for i := 0 to DBGrid1.SelectedRows.Count-1 do begin DBGrid1.DataSource.Dataset.GotoBookmark(DBGrid1.SelectedRows.Items[i]); ABookmark := QContacts.GetBookMark; QContacts.Edit; QContacts.FieldByName('Print').Value := 'X'; QContacts.Post; QContacts.DisableControls; QContacts.Refresh; QContacts.GotoBookmark(ABookmark); QContacts.EnableControls; end; end; end; end; procedure TMainForm.impQSOselectionnesClick(Sender: TObject); //Edition enregistrement(s) begin mnSelectionQSOClick(self); With QReport do begin SQL.Clear; SQL.Add ('SELECT * from tblContacts WHERE Print = "X"'); Open; end; with TReport.Create(nil) do try RLLabel1.Caption := 'Liste des ' + Format('%d', [QReport.RecordCount]) + ' contacts marqués'; RLReport1.Preview; finally Destroy; end; mnDeselectionQSOClick(self); end; procedure TMainForm.mnDeSelectionQSOClick(Sender: TObject); //Désélection enregistrement(s) c-à-d vidage de Print begin With QContacts do begin SQL.Clear; SQL.Text := 'UPDATE tblContacts SET Print = NULL'; ExecSQL; end; end;
J'ai donné aux contrôles Firedac les mêmes noms que les anciens contrôles Zeos pour ne pas avoir à tout corriger.
Voilà, c'est tout, c'est simple et ça foire !
Merci encore.
Cordialement

Bonjour,

le premier test à effectuer serait de vérifier que ce sont les bons enregistrements qui sont "cochés".
Cette histoire de bookmark telle que codifiée est peut-être "bancale" avec Firedac.

Code:

1
2
3
 
        DBGrid1.DataSource.Dataset.GotoBookmark(DBGrid1.SelectedRows.Items[i]);
        ABookmark := QContacts.GetBookMark;

Une question, DGBrid est lié à QContacts ? Dans ce cas la seconde instruction me semble inutile

Code:

1
2
3
4
  QContacts.DisableControls;
        QContacts.Refresh;
        QContacts.GotoBookmark(ABookmark);
        QContacts.EnableControls;

le fait que ce soit dans la boucle n'arrange pas les affaires, j'eusse écrit les choses ainsi

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
procedure TMainForm.mnSelectionQSOClick(Sender: TObject); //Sélection enregistrement(s)
var
 i : integer;
 aBookmark : TBookmark;  // repositionnement futur ? 
 AKey : Integer; // idem 
begin
  inherited;  // ??? de quoi, quel est le composant mnSelectionQSO ?
 
 if DBGrid1.SelectedRows.Count > 0 then
  begin
 <s>   with DBGrid1.DataSource.DataSet do  // inutile pour le reste du code
    begin</s>
       ABookmark:=QContacts.GetBookmark; //  aKey:=QCOntactsID.asInteger; 
       QContacts.DisableControls;
      for i := 0 to DBGrid1.SelectedRows.Count-1 do
      begin
        DBGrid1.DataSource.Dataset.GotoBookmark(DBGrid1.SelectedRows.Items[i]);  // DBGrid1.DataSource.Dataset = QContacts ?
 
       // QContacts.Edit;
       // QContacts.FieldByName('Print').Value := 'X';
       // QContacts.Post;
        FDConnexion.ExecSQL('UPDATE tblContacts SET Print =:v WHERE ID=:i',['X',QContactsID.asInteger]); 
      end;
        <s>QContacts.Refresh;</s> // QContacts.Open();  mieux que refresh ? mais dans quel but faire un refresh puisque l'on ne voit pas la colonne print 
        QContacts.GotoBookmark(ABookmark); // ou QContacts.GotoKey(AKey); // ou QContacts.Locate('ID',AKey);
        QContacts.EnableControls;
    end;
<s>end;</s>
end;
 
// Simplification proposée 
procedure TMainForm.mnDeSelectionQSOClick(Sender: TObject); //Désélection enregistrement(s) c-à-d vidage de Print
begin
 FDConnexion.ExecSQL('UPDATE tblContacts SET Print = NULL'); // pas besoin de faire appel à une requête on fait en direct, on pourrait aussi le faire dans un QContacts.OnAfterClose 
 // il manque la déselection dans la grille
 DBGrid1.SelectedRows.Clear; 
end;

Citation:

J'ai donné aux contrôles Firedac les mêmes noms que les anciens contrôles Zeos pour ne pas avoir à tout corriger.

le refactoring fonctionne assez bien (click droit dans le code sur l'objet à renommer puis refactoring/renommer)

Bonjour SergioMaster,

Citation:

le premier test à effectuer serait de vérifier que ce sont les bons enregistrements qui sont "cochés".

Effectivement c'est l'idée que j'ai eu aussi hier soir. Je l'ai testée ce matin en mettant en commentaire la désélection en fin de processus. En rendant visible le champ Print ou en éditant la BDD dans SqliteStudio, c'est cohérent, les lignes marquées et éditées ne sont pas les lignes choisies au départ.

D'autre part dans votre proposition, la compilation s'arrête sur la ligne 22 : QContactsID inconnu.

Citation:

// pas besoin de faire appel à une requête on fait en direct, on pourrait aussi le faire dans un QContacts.OnAfterClose

Ligne 32 à 37, dans un cas comme dans l'autre il me faut faire une requête pour que cela fonctionne sinon l'instruction ExecSQL n'est pas reconnue, du moins si la compilation pouvait aller jusqu'au bout sans l'arrêt de la ligne 22 ci-dessus.

Dernière minute :
Il suffisait apparemment de simplifier le code comme proposé. Voici le code qui fonctionne :
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 procedure TMainForm.mnSelectionQSOClick(Sender: TObject); var i : integer; aBookmark : TBookmark; begin //if DBGrid1.SelectedRows.Count > 0 then begin with DBGrid1.DataSource.DataSet do begin for i := 0 to DBGrid1.SelectedRows.Count-1 do begin DBGrid1.DataSource.Dataset.GotoBookmark(DBGrid1.SelectedRows.Items[i]); ABookmark := Datas.QContacts.GetBookMark; Datas.QContacts.Edit; Datas.QContacts.FieldByName('Print').Value := 'X'; Datas.QContacts.Post; //Datas.QContacts.DisableControls; //Datas.QContacts.Refresh; //Datas.QContacts.GotoBookmark(ABookmark); //Datas.QContacts.EnableControls; end; end; end; end;
J'ai bien maintenant l'édition de la ou des lignes sélectionnées. Tout est valide.
Il n'empêche que ExecSQL ne fonctionne toujours pas en-dehors d'une requête.
Merci SergioMaster pour votre aide précieuse.
Bon WE. Cordialement

25/02/2023, 11h02
SergioMaster

Citation:

Envoyé par f5jcg_Lulu

D'autre part dans votre proposition, la compilation s'arrête sur la ligne 22 : QContactsID inconnu.

Logique, je ne connais pas le nom de la colonne servant de clé, j'aurais pu aussi écrire QContacts.FieldByName('ID').asInteger par flemme j'ai cru que les champs étaient déclarés
25/02/2023, 11h42
f5jcg_Lulu

Nos messages se sont croisés :D