Thema: Delphi JOIN über 3 Tabellen

Einzelnen Beitrag anzeigen

Benutzerbild von Leuselator
Leuselator

Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
 
Delphi 8 Architect
 
#5

Re: JOIN über 3 Tabellen

  Alt 28. Sep 2004, 18:52
Das sollte auf jeden Fall auch mit MSDE funktionieren:
Delphi-Quellcode:
with Data1.Q_ALLERECHNUNGEN do
  begin
    Active := False;
    SQL.Clear;
    SQL.Add(' SELECT AB.* ');
    SQL.Add(' , RE.RE_NR ');
    SQL.Add(' , RE.RE_PA_NR ');
    SQL.Add(' , RE.RE_ANRDAT ');
    SQL.Add(' , RE.RE_ABRDAT ');
    SQL.Add(' , PA.PA_NR ');
    SQL.Add(' , PA.PA_VORNAME ');
    SQL.Add(' , PA.PA_NAME ');
    SQL.Add(' FROM PA ');
    SQL.Add('INNER JOIN RE ');
    SQL.Add(' ON RE.RE_PA_NR = PA.PA_NR ');
    SQL.Add('INNER JOIN AB ');
    SQL.Add(' ON AB.AB_RE_NR = RE.RE_NR ');
    SQL.Add(' AND AB.AB_NR = :iRNR ');
    SQL.Add(' ORDER BY PA.PA_NAME ');
    Parameters.ParamByName('iRNR').DataType := ftInteger;
    Parameters.ParamByName('iRNR').AsInteger := StrToInt(Edit6.Text);
  end;
try
  Data1.Q_ALLERECHNUNGEN.Open;
except
  ShowMessage('Query Q_ALLERECHNUNGEN konnte nicht geöffnet werden!');
end;
Gruß
Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
  Mit Zitat antworten Zitat