Discussion :

[seydel]

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

[ShaiLeTroll]

Query1 = TQuery ? BDE ?
IBQuery1 = TIBQuery = InterBase Express ?

A lire comme ça, ton code fait une copie de IB vers PARADOX !?
Dans ce sens ? c'est bizarre !

Si c'est la même DB
un simple SQL :

Code sql :

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

INSERT INTO Cible (CNUMPOL,ANUMAVE,ADATEMI,ADATEFF) SELECT CNUMPOL,ANUMAVE,ADATEMI,ADATEFF,...FROM AVENANT...

Cela se fait d'un coup ! Cela fonctionne sur Sybase et MySQL

Dans les deux cas, soit INSERT SELECT ou boucle INSERT, ton paramètre ADATEMI est en double, cela peut poser des problèmes mais dans ton cas c'est juste totalement faux

Code :

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

1
2
IBQuery1.ParamByName('ADATEMI_Deb').AsDate:=StrToDate(MaskEdit1.text);
IBQuery1.ParamByName('ADATEMI_Fin').AsDate:=StrToDate(MaskEdit2.text);

...

Code sql :

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

AND ADATEMI>=:ADATEMI_Deb and ADATEMI<=:ADATEMI_Fin

ou

Code sql :

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

AND ADATEMI BETWEEN :ADATEMI_Deb and :ADATEMI_Fin

[cantador]

Bonjour,

malgré les and, j'ai un doute sur les parenthèses avec certains SGBD :

Code :

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

1
2
3
4
 
WHERE  (ABRANCH=100)
AND (AMONTPM>0) 
AND (ADATEMI>=:ADATEMI) AND  (ADATEMI<=:ADATEMI)

la solution de ShaiLeTroll est bien meilleure