Dataset ADOQuery in ein Clientdataset kopieren

[SusiT]

Hallo die Damen und Herren,

mich beschäftigt seit geraumer Zeit ein triviales Problem wie ich vermute.
Ich habe eine ADOQuery, gefüllt mit Daten und möchte diese an ein Clientdataset übergeben.
Dies gelingt aus nicht nachvollziebaren Gründen nicht.

Eine Variante wäre Folgende:

Delphi-Quellcode:

procedure TDataContainer.fillupdataset;
var
  i     : Integer;
  s     : String;

  TempProvider : TDataSetProvider;
  ClientDataSet1 : TClientDataSet;
begin
  
  ClientDataSet1 := TClientDataSet.Create(nil);
  TempProvider := TDataSetProvider.Create(nil);
  
  TempProvider.DataSet := fDataContainerDbThread.ADOQuery;

  i := TempProvider.DataSet.RecordCount; // ist in Ordnung, i ist größer 0
  
  ClientDataSet1.Data := TempProvider.Data;

  i := ClientDataSet1.RecordCount; // hier ist in i immer 0. Die Übergabe klappt nicht

  TempProvider.Free;

end;

Habe schon eine ganze Menge verschiedene Variante probiert aber es klappt nicht.

Was ist der einfachste Weg, Daten in ein CDS zu duplizieren?

Auch wenn ich das CDS mit einem Provider verknüpfe gibt es nicht den gewünschten Erfolg.

Zusatzfrage:
Alle Komponenten werden in Runtime Created. Welchen Owner kann man hier angeben. Dieser Sollte vom Typ TComponent sein, aber TComponent habe ich nicht, da es keine Formularanwendung ist

Viele Grüße und vielen Dank

[Papaschlumpf73]

Moin, ich mache das mit dieser proc. TDM ist einfach nur mein DataModule

Delphi-Quellcode:

procedure TDM.CopyDataSetToCDS(Source: TDataSet; Dest: TClientDataSet; CloseSource: boolean);
var dsProvider: TDataSetProvider;
begin
{GetText in der Source funktioniert nicht}
{Filter in der Source funktioniert}
dsProvider:=TDataSetProvider.Create(nil);
try
 dsProvider.DataSet:=Source;
 Dest.SetProvider(dsProvider);
 Dest.Open;
finally FreeAndNil(dsProvider); end;
if CloseSource then Source.Close;
end;

[SusiT]

Besten Dank für dein Feedback.
Ich habe eine kleine Demo gemacht und bekomme die gleichen Probleme wie vorher

Delphi-Quellcode:

unit DM;

interface

uses
  System.SysUtils, System.Classes, Datasnap.Provider, Data.DB, Datasnap.DBClient;

type
  TDataModule1 = class(TDataModule)
    cds1: TClientDataSet;

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure testemal(ds : TDataSet);
    procedure CopyDataSetToCDS(Source: TDataSet; Dest: TClientDataSet; CloseSource: boolean);
  end;

var
  DataModule1: TDataModule1;

implementation

{%CLASSGROUP 'System.Classes.TPersistent'}

{$R *.dfm}

procedure TDataModule1.testemal(ds : TDataSet);
var
  a : Integer;
begin

  a := ds.RecordCount;
  // in a steht 17, das ist auch korrekt

  DataModule1.CopyDataSetToCDS(
      ds,
      cds1,
      false
  );

  a := cds1.RecordCount;
  // in a steht 0. Der Übertrag hat nicht geklappt?!
end;

procedure TDataModule1.CopyDataSetToCDS(Source: TDataSet; Dest: TClientDataSet; CloseSource: boolean);
var dsProvider: TDataSetProvider;
begin
{GetText in der Source funktioniert nicht}
{Filter in der Source funktioniert}
dsProvider:=TDataSetProvider.Create(nil);
try
 dsProvider.DataSet:=Source;
 Dest.SetProvider(dsProvider);
 Dest.Open;
