Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Verschachtelte SQL Abfrage (https://www.delphipraxis.net/194314-verschachtelte-sql-abfrage.html)

Walter Landwehr 8. Nov 2017 10:01

Datenbank: Firebird • Version: 2,5,5 • Zugriff über: IBO / IBExpert

Verschachtelte SQL Abfrage
 
Hallo SQL Experten,

habe folgendes Statement:
Delphi-Quellcode:
select sum(BETRAG_S) as Soll
     from tbl_buchhaltung where (Jahr = :Jahr) and (Monat = :Monat)
     and Kontonummer = :Konto
     and ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000))
     union
select SUM(BETRAG_H) as Haben
     from tbl_buchhaltung where (Jahr = :Jahr) and (Monat = :Monat)
     and Gegenkontonummer = :Konto
     and ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000))
Das Ergebnis ist z.B.
Soll
45,00
254,00

Die Werte stimmen. Wie bekomme ich es hin das, das Ergebnis in einer Zeile mit den Spalten Soll und Haben. (siehe Tabelle)

SollHaben
254,0045,00

Vielen Dank schon mal für die Hilfe.

TBx 8. Nov 2017 10:16

AW: Verschachtelte SQL Abfrage
 
Da die beiden Queries bis auf die summierte Spalte identisch sind, kann man diese einfach zusammenfassen:
verflixt, habe mich verguckt, da sind doch Unterschiede
SQL-Code:
 --entfernt, da falsch
Im Grunde genommen bleiben zwei Lösungen, entweder die von DeddyH weiter unten, oder die zweite Select als Feld mit einfügen:
SQL-Code:
select
  sum(BETRAG_S) as Soll,
  (
    select SUM(BETRAG_H)
      from tbl_buchhaltung where (Jahr = :Jahr) and (Monat = :Monat)
      and Gegenkontonummer = :Konto
      and ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000))
  ) as Haben
  from tbl_buchhaltung where (Jahr = :Jahr) and (Monat = :Monat)
     and Kontonummer = :Konto
     and ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000))

Jumpy 8. Nov 2017 10:18

AW: Verschachtelte SQL Abfrage
 
So ginge es in Oracle, kenne nicht das Decode-Equivalent für Firebird:

SQL-Code:
Select
  Sum(decode(Art,'S',Soll,0)) as Soll,
  Sum(decode(Art,'H',Soll,0)) as Haben
From
(

select 'S' as Art, sum(BETRAG_S) as Soll
     from tbl_buchhaltung where (Jahr = :Jahr) and (Monat = :Monat)
     and Kontonummer = :Konto
     and ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000))
     union
select 'H' as Art, SUM(BETRAG_H) as Haben
     from tbl_buchhaltung where (Jahr = :Jahr) and (Monat = :Monat)
     and Gegenkontonummer = :Konto
     and ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000))

)
Edit:
Wegen dem Parameter :Konto vermute ich mal, dass Statement wird in einem Programm ausgeführt. Dann würde ich vllt. dort die 9000 ausschließen und die Bedingung ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000)) weglassen.

DeddyH 8. Nov 2017 10:19

AW: Verschachtelte SQL Abfrage
 
Ganz spontan aus dem Hut:
SQL-Code:
SELECT
  X.Soll, Y.Haben
FROM(
select sum(BETRAG_S) as Soll
     from tbl_buchhaltung where (Jahr = :Jahr) and (Monat = :Monat)
     and Kontonummer = :Konto
     and ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000))
) X,
(
select SUM(BETRAG_H) as Haben
     from tbl_buchhaltung where (Jahr = :Jahr) and (Monat = :Monat)
     and Gegenkontonummer = :Konto
     and ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000))
) Y

Walter Landwehr 8. Nov 2017 10:47

AW: Verschachtelte SQL Abfrage
 
Super das passt. Danke für die Schnelle Hilfe.

Walter Landwehr 8. Nov 2017 15:06

AW: Verschachtelte SQL Abfrage
 
Liste der Anhänge anzeigen (Anzahl: 1)
Oh ich merke gerade das hier Zuwenig Datensätze herauskommen.

Delphi-Quellcode:
SELECT
   X.Soll, Y.Haben
FROM( select sum(BETRAG_S) as Soll
      from tbl_buchhaltung where (Jahr = :Jahr) and (Monat <= :Monat)
      and Kontonummer = :Konto
      and ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000))) X,
      (select SUM(BETRAG_H) as Haben
      from tbl_buchhaltung where (Jahr = :Jahr) and (Monat <= :Monat)
      and Gegenkontonummer = :Konto
      and ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000))) Y
Bei Monat 2 muß Soll = 254 und Haben 57,50 betragen. (siehe Bild)

Was ist hier noch falsch?

DeddyH 8. Nov 2017 15:22

AW: Verschachtelte SQL Abfrage
 
Wie, zu wenig Datensätze? Wieviele sind es denn?

p80286 8. Nov 2017 16:11

AW: Verschachtelte SQL Abfrage
 
Zu wenig? oder zuviele?

Wenn Du die Daten für den Februar möchtest, dann ist
Code:
Monat <= : Monat
nicht soo dolle.
Viel interessanter finde ich, daß der Saldovortag mit dem Gegenkonto 9000 aufgeführt wird.
Weiterhin ist interessant, daß z.B. Kontonummern in der Ausgabe angegeben werden, die nicht über die Abfrage kommen können.

vllt solltest Du etwas großzügiger mit dem publizierten Sourcecode sein!?

Gruß
K-H

nahpets 8. Nov 2017 16:22

AW: Verschachtelte SQL Abfrage
 
Anderer Lösungsvorschlag:
SQL-Code:
select Sum(Soll) as Soll, Sum(Haben) as Haben from
(
  select sum(BETRAG_S) as Soll, 0 as Haben
     from tbl_buchhaltung where (Jahr = :Jahr) and (Monat = :Monat)
     and Kontonummer = :Konto
     and ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000))
     union
  select 0 as Soll, SUM(BETRAG_H) as Haben
     from tbl_buchhaltung where (Jahr = :Jahr) and (Monat = :Monat)
     and Gegenkontonummer = :Konto
     and ((Kontonummer <> 9000) and (Gegenkontonummer <> 9000))
)
Ausgehend von der Aufgabenstellung, darf nur ein Satz herauskommen.

Wenn es mehr sind, wäre das wirklich sehr verwunderlich.

Wenn das Ergebnis inhaltlich nicht stimmt, dann liegt es eventuell an der Formulierung der Abfragen.

Das Ergebnis im ersten Post entspricht dem Januar.

Im "Stimmtnicht"-Screenshot sind Januar und Februar enthalten.

Der Screenshot ist vermutlich nicht das Abfrageergebnis. Wie sieht das denn aktuell aus?

p80286 8. Nov 2017 16:50

AW: Verschachtelte SQL Abfrage
 
Zitat:

Zitat von nahpets (Beitrag 1385702)
Ausgehend von der Aufgabenstellung, darf nur ein Satz herauskommen.

:oops: Das hab ich glatt übersehen:oops:

Gruß
K-H


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:34 Uhr.
Seite 1 von 2  1 2      

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