AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken (SQL) Kochrezept: Zutatenliste nach erster Verwendung (jede Zutat nur einmal)

(SQL) Kochrezept: Zutatenliste nach erster Verwendung (jede Zutat nur einmal)

Ein Thema von mjustin · begonnen am 25. Aug 2022 · letzter Beitrag vom 1. Sep 2022
Antwort Antwort
Seite 2 von 2     12
mjustin

Registriert seit: 14. Apr 2008
3.003 Beiträge
 
Delphi 2009 Professional
 
#11

AW: (SQL) Kochrezept: Zutatenliste nach erster Verwendung (jede Zutat nur einmal)

  Alt 25. Aug 2022, 15:12
Danke an TigerLilly!


Code:
select distinct rezept.bezeichnung,

(select zutat.bezeichnung + ' '
from zutaten
join zutat on zutat.zutatid = zutaten.zutatid
join rezept on rezept.rezeptid = zutaten.rezeptid
where lfdnr=(select min(lfdnr) from zutaten z where z.rezeptid=zutaten.rezeptid and z.zutatid=zutaten.zutatid)
 and z2.rezeptid = zutaten.rezeptid
order by zutaten.rezeptid, lfdnr
FOR XML PATH ('')) as zutatenliste

from zutaten z2
join rezept on rezept.rezeptid = z2.rezeptid
liefert diese kompakte (und kalorienreiche!) Darstellung:

Code:
bezeichnung    zutatenliste
Nusskuchen     Mehl Nüsse Butter Zucker
Schokokuchen   Mehl Schokoflocken Butter Zucker

SQL Fiddle Link: http://sqlfiddle.com/#!18/567efa/1/0
Michael Justin

Geändert von mjustin (25. Aug 2022 um 17:45 Uhr) Grund: Fiddle Link
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.014 Beiträge
 
Delphi 12 Athens
 
#12

AW: (SQL) Kochrezept: Zutatenliste nach erster Verwendung (jede Zutat nur einmal)

  Alt 25. Aug 2022, 20:04
Zitat:
select zutat.bezeichnung + ' '
Strings zusammenfügen : CONCAT (ohne) und CONCAT_WS (mit Trennzeichen)

bzw. über die ROWs mit GROUP BY und STRING_AGG (hat auch einen optionalen Parameter für Trennzeichen)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.003 Beiträge
 
Delphi 2009 Professional
 
#13

AW: (SQL) Kochrezept: Zutatenliste nach erster Verwendung (jede Zutat nur einmal)

  Alt 25. Aug 2022, 20:10
Zitat:
select zutat.bezeichnung + ' '
Strings zusammenfügen : CONCAT (ohne) und CONCAT_WS (mit Trennzeichen)

bzw. über die ROWs mit GROUP BY und STRING_AGG (hat auch einen optionalen Parameter für Trennzeichen)
STRING_AGG wird nicht auf allen DBs unterstützt die ich unterstützen soll (laut MS Dokumentation ist es erst ab SQL Server 2017 vorhanden), aber ich baue das noch ein.

Danke für den CONCAT-Tipp, das hatte ich übersehen.
Michael Justin
  Mit Zitat antworten Zitat
Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.733 Beiträge
 
Delphi 6 Enterprise
 
#14

AW: (SQL) Kochrezept: Zutatenliste nach erster Verwendung (jede Zutat nur einmal)

  Alt 25. Aug 2022, 20:32
So könnte es mit List_Agg aussehen:

SQL-Code:
select rezept.bezeichnung, String_Agg(zutat.bezeichnung, ' ') WITHIN GROUP (order by lfdnr) as Zutatenliste
from zutaten
join zutat on zutat.zutatid = zutaten.zutatid
join rezept on rezept.rezeptid = zutaten.rezeptid
where lfdnr=(select min(lfdnr) from zutaten z where z.rezeptid=zutaten.rezeptid and z.zutatid=zutaten.zutatid)
Group By rezept.bezeichnung
Ralph
  Mit Zitat antworten Zitat
Benutzerbild von joachimd
joachimd

Registriert seit: 17. Feb 2005
Ort: Weitingen
672 Beiträge
 
Delphi 10.4 Sydney
 
#15

AW: (SQL) Kochrezept: Zutatenliste nach erster Verwendung (jede Zutat nur einmal)

  Alt 26. Aug 2022, 09:45
Ich muss mit der Zutatenliste noch etwas machen, nämlich sie in ein einziges Feld umwandeln, und da wird es bei beiden Lösungswegen spannend.
Zumindest beim ADS wurde dafür ein GROUP_CONCAT eingeführt, Beispiele hier: https://www.jd-engineering.de/using-...-group_concat/
Inwieweit die Funktion bei anderen DBMS heisst, kann ich aber nicht sagen.
Joachim Dürr
Joachim Dürr Softwareengineering
http://www.jd-engineering.de
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.003 Beiträge
 
Delphi 2009 Professional
 
