ZQuery et Delete

**Louis Griffont** · 25/02/2010, 22h02

Bonjour,

Toujours avec mes TZeos.

J'ai ajouter un bouton afin de réaliser les Delete dans ma table.
Le code du bouton est

Code :

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

Mon_TZQuery.Delete;

Bref, c'est du complexe.

Mais voilà, si la ligne disparait bien du dbGrid, l'enregistrement, lui, il reste, et à l'ouverture suivante, il réapparait !

Qu'est-ce que j'ai loupé ?

**SergioMaster** · 26/02/2010, 07h44

Un petit commit peut-être ?

Plus sérieusement , qu'est il indiqué au niveau au niveau de ta TZConnection , propriété transactionIsolationlevel ? (par défaut c'est tiNone)

d'expérience je te dirais de mettre tiReadCommitted pour avoir un fonctionnement semblable au BDE (ce qui est l'objectif de ZEOS) . Je ne sais d'ailleurs pas pourquoi c'est initialisé à tinone .

je ne ferais pas de cours sur les transactionIsolationlevel (même si mon pseudo contient Master , cela fait longtemps que j'ai laissé tombé la casquette formateur) il y a quelques tutoriels et explications Firebird sur ce sujet.

**Louis Griffont** · 26/02/2010, 08h33

OK, merci Maître

Je vais regarder de ce coté.

Petite question, pourquoi ça marche en ajout et modif (insert et update) et pas en suppression (delete) ?

**SergioMaster** · 26/02/2010, 12h20

Ach , alors ce n'est pas ça le problème
il faut en faire voir d'avantage

**Louis Griffont** · 26/02/2010, 13h05

Après test, ce n'est effectivement pas ça le problème.
J'ai passé le TransactionIsolationLevel à tiReadComitted et le Delete n'a toujours aucun effet !

Qu'as-tu besoin de plus comme information ?

Après tests encore plus poussés, les update/insert ne fonctionnent pas !

Disons que c'est bizarre ! Je n'y comprend plus rien !

J'ai réussi à ajouter des éléments au démarrage, mais depuis, plus rien !
Je crois que les éléments ont ajouté avant que je passe par les composants ZEOS !

Invité · 26/02/2010, 14h20

Bonjour,

Je sais que je vais passer encore passer pour un vieux c.. et friser le "hors sujet" par rapport à votre problème, mais j'estime que le dbGrid -enfin ce que j'ai pu comprendre de son fonctionnement- doit être utilisé uniquement comme un composant exclusivement d'affichage (dont pas de saisie dedans). Les interceptions et chargements se font au niveau des dataSource et dataSet d'autant que je rappelle que Lazarus n'est vraiment pas net au niveau de l'UTF8 et qu'en plus il faut ajouter à la difficulté le propre encodage de la base (la présence d'un accent dans un mot peut bloquer la transaction de manière inopinée et sans aucun message du debugger de Lazarus : on a l'impression qu'il ne se passe rien et en effet la base n'est pas mise à jour... alors que le dbGrid ne signale rien... C'est normal, il n'est pas fait pour cela.)

De plus, je crois que vous utilisez du sqLite donc pas d'accès concurrentiel mais avec une saisie en dbGrid compte-tenu qu'il faut bloquer la base (euh l'enregistrement c'est mieux) puis effectuer son action (ce qui nécessite 2 requêtes), bonjour la méthode "dbGrid". Enfin, cela n'engage que moi, mais j'estime que le zUpdateSQL, la saisie directe en dbGrid sont des simplications très théoriques et une perte de temps réelle. Enfin, toujours méthode de vieux "c..", on gère les transactions et verrous par le code SQL et pas par la fonction implémentée pour le transactionnel dans Zeos.

Sinon, faut pas désespérer... en attendant qu'un illustre "connaisseur" nous montre comment on utilise ce "complexe" en situation de production sur au moins 2 bases [un code portable c'est mieux] gérant les accès concurrentiels... Par exemple, comment identifie-t-on "finement" avec les zUpdateSQL pourquoi une opération de delete ou d'update est interdite ou impossible (bloquée ou déjà effacée) ?

Cordialement. Gilles

**Louis Griffont** · 26/02/2010, 14h30

Bonjour,

Non, non, je suis assez d'accord pour éviter les saisies dans les dbGrid, mais là, c'est plus par curiosité et surtout parce que ce sont des tables de paramètres, alors je n'ai pas envie de trop coder. De plus, c'est un programme pour moi, et moi seul, alors...

Invité · 26/02/2010, 14h33

Ah OK... dans ce cas, c'est un bon sujet d'étude... si vous avez du temps !!!
Bonne fin de journée.

**Louis Griffont** · 26/02/2010, 14h35

Je ne suis pas pressé sur ce programme et j'ai surtout beaucoup de curiosité.

Invité · 26/02/2010, 14h47

Oui faut rester curieux. Sinon petite remarque pour ne pas rester sur une critique à propos de ces composants : utilisés à "l'ancienne", nous n'avons pas rencontré mieux en fiabilité, sécurité concurrentielle et même vitesse en exploitation que ces composants Zeos qui fonctionnent d'ailleurs aussi bien sous Win que Nux, en Delphi, en C++( builder ) et... en Lazarus. Bref, les "bases" de Zeos sont solides et finalement simples d'acquisition... Le reste de cette bibli est plus alambiqué en effet.

Cordialement. Gilles

**SergioMaster** · 26/02/2010, 18h38

Envoyé par Louis Griffont

Qu'as-tu besoin de plus comme information ?

Ben des morceaux de code , ce serait un bon début

[Edit] par curiosité je m'en suis refait un sans dbnavigateur

, ctrl+suppr faisant le delete fleche vers le bas validant un enregistement ajouté

ci-joint des images

**Louis Griffont** · 26/02/2010, 23h16

J'ai oublié ma clef USB !

A Lundi !

**Louis Griffont** · 01/03/2010, 09h50

Bon, alors le code de la fiche

Code :

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

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
56
57
58
59
60
61
62
63
64
65
66
67
68
unit utrt_force; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, sqlite3conn, sqldb, db, FileUtil, LResources, Forms,
  Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, DBGrids, Buttons, ZDataset,
  ZSqlUpdate;
 
type
 
  { TF_TrtForce }
 
  TF_TrtForce = class(TForm)
    Btn_Fermer: TBitBtn;
    btn_Suppr : TBitBtn ;
    ds_trtforce: TDatasource;
    db_trtforce: TDBGrid;
    Panel1: TPanel;
    Panel2: TPanel;
    Q_TrtForce: TZQuery;
    UdD_TrtForce: TZUpdateSQL;
    procedure btn_SupprClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
    bo_Debut  : Boolean;
 
  public
    { public declarations }
  end; 
 
var
  F_TrtForce: TF_TrtForce;
 
implementation
 
uses udm_crommonde;
 
{ TF_TrtForce }
 
procedure TF_TrtForce.FormCreate(Sender: TObject);
begin
   bo_Debut := True;
end;
 
procedure TF_TrtForce.FormActivate(Sender: TObject);
begin
   If bo_Debut Then
   Begin
      bo_Debut := False;
      Q_TrtForce.Active:=True;
   end;
end;
 
procedure TF_TrtForce.btn_SupprClick(Sender: TObject);
begin
   Q_TrtForce.Delete;
   Q_TrtForce.CommitUpdates;
end;
 
initialization
  {$I utrt_force.lrs}
 
end.

Pas grand chose à dire, n'est-ce pas ?
Les codes SQL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Le TZQuery, propriété SQL
SELECT * FROM T_TrtForce ORDER BY for_score,for_scoexcep
 
Le TZUpdateSQL
1) DeleteSQL : DELETE FROM T_TrtForce WHERE for_score=:for_score AND 
for_scoexcep=:for_scoexcep;
 
