Discussion :

[the watcher]

La mise en place de ce code sql me permet de mettre à jour mes données dans une application. Mais cette fois-ci, il me génère des erreurs lors de la validation.

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
procedure TFrmModifAdherent.BitBtn2Click(Sender: TObject);
var
  s : string;
  rep : integer;
begin
// Question avant validation
    rep:=MessageBox(Handle,'Êtes-vous sûr de voir modifier cet Adhérent ?',
    'Confirmation', MB_OKCANCEL or MB_ICONQUESTION);
    If (rep = IDOK) then
// Code pour enclencher la validation de modification
// Requête de modification
 
    s:='UPDATE ADHERENTS SET NOM='''+EditNom.text+
        ''', PRENOMS = '''+EditPrenoms.text+
        ''', DTNAISS = '''+DateEdit1.Text+
        ''', LIEUNAISS = '''+Edit4.Text+ '''WHERE CODE_AP = :CODE_AP';
 
    if DataModule1.IBQAdherent.Active then DataModule1.IBQAdherent.Active:=False;
       DataModule1.IBQAdherent.SQL.Clear;
       DataModule1.IBQAdherent.SQL.Add(s);
       DataModule1.IBQAdherent.Params[0].AsString:=Label21.Caption;
       DataModule1.IBQAdherent.ExecSQL;
       DataModule1.IBTableAdherent.Refresh;
end;

Voici l'erreur :



Ya t-il un autre composant à la place du composant DateEdit afin de permettre d'enregistrer la date ?

[SergioMaster]

Normal , toujours préférer le passage de paramètres surtout pour les dates
sinon sous la bonne forme (soit mm/jj/aaaa soit jj.mm.aaaa)

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
 
  s:='UPDATE ADHERENTS SET NOM=:N'+
        ', PRENOMS =:P'+
        ', DTNAISS = :D'+
        ', LIEUNAISS =:L  WHERE CODE_AP = :CODE_AP';
 
    if DataModule1.IBQAdherent.Active then DataModule1.IBQAdherent.Active:=False;
 // inutile       DataModule1.IBQAdherent.SQL.Clear;
// si utilisation de Text au lieu et place de Add
       DataModule1.IBQAdherent.SQL.Text:=s;
DataModule1.IBQAdherent.ParamByName('N').AsString:=EditNom.text;
DataModule1.IBQAdherent.ParamByName('P').AsString:=EditPreNoms.text;
DataModule1.IBQAdherent.ParamByName('D').AsString:=DateEdit1.Date; // en supposant que dateEdit1 renvoye cette valeur ?
DataModule1.IBQAdherent.ParamByName('L').AsString:=Edit4.Text;
DataModule1.IBQAdherent.ParamByName('CODE_AP').AsString:=Label21.Caption;
       DataModule1.IBQAdherent.ExecSQL;
 
      DataModule1.IBTableAdherent.Refresh;

PS . Les paramètres ne sont pas là que pour les clauses Where

[philnext]

Mouai... je n'ai jamais trouvé cette notion de paramètre super intéressante.

Dans le cas qui est posé ici j'ai surtout l'impression que ''15/12/1999" n'est pas le format attendu par ta base de données : soit les quotes sont en trop soit l'ordre est incorrect soit les '/' ne sont pas attendues soit....

Un conseil : gère l'exception déclenchée en stockant dans un fichier la requête qui a déclenché une erreur puis soumet cette requête dans le soft d'interface de ta BDD : tu verras alors d'où vient l'erreur.