ibscript te execute block cümlesi çalışmıyor.

[erkankurtaga]

delphi 2006 firebird 2.5 kullanıyorum. ibscript componenti ile execute block bloğunu çalıştırma ihtiyacım oldu ama sürekli hata veriyor ne yapmam lazım
örnek olarak aşağıya kod bloğu aşağıdadır. Nerde hata yapıyorum bilmiyorum. Şİmdiden yardımlarınız için teşekkürler.

Kod: Tümünü seç

SET TERM !! ;

EXECUTE BLOCK AS
DECLARE VARIABLE STMT VARCHAR(1000);
BEGIN
FOR SELECT 'ALTER INDEX '||RDB$INDEX_NAME ||' ACTIVE;' FROM RDB$INDICES
WHERE (RDB$SYSTEM_FLAG IS NULL OR RDB$SYSTEM_FLAG = 0)
ORDER BY RDB$FOREIGN_KEY NULLS FIRST
INTO :STMT
DO EXECUTE STATEMENT :STMT;
END!!

SET TERM ; !!