RDB$PROCEDURE_SOURCE - PEGAR O CODIGO FONTE

22/02/2013

1

OLÁ,

Estou utilizando a consulta abaixo para obert o codigo fonte das procedure do meu BD

SELECT RDB$TRIGGER_NAME,
RDB$TRIGGER_SOURCE
FROM RDB$TRIGGERS
WHERE (RDB$SYSTEM_FLAG <> 1 or RDB$SYSTEM_FLAG IS NULL)
AND RDB$TRIGGER_NAME NOT LIKE 'CHECK%';

Pore, na coluna RDB$TRIGGER_SOURCE vem o resultado com Fonte Charset = UNICODE-16 (十਍䕄䱃剁⁅䅖䥒䉁䕌传⁋义䕔䕇...), como faço para obter na fonte ANSI CHARSET (BEGIN UPDATE TABELA SET CAMPO ....). O BD esta registrado com a fonte ANSI CHARSET
Responder

Posts

22/02/2013

Dempsey Silva

Estou precisando pegar o codigo fonte das PROCEDURES pelo Delphi... fiz a SQL no codigo:

qryOrigem.SQL.Text := ' SELECT RDB$PROCEDURE_NAME, RDB$PROCEDURE_SOURCE FROM RDB$PROCEDURES' +
' WHERE (RDB$SYSTEM_FLAG <> 1 OR RDB$SYSTEM_FLAG IS NULL)' +
' AND RDB$PROCEDURE_NAME NOT LIKE '+chr(39)+'IBE$%'+chr(39);

porém o resultado nao consigo pegar no formato ANSI

ShowMessage(lqryOrigem.FieldByName('RDB$PROCEDURE_SOURCE').AsString)); //Sai o resultado '䕂䥇ൎ 偕䅄䕔吠䱂偟佒啄佔൓ 䕓⁔䉔彌剐'
Responder