Abfrage: Kund hat Artikel X aber nicht Y gekauft

[Delphi.Narium]

Syntaktisch sehr altbackene Version:

SQL-Code:

select k1.*
from   kunden k1, rechnungen r1, positionen p1
where  k1.kdnr    = r1.kdnr
and    r1.renr    = p1.renr
and    p1.artikel = 'X'
and not exists
( 
  select 1
  from   kunden k2, rechnungen r2, positionen p2
  where  k2.kdnr    = r2.kdnr
  and    r2.renr    = p2.renr
  and    p2.artikel = 'Y'
  and    k1.kdnr    = k2.kdnr
)