Discussion :

[bastion]

Bonjour tout le monde;
je travail avec D7, sgbd Paradox, (XDBGRID component v6)
Voilà avec cette procédure je devrai normalement selectionner plusieur champs a la fois de Table1 pour les inserer à Table2
mon probleme c'est que si je selectionne autant de champs à la fois et j'insere ca prend que le dernier enregistrement mais plutot
si je fais un par un tout fonctionne donc que manque t'il dans cette procédure

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
procedure XDBGRIDFORM1.Button1Click(Sender: TObject);
var i:integer;
 
begin
 table1.open;
 table2.open;
 
                 with Table1 do
                 begin
                table2.insert;
 
                for i:=0 to fieldcount-1 do
                if table2.findfield(fields[i].fieldname)<>nil then
                table2.fieldvalues[fields[i].fieldname]:=fieldvalues[fields[i].fieldname];
 
                table2.fieldbyname('Nummdt').AsString:=e1.text;
                table2.fieldbyname('Annee').AsString:=cb1.text;
                table2.fieldbyname('Mois').AsString:=cb2.text;
                table2.fieldbyname('Motifmdt').AsString:=e2.text;
                table2.post;
                end;
                  end;
                    end.

[SergioMaster]

Bonjour,

il manque un Next sur table1 juste après le Table2.post
et peut être aussi un While not EOF do

Code :

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

1
2
3
4
5
6
7
8
9
10
11
with Table1 do
begin
  Open;
  while not EOF do
   begin
     Table2.insert;
     ...
     Table2.Post;
     Next;
   end;
end;

mais il y a quand même des méthodes plus efficaces que ce code !
ce SQL devrait fonctionner avec Paradox je pense

Code sql :

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

INSERT INTO TABLE2(<Champs>) SELECT <Champs> From Table1

[bastion]

Bonjour,

il manque un Next sur table1 juste après le Table2.post
et peut être aussi un While not EOF do

Code :

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

1
2
3
4
5
6
7
8
9
10
11
with Table1 do
begin
  Open;
  while not EOF do
   begin
     Table2.insert;
     ...
     Table2.Post;
     Next;
   end;
end;

mais il y a quand même des méthodes plus efficaces que ce code !
ce SQL devrait fonctionner avec Paradox je pense

Code :

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

INSERT INTO TABLE2(<Champs>) SELECT <Champs> From Table1

ça donne toujour le meme résultat

[SergioMaster]

Bonjour,
au lieu de me citer en intégralité et répondre

ça donne toujours le même résultat

vous auriez mieux fait de poster votre code !
Avez vous songé au SQL proposé : une seule query paramétrée peut faire toute la partie copie d'enregistrement de votre code pour peu que cette dernière soit bien construite