je veux copier les donnees d'une table d'une base vers une deuxieme table
merci pour votre aide
le programme
...........................
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
25
26
27
28
29
30
procedure TForm1.Button1Click(Sender: TObject);
begin
if IBTransaction1.Active then
IBTransaction1.Commit;
IBTransaction1.StartTransaction;
IBQuery1.ParamByName('ADATEMI').AsDate:=StrToDate(MaskEdit1.text);
IBQuery1.ParamByName('ADATEMI').AsDate:=StrToDate(MaskEdit2.text);
IBQuery1.Open;
IBQuery1.First;
 while not IBQuery1.Eof do begin
Query1.ParamByName('CNUMPOL').AsString:=IBQuery1.Fields[0].AsString;
Query1.ParamByName('ANUMAVE').AsFloat:=IBQuery1.Fields[1].AsFloat;
Query1.ParamByName('ADATEMI').AsDate:=IBQuery1.Fields[2].AsDateTime;
Query1.ParamByName('ADATEFF').AsDate:=IBQuery1.Fields[3].AsDateTime;
Query1.ParamByName('ADATEXP').AsDate:=IBQuery1.Fields[4].AsDateTime;
Query1.ParamByName('AMONTPM').AsFloat:=IBQuery1.Fields[5].AsFloat;
Query1.ParamByName('AACCESS').AsFloat:=IBQuery1.Fields[6].AsFloat;
Query1.ParamByName('APTAXES').AsFloat:=IBQuery1.Fields[7].AsFloat;
Query1.ParamByName('APTOTAL').AsFloat:=IBQuery1.Fields[8].AsFloat;
Query1.ParamByName('ANUMATR').AsString:=IBQuery1.Fields[9].AsString;
Query1.ExecSQL;
 
IBQuery1.Next;
ProgressBar1.StepIt;
end;
IBTransaction1.Commit;
showmessage('Terminé');
end;
 
end.
..........................................
le code sql
.......................................
Code sql : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
SELECT CNUMPOL,ANUMAVE,ADATEMI,ADATEFF,ADATEXP,
AMONTPM,AACCESS,APTAXES,APTOTAL,ACODAGE
FROM AVENANT
WHERE  ABRANCH=100
AND AMONTPM>0 
AND ADATEMI>=:ADATEMI and  ADATEMI<=:ADATEMI
order by acodage


la copie doit se faire entre les deux date choisie au hasard
le programme s'execute mais ne respecte pas les dates ca deborde...je comprends pas. merci