Discussion :

[developpeur_mehdi]

voila
peut on copier la totalité des champs d'un enregistrement directement dans les champs d'une 2eme tables de même structure
Merci d'avance

[king]

slu,

ceci devrait marché

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
 
 
Table1.Open;
Table2.Open;
 
// tu te positionne sur l'enregistrement souhaité dans la table1
 
Table2.Append;
 
Table2.Fields[0].As...:=Table1.Fields[0].As..;
.....
Table2.Fields[n].As...:=Table1.Fields[n].As..;
 
Table2.Post;
 
Table1.Close;
Table2.Close;

A+.

[developpeur_mehdi]

Merci je débute donc j'ai pas trés bien saisi le code pourriez vous m'expliquer S'il vous plait

[bNoureddine]

voila
peut on copier la totalité des champs d'un enregistrement directement dans les champs d'une 2eme tables de même structure
Merci d'avance

Table1.Open;
Table2.Open;
Table1.First;
Table2.First;
while not Table1.Eof do
begin
table2.Insert;
Table2Champ1.value := Table1Champ1.Value;
....
.....
Table2.Post;
Table1.Next;
end;

[king]

slu,
pour l'explication :

on ouvre les 2 tables

Code :

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

1
2
Table1.Open; 
Table2.Open;

on se place au debut des 2 tables

Code :

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

1
2
Table1.First; 
Table2.First;

on parcous tous les enrgistrement de la table Table1

Code :

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

while not Table1.Eof do

on insert dans la table table2 tous les enregistrement rencontré dans la table Table1

Code :

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

1
2
3
4
5
table2.Insert; 
Table2Champ1.value := Table1Champ1.Value; 
.... 
..... 
Table2.Post;

A+.

[developpeur_mehdi]

Merci