Discussion :

[jakouz]

un DataSet1 récupère un ensemble de données d'une base via une requete SQL de type "select ... from ..."
peut on copier l'ensemble des enregistrements de DataSet1 dans un autre DataSet2 ? (pour éviter d'exécuter une 2ème fois la même requete de sélection)

[Manopower]

Il reste toujours la possibilité de faire une boucle bête et méchante sur DataSet1 et insérer dans Dataset2

[jakouz]

c'est à dire ? tu peux etre plus précis svp

[Manopower]

si tes 2 datasets sont identiques (même champs) tu peux écrire ça :

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
Procedure CopyDataSet(DSSource : TDataset, DSCible : TDataset);
var
  i : Integer;
begin
  DSSource.active:=true;
  DSCible.active:=true;
  DSSource.first;
 
//Attention : s'assurer que DSCible est bien VIDE avant
 
  While not DSSource.eof do
  begin
    //ici deux méthodes : soit les datasets sont différents alors
    //On écrit champ par champ, sinon on peut boucler
    DSCible.insert;
    for i:=0 to DSSource.fieldcount -1 do
      DSCible.fields[i].value :=   DSSource.fields[i].value;
 
     DSCible.post;
 
     DSSource.next; //On passe à l'enregistrement suivant
  end;
 
  DSSource.active:=false;
  DSCible.active:=False;
 
end;

[jakouz]

merci beaucoup pour le code