Crear un proceso almacenado desde Delphi

[chemoide]

Hola:

Utilizo Delphi 6 con Firebird 1.x y mi problema es que quiero hacer una actualización del gdb desde el propio programa, concretamente añadir un store procedure como el siguiente (por ejemplo):

CREATE PROCEDURE ACTUALIZA_IDPRECIOS
AS

declare variable ALB INTEGER;
declare variable CAN FLOAT;
declare variable ART VARCHAR(12);
declare variable IDA INTEGER;
begin
FOR SELECT ID, REFALBARAN, CANTIDAD, REFARTICULO
FROM LALBARANPROVEEDORES
INTO :IDA, :ALB, :CAN, :ART
DO
UPDATE PRECIOS
SET REFIDLALBARAN = :IDA
WHERE REFALBARAN = :ALB
AND REFARTICULO = :ART
AND CANTIDAD = :CAN;


end;

El problema que tengo es que no sé con que componente hacerlo. Lo he intentado con el que uso siempre (TIBSQL de la solapa Interbase), y me permite crear tablas e incluso un procedimiento vacío, pero con el punto y coma parece que se lía. El Set TERM me da error, con lo que quedo en la misma.

¿Alguien puede echarme un cabo? Gracias por adelantado.

[guillotmarc]

Hola. Tienes que utilizar el IBScript (y incluir en el Script a ejecutar los comandos SET TERM).

NOTA: Si no tienes disponible ese componente, instaláte la versión de IBX descargable en el CodeCenter de la web de Borland.

Saludos.