Erreur dans une requête paramétrée

Version imprimable

Bonjour à toutes et à tous.
Ma configuration : Windows 10; Lazarus 2.0.6 sur FPC 3.0.4
Le programme sert à manipuler des normes NF, EN et ISO.
Un DataModule est créé dans le fichier programme par :

Code:

Application.CreateForm(TModuleDonnees, ModuleDonnees);

Ce DataModule est composé d'un TPQConnection et d'un TSQLTransaction qui sont initialisés grâce à cette procedure :
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TModuleDonnees.DataModuleCreate(Sender: TObject); begin ConnexionPQ.DatabaseName := 'aaaaaaa'; ConnexionPQ.UserName := 'postgres'; ConnexionPQ.HostName := 'localhost'; ConnexionPQ.Password := 'xxxxxxx'; //ConnexionPQ.Connected := true; Automatique lors d'un SQLQuery.Open ConnexionPQ.Transaction := TransactionSQL; TransactionSQL.DataBase := ConnexionPQ; //TransactionSQL.Active := true; Automatique lors d'un SQLQuery.Open end;
Jusque là tout fonctionne dans l'utilisation de ce module de données par d'autres fiches. Une nouvelle fiche sert à modifier le répertoire de sauvegarde des normes. Sur cette fiche sont déposés un TDBText, qui rappelle le répertoire actuel de sauvegarde à partir d'une requête dans la base de données (cela fonctionne), un TEdit où l'utilisateur précise le nouveau répertoire de sauvegarde et un TButton qui valide le changement et ferme la fiche. Voici le code de ce bouton sans le contrôle de la non nullité du TEdit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 RN := TSQLQuery.Create(nil); SN := TDataSource.Create(nil); RN.Database := ModuleDonnees.ConnexionPQ; SN.DataSet := RN; RN.UpdateSQL.Text := 'UPDATE s_ent.t_e_norme_nor SET nor_repertoire=:REP;'; RN.Params.ParamByName('REP').AsString := ENouveauRepertoire.Text; SN.Enabled := true; RN.Active := true; RN.ExecSQL; ModuleDonnees.TransactionSQL.Commit; RN.Close; ModuleDonnees.TransactionSQL.Active := false; ModuleDonnees.ConnexionPQ.Connected := false; Close;
La compilation s'effectue sans sourciller mais à l'utilisation l'erreur suivante surgit :

Citation:

Le projet Normes a levé une classe d'exception 'EDatabaseError' avec le message :
Parameter "REP" not found.

Erreur qui apparaît aussi en lançant le programme par Normes.exe.
Votre aide est donc sollicitée pour résoudre ce problème et je vous remercie à l'avance de me dépanner.
Michel.

31/07/2020, 20h49
tourlourou

Bonsoir,
Que vaut RN.Params.Count (ou équivalent) ?
Et RN.Params[0].AsString := ENouveauRepertoire.Text; fonctionne-t-il ?
01/08/2020, 18h28
Miflon

Merci pour l'intérêt que tu portes à mon problème.

Citation:

Que vaut RN.Params.Count (ou équivalent) ?

Il vaut 0 révélé par un ShowMessage après RN.UpdateSQL.Text :=

Citation:

RN.Params[0].AsString := ENouveauRepertoire.Text; fonctionne-t-il ?

Cela soulève une erreur : List index(0) out of bounds
Je vais essayer de ne plus créer SQLQuery par programmation mais en déposant le composant dans la fiche et je rends compte.
Merci encore pour ton aide.
Michel.
01/08/2020, 18h51
tourlourou

Voici une piste qui a l'air solide : https://forum.lazarus.freepascal.org...?topic=17725.0.
03/08/2020, 05h32
Miflon

Bonjour.
Je suis en train de suivre cette piste qui me montre que je n'ai rien compris aux TdataSet et TSQLQuery! Mais je m'accroche.
Michel.

Bonjour.
Maintenant cela fonctionne. Voici les modifications apportées, certaines sans conséquence et d'autres plus fondamentales.
Sur la fiche, dépose d'un DBEdit (DBEReprtoire) et d'un bouton de sauvegarde/quitter (BtnSauvegarderQuitter).
Procedure de création de la fiche :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure TFicheChangerRepertoire.FormCreate(Sender: TObject); begin RR := TSQLQuery.Create(nil); SR := TDataSource.Create(nil); RR.Database := ModuleDonnees.ConnexionPQ; SR.DataSet := RR; RR.SQL.Text := 'SELECT nor_repertoire FROM s_ent.t_e_norme_nor;'; RR.DataBase := ModuleDonnees.ConnexionPQ; RR.Active := true; SR.Enabled := true; DBERepertoire.DataSource := SR; DBERepertoire.DataField := 'nor_repertoire'; AncienRepertoire := DBERepertoire.Field.Text; end;
Procedure de l'évènement d'action sur le bouton :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure TFicheChangerRepertoire.BtnSauvegarderQuitterClick(Sender: TObject); begin RR.SQL.Text := 'UPDATE s_ent.t_e_norme_nor SET nor_repertoire = :REP;'; RR.Params.ParamByName('REP').AsString := DBERepertoire.Field.Text; try RR.ExecSQL; ModuleDonnees.TransactionSQL.Commit; ShowMessage('Succès de la mise à jour'); except on e: Exception do ShowMessage(e.Message); end; RR.Close; ModuleDonnees.TransactionSQL.Active := false; ModuleDonnees.ConnexionPQ.Connected := false; Close; end;
J'ai utilisé le même composant TSQLQuery dans les deux procédures et c'est ce qui a tout changé. Ce que j'en déduis, c'est que le DataSet doit être ouvert par un "SELECT" avant d'utiliser un ExecSQL. Me trompe-je?
Il ne me reste qu'à lancer cette requête :

