Daten einer Query, über eine zweite, in eine dritte Query bekommen

[Luca Haas]

Hi Leute,
ich weiß, dass der Titel wahrscheinlich schlecht gewählt ist, aber ich bin mir nicht sicher, wie ich es sonst nennen soll.
Jedenfalls habe ich eine Hauptmaske und eine Suchmaske. Nun möchte ich einen Datensatz in der Suchmaske auswählen, und dann die dazugehörigen Daten der sogesehen zweiten Query(also bspw Suchmaske zeigt ID = 1 an und ich erhalte alle Daten der zweiten Query mit Query1.ID = 1). Diese Daten sollen dann in meine Hauptmaske übergeben werden.

Ich bekomme es hin die Daten einer Suchmaske in meine Hauptmaske zu übergeben:

Delphi-Quellcode:

HauptformQuery.FieldByName('ID').AsInteger := SuchformQuery.FieldByName('ID').AsInteger;

ich habe allerdings keine Ahnung, wie ich das mit noch einer "Zwischengeschalteten" Query machen soll, bzw ob das überhaupt so möglich ist.

[mkinzler]

Ist doch eine Master/Detail Beziehung. Diese Beziehung kann man direkt im DataSet festlegen. (MasterSource)

[Luca Haas]

Und in welchem DataSet ?
In dem in das ich die Daten einfügen möchte, oder das aus dem ich sie raushole ?

[mkinzler]

DataSet: T<xx>Query/T<xx>Table, T<xx>DataSet, ...

https://www.delphi-treff.de/tutorials/datenbanken/

[Luca Haas]

Ich hab jetzt alle 12 Tutorialkapitel durchgelesen und habe nix hilfreiches gefunden, könntest du das

Zitat:

Zitat von mkinzler (Beitrag 1385870)

DataSet: T<xx>Query/T<xx>Table, T<xx>DataSet, ...

etwas genauer erläutern ?

[mkinzler]

Der Master ist der Master vom Detail.

[p80286]

Ich formuliere das einmal anders, Du hast eine "Suchmaske". In der formulierst Du Suchkriterien und startest danach eine Abfrage.
Das Ergebnis dieser Abfrage willst Du in der "Hauptmaske" anzeigen.

Hab ich das so richtig verstanden?

Gruß
K-H

[Luca Haas]

Ja hast du, ich habs jetzt aber doch in einem anderen Tutorial gefunden, ich hatte nen Denkfehler drin, ich hab einfach vergessen, die Daten in meiner Suchmaske zur anderen Query zu übergeben.

Delphi-Quellcode:

procedure TSuchForm.Query2AfterScroll(DataSet: TDataSet);
begin
  if not (Query^2.State in [dsinsert]) then
  begin
    Query1.Close;
    Query1.SQL.Text := ('SELECT * FROM Table1 WHERE ID= ' + Query2.FieldByName('ID').AsString + ' ORDER BY Position ASC');
    Query1.Open;
  end;
end;

Hab das jetzt so gemacht.