Thema: Delphi Join über 3 Tabellen

Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#18

Re: Join über 3 Tabellen

  Alt 5. Mär 2004, 20:25
so siehts aus:

SQL-Code:
BEGIN
 FOR SELECT ART.ID, ART.NR,ART.BEZ, SP.VP
      FROM ART, SP
      WHERE (ART.ID=SP.ID_ART ) AND
             SP.ID_KUNDE = :ID_KUNDE
      INTO :OUT_HARTID, :OUT_HNR, :OUT_HBEZ, :OUT_HPREIS
 DO
begin
  OUT_NR = :OUT_HNR;
  OUT_BEZ = :OUT_HBEZ;
  OUT_PREIS = :OUT_HPREIS;
  /* ist der preis <> 0 dann gebe hilfsvariablen aus */
  IF (OUT_HPREIS <> 0) THEN BEGIN
    SUSPEND;
  END
  ELSE
  BEGIN
    /* preis = 0 -> hole preis von artpg direkt in ausgabevariable */
    FOR SELECT ARTPG.PG FROM ARTPG
    WHERE (ARTPG.ID_ART = :OUT_HARTID) AND (ARTPG
.PGNR = :PGNR) /* das ist die art.nr von oben */
    INTO :OUT_PREIS
   DO
    SUSPEND;
  END
end
END
Ich habe nicht viel gemacht.
Gruß
Hansa
  Mit Zitat antworten Zitat