Daten aus zweiter Table aufgrund Ergebnis aus erster Table

[drschubi]

Hallo,

ich hoffe die Überschrift verwirrt nicht allzu sehr.

Ich hole aus der Tabelle aa_task die nicht erledigten Aufgaben heraus. Aufgrund der hier ermittelten shop_nr möchte ich den dazugehörigen Namen aus dem Feld shop_name aus der Tabelle aa-shopdaten holen.
Das funktioniert aber nicht.


Dies funktioniert normal

Delphi-Quellcode:

procedure TForm1.list_task;
begin
  Query_ContactCard.SQL.Text := 'Select * from `aa_tasks` where `taskstate` <> ''Erledigt'' order by `shopnr` DESC;';   Query_ContactCard.Open;
  Query_ContactCard.FieldByName('id').AsString;
  Lv_task.Items.Clear;
  while not Query_Contactcard.Eof do
    begin
      LI := lv_task.Items.Add;
      LI.Caption := '';
      LI.SubItems.Add(Query_ContactCard.FieldByName('done').AsString);
      LI.SubItems.Add(Query_ContactCard.FieldByName('shopnr').AsString);
      LI.SubItems.Add(Query_ContactCard.FieldByName('task').AsString);
      Query_ContactCard.Next;
    end;
end;

Hier versuche ich das oben beschriebene, es kommt aber ein Fehler, weil das Feld "shop_name" nicht gefunden wurde, das Feld ist aber in der Tabelle aa_shopdaten vorhanden.

Ich hole die shopnr in die Variable TmpStr anhand derer ich dann den shopnamen holen will. Wo ist mein Fehler?

Delphi-Quellcode:

procedure TForm1.BtnReadTasksClick(Sender: TObject);
var
  TmpStr:string;
begin
  Query_ContactCard.SQL.Text := 'Select * from `aa_tasks` where `taskstate` <> ''Erledigt'' order by `shopnr` DESC;'; //IN 
  Query_ContactCard.Open;
  Query_ContactCard.FieldByName('id').AsString;
  Lv_task.Items.Clear;

  while not Query_Contactcard.Eof do
    begin
      TmpStr:='';
      LI := lv_task.Items.Add;
      LI.Caption := '';
      LI.SubItems.Add('');
      LI.SubItems.Add(Query_ContactCard.FieldByName('shopnr').AsString);
      tmpstr:=Query_ContactCard.FieldByName('shopnr').AsString;
     // Showmessage(tmpstr);
      LI.SubItems.Add(Query_ContactCard.FieldByName('shop_name').AsString);
      Query_ContactCard.SQL.Text := 'Select * from `aa_tasks` where `taskstate` <> ''Erledigt'' order by `shopnr` DESC;'; 
      Query_ContactCard.Open;
      LI.SubItems.Add(Query_ContactCard.FieldByName('task').AsString);
      Query_ContactCard.SQL.Text := 'Select * from `aa_shopdaten` where `shop_name` = '+ TmpStr +';'; 
      Query_ContactCard.Open;
      Query_ContactCard.Next;
    end;
end;

Gruß René

[mkinzler]

Du Versuchst innerhalb der Schleife über das Ergebnis einen Abfrage diese zu verändern. Für diesen Fall solltest du einen anderen Query nehmen oder gleich einen Join machen.
Wie stehen die beiden Tabellen im Verhältnis?

[drschubi]

Hallo mkinzler,

wie soll ich das mit dem join machen, wie meinst du "wie stehen die Tabellen zueinander"?

Gruß René

[mkinzler]

Zitat:

wie meinst du "wie stehen die Tabellen zueinander"?

aa_tasks hat ein Fremdschlüssel shopnr auf die Tabelle aa_shopdaten.

Zitat:

wie soll ich das mit dem join machen

Na beide Abfragen in einer, entweder als Subselect (wenn du nur Daten der aa_shopdaten benötigst:

Select * from `aa_shopdaten` where `shop_nr` in ( Select shopnr from `aa_tasks` where `taskstate` <> 'Erledigt'); oder halt ein Join über beide Tabellen.

[drschubi]

Hallo mkinzler,

vielen Dank, wusste nicht daß es so verschachtelt geht.
Hier sagt er mir, es würde ein Operator oder Semikolon fehlen.
 Query_ContactCard.SQL.Text := 'Select * from `aa_shopdaten` where `shop_nr` in ( Select shopnr from `aa_tasks` where `taskstate` <> 'Erledigt'); Kannst Du mir bitte aufzeigen wie es mit Join aussehen würde, daß interessiert mich jetzt.

Gruß René

[mkinzler]

In Delphi mußt du die Strings natürlich doppelt quoten:

Query_ContactCard.SQL.Text := 'Select * from `aa_shopdaten` where `shop_nr` in ( Select shopnr from `aa_tasks` where `taskstate` <> ''Erledigt''); Als impliziten SQL-92-Join:

SQL-Code:

Select 
    * 
from 
    `aa_shopdaten` d, `aa_tasks` t
where 
    t.`taskstate` <> 'Erledigt' and
    d.shopnr = t.shopnr;

[drschubi]

Hallo mkinzler,

Delphi-Quellcode:

procedure TForm1.BtnReadTasksClick(Sender: TObject);
begin
 Query_ContactCard.SQL.Text := 'Select * from `aa_shopdaten`  where `shop_nr` in ( Select shopnr from `aa_tasks` where `taskstate` <> ''Erledigt'')';
  Query_ContactCard.Open;
  Query_ContactCard.FieldByName('id').AsString;
  Lv_task.Items.Clear;
  while not Query_Contactcard.Eof do
    begin
      LI := lv_task.Items.Add;
      LI.Caption := '';
      LI.SubItems.Add('');
      LI.SubItems.Add(Query_ContactCard.FieldByName('shopnr').AsString);
      LI.SubItems.Add(Query_ContactCard.FieldByName('shop_name').AsString);
      LI.SubItems.Add(Query_ContactCard.FieldByName('task').AsString);
      Query_ContactCard.Next;
      end;

bringt mir SQL-Error:unknown Column 'shop_nr' in 'IN/ALL/ANY subquery''

Er findet also wieder die shopnr nicht, habe ich noch irgendetwas übersehen?

Gruß rené

[mkinzler]

Könnte auch shop_nr heißen.

[drschubi]

Upps

Das war der Fehler, also die Zuordnung von shop_name und shopnr klappt jetzt, dafür findet er jetzt das feld Task nicht mehr, langsam blicke ich es nicht mehr.

Gruß René

[mkinzler]

Zitat:

dafür findet er jetzt das feld Task nicht mehr, langsam blicke ich es nicht mehr.

In welcher Tabelle befindet sich das Feld?