Code:

ALTER TABLE s_ent.t_e_norme_nor ALTER COLUMN nor_repertoire SET DEFAULT DBERepertoire.Field.Text;

pour modifier la valeur par défaut de "nor_repertoire" et éviter de la taper lors d'une insertion de nouvelle norme.
Michel.

Pas trop difficile cette fois-ci. Voici le code de l'unité :

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
unit Unite_NouveauRepertoire;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, DBCtrls, StdCtrls,
  DBGrids, sqldb, db, IniFiles;
 
type
 
  { TFicheChangerRepertoire }
 
  TFicheChangerRepertoire = class(TForm)
    BtnSauvegarderQuitter: TButton;
    DBERepertoire: TDBEdit;
    DBTAncienRepertoire: TDBText;
    LAncienRepertoire: TLabel;
    LRepertoireActuel: TLabel;
    procedure BtnSauvegarderQuitterClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
 
  public
 
  end;
 
  const
  C_Position = 'Position';
  C_Largeur = 'Largeur';
 
var
  FicheChangerRepertoire: TFicheChangerRepertoire;
  INI: TINIFile;
  LargeurFiche: integer;
  RR, RN : TSQLQuery;
  SR, SN : TDataSource;
  AncienRepertoire, NouveauRepertoire : string;
 
implementation
 
{$R *.lfm}
 
uses Unite_ModuleDonnees;
 
{ TFicheChangerRepertoire }
 
procedure TFicheChangerRepertoire.FormCreate(Sender: TObject);
begin
  INI  :=  TINIFile.Create('Normes.ini');
  try
    LargeurFiche := INI.ReadInteger(C_Largeur, 'LargeurFicheChangerRepertoire', 440);
  finally
    INI.Free;
  end;
  FicheChangerRepertoire.Left:= round((Screen.Width - LargeurFiche)/2);
  FicheChangerRepertoire.Height := 206;
  FicheChangerRepertoire.Width := LargeurFiche;
  RR := TSQLQuery.Create(nil);
  SR := TDataSource.Create(nil);
  RR.Database := ModuleDonnees.ConnexionPQ;
  SR.DataSet := RR;
  RR.SQL.Text := 'SELECT nor_repertoire FROM s_ent.t_e_norme_nor;';
  RR.DataBase := ModuleDonnees.ConnexionPQ;
  RR.Active := true;
  SR.Enabled := true;
  DBTAncienRepertoire.DataSource := SR;
  DBTAncienRepertoire.DataField := 'nor_repertoire';
  DBERepertoire.DataSource := SR;
  DBERepertoire.DataField := 'nor_repertoire';
  AncienRepertoire := DBERepertoire.Field.Text;
end;
 
procedure TFicheChangerRepertoire.BtnSauvegarderQuitterClick(Sender: TObject);
begin
  if (DBERepertoire.Field.Text = '') then
     begin
       ShowMessage('Renseigner préalablement le nouveau répertoire');
       Exit;
     end;
  if DBERepertoire.Field.Text = AncienRepertoire then
     begin
       ShowMessage('Rien ne change');
       Exit;
     end;
  NouveauRepertoire := DBERepertoire.Field.Text;
  RR.SQL.Text := 'UPDATE s_ent.t_e_norme_nor SET nor_repertoire = :REP;';
  RR.Params.ParamByName('REP').AsString := DBERepertoire.Field.Text;
  try
    RR.ExecSQL;
    ModuleDonnees.TransactionSQL.Commit;
    ShowMessage('Changement du répertoire de stockage des normes effectué');
  except on e: Exception do
    ShowMessage(e.Message);
  end;
  RR.SQL.Text := 'ALTER TABLE s_ent.t_e_norme_nor ALTER COLUMN nor_repertoire SET DEFAULT :DEFAUT;';
  RR.Params.ParamByName('DEFAUT').AsString := NouveauRepertoire;
  try
    RR.ExecSQL;
    ModuleDonnees.TransactionSQL.Commit;
    ShowMessage('Mise à jour du répertoire par défaut effectuée');
  except on e: Exception do
    ShowMessage(e.Message);
  end;
  RR.Close;
  ModuleDonnees.TransactionSQL.Active := false;
  ModuleDonnees.ConnexionPQ.Connected := false;
  Close;
end;
 
end.

Merci à Tourlourou pour son aide.