#16

AW: (SQL) Kochrezept: Zutatenliste nach erster Verwendung (jede Zutat nur einmal)

  Alt 26. Aug 2022, 11:16
Hier ist das Fiddle mit der Zusatzanforderung: http://sqlfiddle.com/#!18/bb18e/11/0

* es gibt in jedem Rezept eine optionale Zutat (z.B. hier 'Ahornsirup')
* die optionale Zutat muss im Ergebnis ebenfalls ausgegeben werden
* falls die optionale Zutat auch in der Liste der Zutaten enthalten ist, darf sie dennoch nur einmal erscheinen
* sie soll im Ergebnis an erster Stelle stehen

(Idee: das Gericht wird zusammen mit dieser optionalen Zutat serviert, damit man nach Belieben 'Nachwürzen' kann).

In den Beispieldaten ist im Nusskuchen die Zutat 'Ahornsirup' daher als optionale Zutat im Rezept sowie in der Zutatenliste enthalten.

Code:
create table rezept (
  rezeptid int,
  optionalezutatid int,
  bezeichnung nvarchar(80)
);
 
create table zutat (
  zutatid int,
  bezeichnung nvarchar(80)
);
 
create table zutaten (
rezeptid int,
zutatid int,
lfdnr int
);

insert into rezept values(111, null, 'Schokokuchen');
insert into rezept values(222, 6, 'Nusskuchen');

insert into zutat values (1,'Mehl');
insert into zutat values (2,'Schokoflocken');
insert into zutat values (3,'Butter');
insert into zutat values (4,'Zucker');
insert into zutat values (5,'Nüsse');
insert into zutat values (6,'Ahornsirup');

insert into zutaten values (111,1,1);
insert into zutaten values (111,2,2);
insert into zutaten values (111,3,3);
insert into zutaten values (111,4,4);
insert into zutaten values (111,2,5);

insert into zutaten values (222,1,1);
insert into zutaten values (222,5,2);
insert into zutaten values (222,3,3);
insert into zutaten values (222,4,4);
insert into zutaten values (222,5,5);
insert into zutaten values (222,6,6);
Code:
with CTE as (
  select rezept.rezeptid, 'O' as optional, null as lfdnr, zutat.bezeichnung as bezeichnung
from rezept
join zutat on zutat.zutatid = rezept.optionalezutatid
union all
select rezept.rezeptid, 'P' as optional, zutaten.lfdnr, zutat.bezeichnung as bezeichnung
from zutaten
join zutat on zutat.zutatid = zutaten.zutatid
join rezept on rezept.rezeptid = zutaten.rezeptid
where lfdnr=(select min(lfdnr) from zutaten z where z.rezeptid=zutaten.rezeptid and z.zutatid=zutaten.zutatid)
and (rezept.optionalezutatid is null or zutaten.zutatid <> rezept.optionalezutatid)
  )
  select rezept.rezeptid, (select concat(bezeichnung, ' ') from cte where cte.rezeptid = rezept.rezeptid for xml path(''))
  from rezept
Ergebnis:

Code:
Rezept-ID  Zutaten
111        Mehl Schokoflocken Butter Zucker
222        Ahornsirup Mehl Butter Zucker Nüsse
Michael Justin
  Mit Zitat antworten Zitat
TigerLilly

Registriert seit: 24. Mai 2017
Ort: Wien, Österreich
1.172 Beiträge
 
Delphi 11 Alexandria
 
#17

AW: (SQL) Kochrezept: Zutatenliste nach erster Verwendung (jede Zutat nur einmal)

  Alt 26. Aug 2022, 11:22
Ist zwar off-topic:
Irgendwann wirst du aber mit SQL an die Grenzen stoßen, was die textliche Zusammenstellung von Rezepten und Zutatenliste anbelangt. Ich würde SQL verwenden, um die Basisdaten abzuholen und alles weitere im Code machen. Das ist einfacher.
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.003 Beiträge
 
Delphi 2009 Professional
 
#18

AW: (SQL) Kochrezept: Zutatenliste nach erster Verwendung (jede Zutat nur einmal)

  Alt 26. Aug 2022, 11:38
Ist zwar off-topic:
Irgendwann wirst du aber mit SQL an die Grenzen stoßen, was die textliche Zusammenstellung von Rezepten und Zutatenliste anbelangt. Ich würde SQL verwenden, um die Basisdaten abzuholen und alles weitere im Code machen. Das ist einfacher.
Ja, im Code würde einiges mehr mit wenig Aufwand machbar sein. Im konkreten Anwendungsfall brauche ich diese 'Zutatenliste' wiederum in einer SQL-View, als 'virtuelles Feld', in dem via 'Rezept-ID' für jeden Datensatz die Zutatenliste angezeigt wird. Aus Anwendersicht ist das also ein select <viele Daten> from <Rezept-View>.
Michael Justin
  Mit Zitat antworten Zitat
Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.733 Beiträge
 
