D11 Firedac SQLite PK Autoincrement

Version imprimable

30/10/2023, 08h54
oneDev

D11 Firedac SQLite PK Autoincrement

Bonjour,

J'ai une application VCL faite avec Delphi 11 en utilisant Firedac avec une base de données SQLite.
J'ai une clé primaire autoincrement.

Pour ajouter un enregistrement j'utilise une fiche qui contient un TDatasetProvider/TClientDataset/TDatasource.

J'ai tous mes champs que je renseigne manuellement grace aux composants de la fiche.

Lorsque j'enregistre mes données, je fais un `cds1.ApplyUpate()`.
Les données sont bien enregistrées, en base, l'identifiant est correctement généré.
Par contre, le champ `cds1.FieldByName('id')` reste à null dans ma fiche.

Je dois passer par un `SELECT seq FROM sqlite_sequence WHERE name = "table_name"` pour connaitre l'id.

Est-ce qu'il y a une autre manière de faire pour récupérer automatique l'id ?
30/10/2023, 10h17
SergioMaster

Bonjour,

Je ne comprends pas le besoin d'un TDatasetProvider/TClientDataset/TDatasource, un simple TDataSource lié à la table FDTable ou la requête FDQuery devrait suffire, surtout que s'agissant de SQLite il s'agit de monoposte.

Tu pourrais fournir la forme pour que j'en comprenne le principe ?
S'il s'agit de la partie permettant de mettre les modifications en cache pour ensuite les appliquer ou non, Firedac propose l'utilisation de Cached Updates (chapitre 16 de Delphi in depth : Firedac ,
à partir de la minute 36 de https://www.youtube.com/watch?v=wS1A3v5_l98 , et exemples )
30/10/2023, 11h16
oneDev

Merci pour le lien. Je vais regarder et étudier cela.
J'ai effectivement beaucoup de choses à apprendre sur l'utilisation de Firedac.

Pour l'utilisation des composants, c'est ceux que j'ai l'habitude d'utiliser. Cela fonctionnerait effectivement peut-être avec une version plus simple.
Je n'ai pas le code avec moi aujourd'hui.
Je fournirai un exemple dès que j'aurai des tests.

Bonjour,

J'ai créé ce projet de test pour te montrer le fonctionnement de ma fenêtre.
Le projet sur lequel je travaille fait appelle à d'autres unités, c'est donc moins compréhensible.

La mise à jour des données dans la base s'effectue avec le bouton btnSaveClick.
Dans la base de données, l'id est bien renseigné, mais pas dans ma fiche.

Du coup, si juste après ajouter un enregistrement, j'essaie de le modifier, cela me crée une erreur.
Je suppose qu'il essaie d'insérer à nouveau mon 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
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
unit fMain;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.SQLite,
  FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, FireDAC.VCLUI.Wait,
  FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt,
  FireDAC.Phys.SQLiteWrapper.Stat, Data.DB, Vcl.ExtCtrls, Vcl.DBCtrls,
  Vcl.Grids, Vcl.DBGrids, Datasnap.DBClient, Datasnap.Provider,
  FireDAC.Comp.DataSet, FireDAC.Comp.Client, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    conn1: TFDConnection;
    qry1: TFDQuery;
    dsp1: TDataSetProvider;
    cds1: TClientDataSet;
    ds1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink;
    ListBox1: TListBox;
    btnSave: TButton;
    procedure btnSaveClick(Sender: TObject);
    procedure cds1AfterPost(DataSet: TDataSet);
    procedure cds1BeforeDelete(DataSet: TDataSet);
    procedure cds1BeforePost(DataSet: TDataSet);
    procedure ds1StateChange(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
  private
  public
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  ldir: string;
begin
  ldir := IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName));
  conn1.Params.Database := Format('%s..\..\db\chinook.db', [ldir]);
  conn1.LoginPrompt := False;
  try
    conn1.Open;
 
    qry1.SQL.Text := 'SELECT * FROM artists ORDER BY name;';
    qry1.Open;
 
    cds1.Open;
  except
    on e: Exception do
      MessageDlg(e.Message, TMsgDlgType.mtWarning, [TMsgDlgBtn.mbOK], 0);
  end;
end;
 
procedure TForm1.ds1StateChange(Sender: TObject);
var
  lstr: string;
begin
  if (ds1.State = dsBrowse) then
    lstr := 'Lecture'
  else if (ds1.State = dsEdit) then
    lstr := 'Modification'
  else if (ds1.State = dsInsert) then
    lstr := 'Ajout';
 
  ListBox1.Items.Add(Format('Etat : %s', [lstr]));
end;
 
procedure TForm1.cds1BeforePost(DataSet: TDataSet);
begin
  if (Trim(cds1.FieldByName('name').AsString) = '') then
  begin
    MessageDlg('Le nom doit être renseigné.', mtWarning, [mbOK], 0);
    Abort;
  end;
end;
 
procedure TForm1.cds1AfterPost(DataSet: TDataSet);
begin
  ListBox1.Items.Add('After post');
  ListBox1.Items.Add(Format('Update #%d', [cds1.FieldByName('artistid').AsInteger]));
end;
 
procedure TForm1.cds1BeforeDelete(DataSet: TDataSet);
var
  lstr: string;
  lvalid: Boolean;
begin
  lstr := Format('Voulez-vous supprimer "%s" ?',
                 [cds1.FieldByName('name').AsString]);
  lvalid := (MessageDlg(lstr, mtConfirmation, [mbYes, mbNo], 0) = mrYes);
 
  if (not lvalid) then
    Abort;
end;
 
procedure TForm1.btnSaveClick(Sender: TObject);
var
  lId: Integer;
  lqry: TFDQuery;
