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
Partager