2) InsertSQL : INSERT INTO T_TrtForce 
(for_score,for_scoexcep,for_ajutoucher,for_ajudegats,for_poidsauto,
for_chargemax,for_enfoncer,for_enfoncermag,for_barreaux,for_notes) VALUES 
(:for_score, :for_scoexcep, :for_ajutoucher, :for_ajudegats, :for_poidsauto ,
:for_chargemax, :for_enfoncer, :for_enfoncermag, :for_barreaux, :for_notes);
 
3) UpDateSQL : UPDATE T_TrtForce SET for_ajutoucher=:for_ajutoucher, 
for_ajudegats=:for_ajudegats, for_poidsauto=:for_poidsauto, 
for_chargemax=:for_chargemax, for_enfoncer=:for_enfoncer, 
for_enfoncermag=:for_enfoncermag, for_barreaux=:for_barreaux, 
for_notes=:for_notes WHERE for_score=:for_score AND 
for_scoexcep=:for_scoexcep;

Rien dans le Refresh SQL !

La connexion à la base se trouve dans un DataModule, et n'a rien de spécial, cf la pièce jointe.

Voilà, s'il faut autre chose... Il suffit de demander !

**SergioMaster** · 02/03/2010, 08h15

je ne vois rien de particulier , en effet
sauf peut être le commitupdates me semblant de trop dans ce cas

Code :

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

1
2
3
4
5
6
 
procedure TF_TrtForce.btn_SupprClick(Sender: TObject);
begin
   Q_TrtForce.Delete;
//   Q_TrtForce.CommitUpdates;
end;

sauf , peut-être, que j'utilise le OLD_champ dans la clause where de la Query
je suggère ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Le TZUpdateSQL
1) DeleteSQL : DELETE FROM T_TrtForce WHERE for_score=:OLD_for_score AND 
for_scoexcep=:OLD_for_scoexcep;
 
 
3) UpDateSQL : UPDATE T_TrtForce SET for_ajutoucher=:for_ajutoucher, 
for_ajudegats=:for_ajudegats, for_poidsauto=:for_poidsauto, 
for_chargemax=:for_chargemax, for_enfoncer=:for_enfoncer, 
for_enfoncermag=:for_enfoncermag, for_barreaux=:for_barreaux, 
for_notes=:for_notes WHERE for_score=:OLD_for_score AND 
for_scoexcep=:OLD_for_scoexcep;

**Louis Griffont** · 02/03/2010, 08h46

Pour le OLD_Champ, pourquoi pas, mais ça n'explique pas pourquoi, même le insert ne fonctionne pas !

J'ai essayé en repassant sur les composants classiques de Lazarus, et rien n'y fait !

Je ne sais plus quoi faire ! Peut-être un problème avec SQLite !

**SergioMaster** · 02/03/2010, 10h37

c'est vrai que SQLLite , je connais pas , je t'aurais bien dirigé vers le site de Chris37 mais il l'a fermé .
Peut être que les paramètres s'écrivent différement avec SQLLite ? genre @ au lieu de :

**Louis Griffont** · 02/03/2010, 13h03

Je vais essayer autrement, on verra bien !
Merci en tout cas de ta patiente et de tes réponses.

A+ (très certainement !

)

**chris37** · 02/03/2010, 13h08

Je prend le train en route ! c'est un vrai roman votre truc les gars !

Mais non, le site est ouvert

http://lazarus-fr.espace-malin.fr/

c'est le domaine lazarus-fr.net qui n'existe plus

**Louis Griffont** · 02/03/2010, 13h34

J'ai regardé le tuto sur Zeos et Sqlite3, mais j'arrive bien jusqu'à la fin, c'est après que ça merdouille, et le tuto s'arrête sans expliquer le TZUpDateSQL !

**SergioMaster** · 02/03/2010, 16h07

oui , ca devient roman

@chris37 je croyais que tu avais fermé les deux .

Ceci dit , je me demande si ce n'est pas un Pb SQLite car avec Firebird ça passe sans problème . J'avoue mon incompétence avec cette base, je suis et je reste Firebird

peut être des réponses sur le forum des ZEOSDBO ?
[Edit] je ne lâche jamais

un petit tour sur le forum ZEOS et déjà une piste http://zeos.firmos.at/viewtopic.php?t=2586