Sortierung bei SQL

[Hansa]

Hi,

Ich habe jetzt mal folgendes gemacht :

Code:

[/ WITH RecDataMod.ReckopfDS DO
    SelectSQL.Text := 'SELECT * FROM RECKOPF8 WHERE RECHNNR ='+Edit1.TEXT;
  WITH RecDataMod.KuDataSet DO
    SelectSQL.Text := 'SELECT * FROM KUNDE8 WHERE ID = ?ID_KUNDE';

Hierdurch kriege ich die Rechnung angezeigt, aber nicht den Kunden. Das ?ID_KUNDE stimmt so nicht. Danach wollte ich die Artikel-Datenmenge so behandeln, wie Sharky und MrSpock das beschrieben haben. Aber diese Parameterübergabe kriege ich nicht hin. Woher soll die DB eigentlich wissen, daß das ID_KUNDE von dem Rechnungskopf kommt ?

Gruß
Hansa

[Sharky]

Zitat von Hansa:

Hi,

Ich habe jetzt mal folgendes gemacht :

Code:

[/ WITH RecDataMod.ReckopfDS DO
    SelectSQL.Text := 'SELECT * FROM RECKOPF8 WHERE RECHNNR ='+Edit1.TEXT;
  WITH RecDataMod.KuDataSet DO
    SelectSQL.Text := 'SELECT * FROM KUNDE8 WHERE ID = ?ID_KUNDE';

Hmm... es müsst doch so heissen:

Code:

WITH RecDataMod.ReckopfDS DO
 SelectSQL.Text := 'SELECT * FROM RECKOPF8 WHERE RECHNNR ='+Edit1.TEXT;
Open;
WITH RecDataMod.KuDataSet DO
 SelectSQL.Text := 'SELECT * FROM KUNDE8 WHERE ID = '
                    + RecDataMod.ReckopfDS.FieldByName ('ID_KUNDE').AsString;

Oder?

[Hansa]

Hi Sharky,

das könnte es sein. Aber das Open brauche ich nicht. Ich benutze keine Query direkt, sondern setze die DataSets mit active auf true oder false. Das FieldByName schau ich gleich nach, bin noch unterwegs.

Gruß
Hansa

[Hansa]

Hi Sharky,

einwandfrei Das war der richtige Weg Hier ist etwas mehr Quelltext :

Code:

procedure TReDruck.Button1Click(Sender: TObject);
begin
  RecDataMod.ReckopfDS.active := false;
  RecDataMod.KuDataSet.active := false;
  WITH RecDataMod.ReckopfDS DO
    SelectSQL.Text := 'SELECT * FROM RECKOPF8 WHERE RECHNNR ='+Edit1.TEXT;
  RecDataMod.ReckopfDS.Active := true;
  WITH RecDataMod.KuDataSet DO
    SelectSQL.Text := 'SELECT * FROM KUNDE8 WHERE ID = ' +
    RecDataMod.ReckopfDS.FieldByName ('ID_KUNDE').AsString;
  RecDataMod.KuDataSet.active := true;
  QuickRep1.Preview;
  Close;
end;

Was hierbei wichtig ist : da ich keine Query verwende, muß das Active der DataSets an der richtigen Stelle stehen. Bisher hatte ich bei BEIDEN DataSets am Anfang der Prozedure active auf false und am Schluß active auf true gesetzt. An die ID_KUNDE der Rechnung komm ich aber nur ran, wenn das erste SQLselect bereits ausgeführt ist !!!

Gruß
Hansa

P.S.: Um diesem Thema hier gerecht zu werden kann ich ja jetzt mit den Artikeln weitermachen, die müssen ja sortiert werden und nicht ein einzelner Kunde.