Discussion :

[Isidore007]

Bonjour à vous!

Svp quelqu'un pourrait t-il m’éclairer sur mon code afin de savoir d’où vient l'erreur. Lorsque je compile et que j'enregistre des données ce message apparait : ADQLibre: paramètres 'codBois' non trouvés. Ci joint le code

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
with DM.ADQLibre do
    begin
     // try
        close;
        SQL.Clear;
        SQL.Add('INSERT INTO boisson(libBois) values(:libBois)');
        Parameters.ParamByName('libBois').Value:=EdNomBois.Text;
        Prepared:=True;
        ExecSQL;
        //Ajout dans cotification
        close;
        SQL.Clear;
        SQL.Add('INSERT INTO cotification(codBois,codCond,prix) values(:codBois, :codCond, :prix)');
        Parameters.ParamByName('codBois').Value:=IntToStr(Maximum('boisson','codBois'));
        Parameters.ParamByName('codCond').Value:=DBLCBCond.KeyValue;
        Parameters.ParamByName('prix').Value:=EdPrixBois.Text;
        Prepared:=True;
        ExecSQL;
        ShowMessage('Nouveau Conditionnement ajoute avec succes!!');
      //Except
        ShowMessage('Echec d''enregistrement');
      //end;
 
    end;

Grand merci à ceux qui voudront m'aider!

[SergioMaster]

Bonsoir,
A mon avis il manque un Unprepare à la place du close (qui ne sert pas d'ailleurs)

[Papy214]

Est-ce que la propriété ParamCheck du TADOQuery est bien à True ?

[MIWAN]

execute avec ce petit code et voir si ça marche

Code :

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

1
2
3
4
 
    Parameters[0].value:=Editcodbois.text;  // [0]----> codBois
    Parameters[1].value:=.......................;// [1]----> codCond
    Parameters[2].value:=.......................;// [2]----> prix