Mehrer Spalten in einer Ausgeben

[alcaeus]

Delphi-Quellcode:

Query1.SQL.Clear;
Query1.SQL.Add('SELECT Ordnungsnummer FROM Betrieb');
Query1.Open;
Query1.FetchAll;
for i := 1 to Query1.RecordCount do
begin
  Query1.RecNo := i;
  Query2.SQL.Clear;
  Query2.SQL.Add('SELECT b.Ordnungsnummer As "Nr.",'+
    'b.Name As "Betrieb",'+
    'b.Strasse As "Straße",'+
    'b.Hausnummer As "Hausnr.",'+
    'PLZ,'+
    'b.Ort As "Ort",'+
    'Vorlieben As "Vorlieben",'+
    'FROM Betrieb b, Standort, Betrieb_Vorl'+
    'WHERE Ordnungsnummer LIKE '+Query1.FieldByName('Ordnungsnummer').AsString+' AND Betrieb.PLZ = Standort.PLZ');
  Query2.Open;
  Query2.FetchAll;
  Vorlieben[i-1] := '';
  for j := 1 to Query2.RecordCount do
  begin
    //Andere Werte setzen
    Vorlieben := Vorlieben+', '+Query2.FieldByName('Vorlieben').AsString;
  end;
  Query2.Close;
  if Length(Vorlieben[i-1]) > 3 then
    Delete(Vorlieben[i-1],1,3);
end;
Query1.Close;

Ich hoffe du hast es so gemeint, nur mit SQL alleine kann man das glaub ich nicht lösen.