Hallo,
ich möchte den Inhalt bestimmter Tabellen für Testzwecke auf Festplatte speichern und bei Bedarf wieder in die Tabelle zurückladen können.
Das Speichern auf Festplatte ist OK.<br>
Das Laden von Platte ist nicht möglich.
// TempClientDataSet im DatenModul deklariert
procedure Speichern;<br>
var TempProvider:TDataSetProvider;<br>
begin<br>
TempProvider := TDataSetProvider.Create(nil);
// 1. Aus der Original-Datenmenge dem Provider zuweisen<br>
TempProvider.DataSet := SourceDataSet;
// 2. Aus dem Provider der Client-Datenmenge zuweisen<br>
TempClientDataSet1.Data := TempProvider.Data;
// 3. Aus der Client-Datenmenge auf Festplatte speichern<br>
TempClientDataSet1.FileName := 'C:\TCL'; // Filename zuweisen<br>
TempClientDataSet1.SaveToFile;
FreeAndNil(TempProvider);<br>
end;
Procedure Laden;<br>
var TempProvider:TDataSetProvider;<br>
begin<br>
TempProvider := TDataSetProvider.Create(nil);
// 1. Von der Festplatte in die Client-Datenmenge laden<br>
TempClientDataSet1.FileName := 'C:\TCL';<br>
TempClientDataSet1.LoadFromFile;
// 2. Aus der Client-Datenmenge dem Provider zuweisen<br>
TempProvider.DataSet := TempClientDataSet1; // <b>produziert Fehler</b><br>
TempProvider.Data := TempClientDataSet1.Data; // <b> Fehler, weil nurLeseMenge</b><br>
// 3. Aus dem Provider der Original-Datenmenge zuweisen<br>
SourceDataSet := TempProvider.DataSet;
FreeAndNil(TempProvider);<br>
end;
<b>Ich habe keine Lösung für <b>Punkt 2</b><br>
Wer weiß Rat ?
Gruss<br>Helmut
ich möchte den Inhalt bestimmter Tabellen für Testzwecke auf Festplatte speichern und bei Bedarf wieder in die Tabelle zurückladen können.
Das Speichern auf Festplatte ist OK.<br>
Das Laden von Platte ist nicht möglich.
// TempClientDataSet im DatenModul deklariert
procedure Speichern;<br>
var TempProvider:TDataSetProvider;<br>
begin<br>
TempProvider := TDataSetProvider.Create(nil);
// 1. Aus der Original-Datenmenge dem Provider zuweisen<br>
TempProvider.DataSet := SourceDataSet;
// 2. Aus dem Provider der Client-Datenmenge zuweisen<br>
TempClientDataSet1.Data := TempProvider.Data;
// 3. Aus der Client-Datenmenge auf Festplatte speichern<br>
TempClientDataSet1.FileName := 'C:\TCL'; // Filename zuweisen<br>
TempClientDataSet1.SaveToFile;
FreeAndNil(TempProvider);<br>
end;
Procedure Laden;<br>
var TempProvider:TDataSetProvider;<br>
begin<br>
TempProvider := TDataSetProvider.Create(nil);
// 1. Von der Festplatte in die Client-Datenmenge laden<br>
TempClientDataSet1.FileName := 'C:\TCL';<br>
TempClientDataSet1.LoadFromFile;
// 2. Aus der Client-Datenmenge dem Provider zuweisen<br>
TempProvider.DataSet := TempClientDataSet1; // <b>produziert Fehler</b><br>
TempProvider.Data := TempClientDataSet1.Data; // <b> Fehler, weil nurLeseMenge</b><br>
// 3. Aus dem Provider der Original-Datenmenge zuweisen<br>
SourceDataSet := TempProvider.DataSet;
FreeAndNil(TempProvider);<br>
end;
<b>Ich habe keine Lösung für <b>Punkt 2</b><br>
Wer weiß Rat ?
Gruss<br>Helmut
Comment