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