finally FreeAndNil(dsProvider); end;
if CloseSource then Source.Close;
end;
end.

Ich erwarte an der Stelle

a := cds1.RecordCount das in a die gleiche Anzahl der Records enthalten ist, wie im dataset ds.

Habe ich hier irgendeinen Gedankenfehler?

Das ganze ist in einem Datamodul und die CDS liegt auf der Form.
Der Aufruf von testemal kommt von aussen, aber im dataset ds ist injedemfall Inhalt.

Es bleibt spannend

[SusiT]

Nach ewigen probieren bin ich zu einer Variante gelangt die anscheinend funktioniert. Es ist mir allerdings ein totales Rätsel warum das so ist.

Delphi-Quellcode:

procedure TDataModule1.CopyDataSetToCDS(Source: TDataSet; var Dest: TClientDataSet; CloseSource: boolean);
var dsProvider: TDataSetProvider;
  I: Integer;
  a: Boolean;
begin
{GetText in der Source funktioniert nicht}
{Filter in der Source funktioniert}
dsProvider:=TDataSetProvider.Create(self);
try
 dsProvider.DataSet:=Source;

 a := Dest.Data = dsProvider.Data;

 Dest.SetProvider(dsProvider);
 Dest.Open;

finally FreeAndNil(dsProvider); end;
if CloseSource then Source.Close;
end;
end.

Wenn exakt an der Stelle oben im Code

 a := Dest.Data = dsProvider.Data; eingefügt wird, dann erhalte ich auch wie erwartet an folgender Stelle den Wert 17

a := cds1.RecordCount; Allerdings, die zugefügte Codezeile ergibt keinen Sinn.
Dest.Data ist an der Stelle immer null, a wird immer False.
trotzdem passiert irgendwas, dass dazu führt, dass im cds aufeinmal alle Daten drin sind.

Ich könnte auch

Delphi-Quellcode:

 if Dest.Data = dsProvider.Data then
 begin
 end;

ergänzen, das hat den selben positiven Effekt.

Ein Timingproblem scheint es nicht zu sein. Ich habe an der Stelle das Programm durch eine Schleife im Ablauf verzögert. Das hat nichts gebracht.

Tja, da weiß ich nicht weiter. Vermutlich fehlt irgendein Schritt mit dem Dest oder dem Provider, der durch die eingefügte Zeile im Hintergrund ausgelöst wird.

Viele Grüße und gute Nacht

[Papaschlumpf73]

Keine Ahnung, was du da gemacht hast. Hier vielleicht noch ein paar Hinweise - zumindest mache ich es so und es funktioniert immer. Bevor der die Copy-Proc aufgerufen wird sollte:

• der Datensatzzeiger der Source auf Record 1 stehen; nicht am Ende
• das ClientDataSet bereits alle Datenfelder enthalten
• das ClientDataSet leer und geschlossen sein

Wenn das alles nicht hilft, empfiehlt es sich mit einem vereinfachten Beispiel anzufangen, ohne irgendwelche Schleifen, Filter, Calcfields und was da vielleicht sonst noch drin ist.

[Olli73]

Du scheinst, wie Papaschlumpf73 schreibt, auf dem letzten Datensatz zu stehen.

Probiere mal Folgendes aus:

Delphi-Quellcode:

procedure TForm1.CopyDataSetToCDS(Source: TDataSet; Dest: TClientDataSet; CloseSource: boolean);
var
  dsProvider: TDataSetProvider;
  inscount: Integer;
begin
  dsProvider := TDataSetProvider.Create(nil);
  try
   dsProvider.DataSet := Source;

   dsProvider.GetRecords(-1, inscount, 0); // !!! Lade alle Records !!!

   Dest.SetProvider(dsProvider);
   Dest.Open;
  finally
    FreeAndNil(dsProvider);
  end;
  if CloseSource then
    Source.Close;
end;