begin
  if (cds1.State in [dsInsert, dsEdit]) then
    cds1.Post;
 
  if (cds1.ApplyUpdates(-1) > 0) then
    ListBox1.Items.Add('Erreur d''enregistrement.');
 
  ListBox1.Items.Add('Save');
  lId := cds1.FieldByName('artistid').AsInteger;
  if (cds1.FieldByName('artistid').OldValue = Null) then
  begin
    ListBox1.Items.Add(Format('Insert #%d', [lId]));
 
    lqry := TFDQuery.Create(Self);
    lqry.Connection := conn1;
    try
      lqry.Open('SELECT seq FROM sqlite_sequence WHERE name = ''artists'';');
      if not lqry.Eof then
        ListBox1.Items.Add(Format('Select id #%d', [lqry.Fields[0].AsInteger]));
    finally
      lqry.Free;
    end;
  end
  else
    ListBox1.Items.Add(Format('Update #%d', [lId]));
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if (cds1.State in [dsInsert, dsEdit]) then
    CanClose := MessageDlg('Données modifier. Souhaitez-vous continuer ?',
                           mtConfirmation, [mbYes, mbNo], 0) = mrYes;
 
  if CanClose then
  begin
    cds1.Close;
    qry1.Close;
    conn1.Close;
  end;
end;
 
end.

01/11/2023, 09h51
oneDev
Je suppose que je peux mettre à jour l'id de cette façon.
Code:

1 2 3 cds1.LogChanges := False; cds1.FieldByName('artistid').AsInteger := lqry.Fields[0].AsInteger; cds1.LogChanges := True;
Est-ce qu'il n'y a pas un moyen que cela se fasse de manière automatique ?
01/11/2023, 11h13
SergioMaster

Je ne comprends toujours pas l'utilisation du clientdataset
02/11/2023, 08h50
oneDev

Citation:

Envoyé par SergioMaster

Je ne comprends toujours pas l'utilisation du clientdataset

Cela changerait quelque chose que je n'utilise pas de TClientDataset ?

3 pièce(s) jointe(s)

AMHA, une grosse simplification.

Voici un exemple simple VCL
Pièce jointe 646053

je clique sur le '+'

Pièce jointe 646056
le numéro est -1 :-o et en haut de la grille

une fois validé
Pièce jointe 646055
le numéro autoinc est bien affiché (et la grille en ordre)

p.s. Ne serait-ce du code autre, pour initialisation et formatage de dates, cette application est no-code
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 uses System.DateUtils; procedure TForm16.FDTable1BeforePost(DataSet: TDataSet); begin FDTable1Date_Exit.AsInteger:=DateTimeToUnix(Now); // datetime en date unix end; procedure TForm16.FDTable1Date_exitGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin // affichage date unix (integer) en mm-dd-yy if Sender.IsNull then text:='n.d.' else Text:=FormatDateTime('mm-dd-yyyy',UnixToDateTime(Sender.Value)); end; procedure TForm16.FDTable1NewRecord(DataSet: TDataSet); begin FDTable1guid.AsGuid:=TGuid.NewGuid; // un guid FDTable1Date_create.AsDateTime:=Now; // date création end; procedure TForm16.FormCreate(Sender: TObject); begin fdtable1.Open(); end;

03/11/2023, 12h39
oneDev

J'ai vérifié les différentes fenêtres utilisées dans mon application. Effectivement un TDatasource suffit.
Cela fonctionne alors normalement.

Par contre, sur des fonctionnements plus complexes, il faudrait alors utiliser des primary key qui ne sont pas en autoincrement.

Je te remercie.

Citation:

Envoyé par oneDev

Par contre, sur des fonctionnements plus complexes, il faudrait alors utiliser des primary key qui ne sont pas en autoincrement.

Je ne comprends pas vraiment la phrase. Si ce ne sont pas des auto-incréments, c'est donc que les champs seraient saisis où obtenu via un code quelconque.
Le onNewRecord ou onBeforePost serait un endroit idéal pour ça.

J'ai désormais pour habitude de toujours mettre une colonne auto-incrément en clé primaire comme identifiant technique, même pour une clé, c'est une habitude recommandée à prendre

en exemple (Firebird): ce qui était
Code:

1 2 3 4 5 6 CREATE TABLE ACHEMINEMENT ( CODE CHAR(1) NOT NULL, LIBELLE VARCHAR(20), CONSTRAINT CLE1_ACHEMINEMENT PRIMARY KEY (CODE) );
a migré en
Code:

1 2 3 4 5 6 7 8 CREATE TABLE ACHEMINEMENT ( ID BIGINT GENERATED BY DEFAULT AS IDENTITY (START WITH 1) NOT NULL, CODE CHAR(1) NOT NULL, LIBELLE VARCHAR(20), CONSTRAINT PK_ACHEMINEMENT PRIMARY KEY (ID), CONSTRAINT UNQ_ACHEMINEMENT UNIQUE (CODE) );

06/11/2023, 09h05
oneDev

Citation:

Envoyé par SergioMaster

Je ne comprends pas vraiment la phrase. Si ce ne sont pas des auto-incréments, c'est donc que les champs seraient saisis où obtenu via un code quelconque.
Le onNewRecord ou onBeforePost serait un endroit idéal pour ça.

J'ai désormais pour habitude de toujours mettre une colonne auto-incrément en clé primaire comme identifiant technique, même pour une clé, c'est une habitude recommandée à prendre

Je préfère également les autoincrement.
Dans mon cas, j'ai simplifié mon code et du coup cela fonctionne.

Par contre, pour les cas où j'ai besoin d'utiliser un DataSetProvider et un ClientDataset, cela ne fonctionne pas correctement avec un autoincrement.