Werte aus DB auslesen und im RAM zwischenspeichern

[DeddyH]

Das sollte auch gehen, kann aber schnell unübersichtlich werden.

[Kevin11]

Zitat:

Zitat von DeddyH (Beitrag 1122408)

Ich benutze TClientDataset eigentlich nie, daher weiß ich nicht, ob man "künstliche" Felder einfügen kann, die dann auch beschreibbar sind (wir brauchen ja etwas in der Art, damit der User die entsprechenden Datensätze anhaken kann). Falls das nicht funktioniert (d.h. eine Auswahl durch den User ist so nicht möglich), ginge eben auch der Weg über eine eigene Klasse:
- Klasse mit den Feldern des Datensatzes definieren
- Daten abfragen
- je Datensatz eine Instanz anlegen und in einer TObjectList speichern
- die Instanzen darstellen (ListView, StringGrid oder sonstwie) und den User auswählen lassen
- ausgewählte Objekte in die Zieldatenbank schreiben (Append oder per SQL)
- Liste freigeben

Eigene Klasse? Du meinst eine Unit oder? Davon habe ich überhaupt keine Ahnung. Ich denke ich werde es mit TClientDataSet probieren. Ich finde so Aufgaben bei denen man von 0 Anfangen muss eigentlich garnicht so schlecht, da man alles lernt.

[mschaefer]

Moin,

Detlef´s Variatne hat viel mit der Vorgehensweise unter C# gemeinsam und wird geren von Kandidaten eingesetzt die auch auf dieser Spielwiese unterwegs sind.

Ich denke Detlef, er hat keine Chance ohne ein Beispiel.
Wobei zur Einführung vielleicht doch erstmal ClientDataSet . . .

Hallo Kevin, schau Dir das Beispiel nochmal an, da ist im OnCreate des Formulars die Definition der Felder für den ClientDataset. Die kannst du natürlich nach Deinem Bedarf erweitern.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
         TABle := TClientDataset.Create(Application);
         table.FieldDefs.Add('id',     ftInteger, 0, False);     // Feld-Definition
         table.FieldDefs.Add('number', ftinteger, 0, False);     // Feld-Definition
         table.FieldDefs.Add('data',   ftString, 12000, False);  // Feld-Definition
         table.CreateDataset;

         if FILEEXISTS( 'mem.cds' ) then table.LoadFromFile('mem.cds');
         DataSource.DataSet := table;
         MyGrid.DataSource := DataSource;
         MyGrid.DataField := 'data';

         table.Open;

leider habe ich derzeit ein DP-Limit, da etwas knapp in Zeit....
Grüße in die Runde

[DeddyH]

Ich meinte eine Klasse. Die kannst Du natürlich auch in eine eigene Unit packen. Einfaches Beispiel:

Delphi-Quellcode:

type
  TPerson = class
  private
    FNachname: string;
    FVorname: string;
    FGeburtsdatum: TDate;
  public
    property Nachname: string read FNachname write FNachname;
    property Vorname: string read FVorname write FVorname;
    property Geburtsdatum: TDate read FGeburtsdatum write FGeburtsdatum;
  end;
  
...

procedure TTestForm.GetPersonData;
var
  Person: TPerson;
begin
  Personenliste.Clear; //Das soll eine TObjectList sein 
  Query.SQL.Text := 'SELECT Name, Vorname, Geburtsdatum FROM Personen';
  Query.Open;
  while not Query.EOF do
    begin
      Person := TPerson.Create;
      Person.Nachname := Query.FieldByName('Name').Value;
      Person.Vorname := Query.FieldByName('Vorname').Value;
      Person.Geburtsdatum := Query.FieldByName('Geburtsdatum').Value;
      Personenliste.Add(Person);
      Query.Next;
    end;
  Query.Close;
end;

[Kevin11]

Naja also in der C# Sparte hab ich meinen Anfang gemacht, aber dann kam Java in der Berufsschule und ich hab C# gelassen, weil es ja sehr Syntaxnah zu Java ist.

Trotzdem verwirren mich Klassen in Delphi.