Sigo con mi "guerra particular" aprendiendo el uso de procedures y triggers. Estoy tratando de crear un procedure desde una aplicación. Este se el código:
Código:
String Codigo = "CREATE PROCEDURE Persona_Bor_Aux(iTabla VARCHAR(10), iProvincia CHAR(2)) AS DECLARE VARIABLE pCodigo VARCHAR(9); DECLARE VARIABLE pLike CHAR(12); DECLARE VARIABLE pSelect VARCHAR(250); BEGIN pCodigo = IIF(iTabla = 'CARGO' OR iTabla = 'PROFESION', 999999, 999); pLike = '%DESCONOCID%'; pSelect = 'SELECT Codigo FROM ' || iTabla || ' WHERE ' || IIF(iTabla = 'PAIS', '', 'CodPrv = :iProvincia AND ') || ' Nombre LIKE ' || pLike || ' INTO :pCodigo'; EXECUTE STATEMENT :pSelect; pSelect = 'UPDATE Personas SET ' || iTabla || ' = :pCodigo WHERE CodPrv = :iProvincia AND ' || iTabla || ' = :OLD.' || iTabla; EXECUTE STATEMENT :pSelect; END"
Para crear el procedure desde código lo hago así con un TIBQuery:
Verifico que no exista.
Código:
Auxiliar->Close();
Auxiliar->SQL->Text = "SELECT COUNT(*) Hay FROM RDB$PROCEDURES WHERE RDB$PROCEDURE_NAME = 'Persona_Bor_Aux'";
Auxiliar->Open();
Si no existe, trato de crearlo con un TIBSQL.
Código:
if (Auxiliar->FieldByName("Hay")->AsInteger == 0)
{
if (!IbSql->Transaction->InTransaction)
IbSql->Transaction->StartTransaction();
IbSql->Close();
IbSql->SQL->Text = Codigo;
IbSql->ExecQuery();
IbSql->Transaction->CommitRetaining();
}
Lo curioso es que si ejecuto ese código tal como lo he puesto, en una sola línea de código, desde EMS SQL Manager se ecrea el procedure sin mayor problema, pero desde la aplicación me da siempre un SQL Code -104, GDS Code 335544569. Este GDS no corresponde a ningún SQL Code -104. Evidentemente la base de datos está conectada.