Crear un proceso almacenado desde Delphi
 

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.

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.