Delphi 6 Enterprise
 
#19

AW: (SQL) Kochrezept: Zutatenliste nach erster Verwendung (jede Zutat nur einmal)

  Alt 26. Aug 2022, 11:51
Nochmal in einer List_Agg = Group-Concat Version, wir aber dadurch auch nicht schöner

SQL-Code:
select rezept.bezeichnung,
  CONCAT(
  Case When zutat_opt.bezeichnung is null Then null else Concat(zutat_opt.bezeichnung,' ') END,
  String_Agg(zutat.bezeichnung, ' ') WITHIN GROUP (order by lfdnr)
  ) as Zutatenliste
from rezept
left join zutaten on rezept.rezeptid = zutaten.rezeptid
  and (zutaten.zutatid<>rezept.optionalezutatid or rezept.optionalezutatid is Null)
left join zutat on zutat.zutatid = zutaten.zutatid
left join zutat zutat_opt on zutat_opt.zutatid=rezept.optionalezutatid
where lfdnr=(select min(lfdnr) from zutaten z where z.rezeptid=zutaten.rezeptid and z.zutatid=zutaten.zutatid)
Group By rezept.bezeichnung, zutat_opt.bezeichnung
Ralph
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.003 Beiträge
 
Delphi 2009 Professional
 
#20

AW: (SQL) Kochrezept: Zutatenliste nach erster Verwendung (jede Zutat nur einmal)

  Alt 1. Sep 2022, 08:14
Nachtrag: hier ist eine leicht korrigierte Version http://sqlfiddle.com/#!18/bb18e/28/0

spot the bug

Code:
create table rezept (
  rezeptid int,
  optionalezutatid int,
  bezeichnung nvarchar(80)
);
 
create table zutat (
  zutatid int,
  bezeichnung nvarchar(80)
);
 
create table zutaten (
rezeptid int,
zutatid int,
lfdnr int
);

insert into rezept values(111, null, 'Schokokuchen');
insert into rezept values(222, 6, 'Nusskuchen');

insert into zutat values (1,'Mehl');
insert into zutat values (2,'Schokoflocken');
insert into zutat values (3,'Butter');
insert into zutat values (4,'Zucker');
insert into zutat values (5,'Nüsse');
insert into zutat values (6,'Ahornsirup');

insert into zutaten values (111,1,1);
insert into zutaten values (111,2,2);
insert into zutaten values (111,3,3);
insert into zutaten values (111,4,4);
insert into zutaten values (111,2,5);

insert into zutaten values (222,1,1);
insert into zutaten values (222,5,2);
insert into zutaten values (222,3,3);
insert into zutaten values (222,4,4);
insert into zutaten values (222,5,5);
insert into zutaten values (222,6,6);
Code:
with CTE as (
select rezept.rezeptid, 'O' as optional, null as lfdnr, zutat.bezeichnung as bezeichnung
from rezept
join zutat on zutat.zutatid = rezept.optionalezutatid
union all
select rezept.rezeptid, 'P' as optional, zutaten.lfdnr, zutat.bezeichnung as bezeichnung
from zutaten
join zutat on zutat.zutatid = zutaten.zutatid
join rezept on rezept.rezeptid = zutaten.rezeptid
where lfdnr=(select min(lfdnr) from zutaten z where z.rezeptid=zutaten.rezeptid and z.zutatid=zutaten.zutatid)
and (rezept.optionalezutatid is null or zutaten.zutatid <> rezept.optionalezutatid)
)
  select rezept.rezeptid,
    (select concat(bezeichnung, ' ')
     from cte
     where cte.rezeptid = rezept.rezeptid
     order by optional, lfdnr
     for xml path(''))
  from rezept
Alternativ mit string_agg:

Code:
with CTE as (
select rezept.rezeptid, 'O' as optional, null as lfdnr, zutat.bezeichnung as bezeichnung
from rezept
join zutat on zutat.zutatid = rezept.optionalezutatid
union all
select rezept.rezeptid, 'P' as optional, zutaten.lfdnr, zutat.bezeichnung as bezeichnung
from zutaten
join zutat on zutat.zutatid = zutaten.zutatid
join rezept on rezept.rezeptid = zutaten.rezeptid
where lfdnr=(select min(lfdnr) from zutaten z where z.rezeptid=zutaten.rezeptid and z.zutatid=zutaten.zutatid)
and (rezept.optionalezutatid is null or zutaten.zutatid <> rezept.optionalezutatid)
)
  select rezept.rezeptid,
  string_agg(cte.bezeichnung, ' ')
  within group (order by optional, lfdnr)
  from rezept
  join cte on cte.rezeptid = rezept.rezeptid
  group by rezept.rezeptid

http://sqlfiddle.com/#!18/bb18e/37/0

(ab MS SQL 2017)
Michael Justin

Geändert von mjustin ( 1. Sep 2022 um 08:25 Uhr) Grund: Variante mit string_agg ergänzt
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz