RDB$PROCEDURE_SOURCE - PEGAR O CODIGO FONTE

22/02/2013

0

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
Dempsey Silva

Dempsey Silva

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar