RDB$PROCEDURE_SOURCE - PEGAR O CODIGO FONTE
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
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
Curtidas 0
Respostas
Dempsey Silva
22/02/2013
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 '䕂䥇ൎ 偕䅄䕔吠䱂偟佒啄佔 䕓⁔䉔彌剐'
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 '䕂䥇ൎ 偕䅄䕔吠䱂偟佒啄佔 䕓⁔䉔彌剐'
GOSTEI 0