Como criar Trigger em tempo de execução? O que há de errado.

Delphi

20/09/2005

O que há de errado com o código abaixo, pois estou gerando o banco, tabelas, chave primária e generator em tempo de execução sem problemas, mas se acrescento isso aí, deseparece a base de dados inteira. Que pode ser?


CONST
c_SQL_TriggerUser : String = ´CREATE TRIGGER USUARIOS_BI FOR USUARIOS ´+
´ACTIVE BEFORE INSERT POSITION 0 ´+
´AS ´+
´BEGIN ´+
´ if (NEW.CODUSUARIO IS NULL) then ´+
´ NEW.CODUSUARIO = GEN_ID(GEN_USUARIOS_ID, 1); ´+
´end ´;

Begin
with IBQuery1 do
Begin
Close;
SQL.Clear;
SQL.Add(c_SQL_TriggerTel);
ExecSQL;
end;
end;


Emir Neto

Emir Neto

Curtidas 0
POSTAR