Error en CREATE PROCEDURE desde aplicación

[ecfisa]

Hola Angel.

En principio voy a decirte que estoy totalmente de acuerdo con Casimiro. Pero a modo ilustrativo, ya sea que uses un componente TIBSQL o un TIBQuery, tenes que fijar la propiedad ParamCheck en falso.

Un ejemplo trivial:

...
{
  // Verificar si ya existe
  IBQuery1->Close();
  IBQuery1->SQL->Clear();
  IBQuery1->SQL->Add("SELECT RDB$PROCEDURE_ID FROM RDB$PROCEDURES");
  IBQuery1->SQL->Add("WHERE RDB$PROCEDURE_NAME = 'SP_MULT'");
  IBQuery1->Open();

  if (IBQuery1->IsEmpty()) {  // si no existe -> crearlo
    IBSQL1->Close();
    IBSQL1->ParamCheck = false;  // <-
    IBSQL1->SQL->Clear();
    IBSQL1->SQL->Add("CREATE PROCEDURE SP_MULT(A INTEGER, B INTEGER)");
    IBSQL1->SQL->Add("RETURNS(RESULT INTEGER) AS");
    IBSQL1->SQL->Add("BEGIN");
    IBSQL1->SQL->Add("RESULT = :A * :B;");
    IBSQL1->SQL->Add("SUSPEND;");
    IBSQL1->SQL->Add("END");
    IBSQL1->ExecQuery();
  } else
    MessageBox(0, "El procedimiento almacenado ya existe", "", MB_ICONWARNING);
...

Saludos

[Angel.Matilla]

Empezado por Casimiro Notevi

Una pregunta: ¿por qué quieres crear procedures en tiempo de ejecución?
No es "normal" ni "lógico", la estructura de la base de datos debe ser un entorno "cerrado" no modificable desde el exterior.

Gracias por vuestras respuestas. Como siempre (¡y no escarmiento!) doy la información incompleta. Lo que comentaba del código para el procedure (al igual que para las tablas, los índices o las vistas) es cuando se crea la base de datos: La primera vez que se lanza la aplicación se crea la base de datos y todos los elementos asociados a ella, no lo hago cada vez que arranco; con eso me ahorro el tener que "viajar" con la base de datos en el instalador. Disculpadme si me explicado mal que ya veo que sí.

Empezado por ecfisa

En principio voy a decirte que estoy totalmente de acuerdo con Casimiro. Pero a modo ilustrativo, ya sea que uses un componente TIBSQL o un TIBQuery, tenes que fijar la propiedad ParamCheck en falso.

¡Ah! Pues no se me había ocurrido. Haré la prueba y os diré como ha ido.

[Angel.Matilla]

Prueba rápida. Funcionó a la perfección. Muchísimas gracias a los dos. Me queda muchísimo por aprender.

Empezado por lbuelvas

Si es posible crear procedimientos almacenados / triggers desde una aplicación.

Gracias por tu aportación. Mientars escribías la respuesta estaba haciendo yo la prueba.

[[Lepe]]

Solo por completar un poquillo más...

Un IBScript, como su nombre indica, puede albergar todo el código de creación de tablas, triggers, etc de la base de datos, TODO en un solo Script. Es más compacto y fácil de leer, sobre todo si lo tienes en un fichero de texto y lo cargas en ejecución.

Se mete todo en la propiedad IBScript1.Script (TStrings) y se ejecuta con IBScript1.ExecuteScript (creo recordar).

Por cierto, en lugar de "create procedure" puedes usar "create or alter procedure", también aplicable a tablas y otros elementos. Así no tienes que chequear si ya existe. No sé que versión de los IBX usas, puede que no deje usar esa sintaxis... por probar no pierdes nada.

Saludos.

[Angel.Matilla]

Gracias por los comentarios. Sobre el mensaje de Lepe, que no sé si va dirigido a mi, decir que no uso los componentes IBX.

[Casimiro Noteví]

Empezado por Angel.Matilla

... decir que no uso los componentes IBX.

¿Y qué usas?

[Angel.Matilla]

Las paletas de componentes que vienen con Builder.