Discussion :

[gegila]

Bonjour à tous

Je galère depuis plusieurs jours pour faire l'épuration d'une table dans une base Sqlite

Je crée dans mon DataModule un TDFQuery relié au datasource de ma table à épurer.
j'y implémente cette requête :

Code sql :

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

DELETE FROM DetailsCpt WHERE DateEnregistre < :DateEpur AND IdCpt = :IdxCpt

Je crée cette Procedure :

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
if (DateEpur <> 01 / 01 / 1900) and (IdxCpt > 0) then
  begin
 
    try
 
      DataModule2.FDQueryEpure.ParamByName('DateEpur').AsDateTime := DateEpur;
      DataModule2.FDQueryEpure.ParamByName('IdxCpt').AsDateTime := IdxCpt;
 
     if Not DataModule2.FDQueryEpure.Active then
        DataModule2.FDQueryEpure.Active := True;
 
      DataModule2.FDQueryEpure.ExecSQL;
    except
        ShowMessage('Epuration Impossible');
    end;
 
  end
  else
    Exit

Voici le message d'erreur que j'obtiens :



Merci pour votre Aide