Registriert seit: 12. Aug 2003
Ort: Soest
4.016 Beiträge
Delphi 10.1 Berlin Enterprise
|
Re: Anweisung vor "FOR SELECT" Block
14. Mär 2005, 15:28
Hi Jochen,
du musst das folgendermaßen machen:
SQL-Code:
SET TERM ^ ;
ALTER PROCEDURE Test (Index CHAR(10))
RETURNS
(
Wert1 FLOAT, WERT2 FLOAT, Diff FLOAT
)
AS
BEGIN
IF (:Index = "") THEN SELECT anderenWert FROM Tabelle INTO :Index;
FOR SELECT A, B FROM Tabelle2
WHERE (Tabelle2.Index = :Index)
INTO :Wert1, :Wert2
DO
BEGIN
Diff=- :Wert1 - :Wert2;
END
END
^
SET TERM ; ^
MfG
Stevie
P.S.: Willkommen in der DP!
|