Este vídeo demostra como podemos produzir o efeito de colocar um texto dentro de aspas simples.
É o mesmo efeito da função nativa QuotedStr disponível nativamente no
Delphi / Lazarus, só que diretamente na sua instrução SQL.
Abaixo Seguem o fonte do procedimento e o exemplo de uso:
Procedimento
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | SET TERM ^ ; CREATE OR ALTER PROCEDURE QUOTEDSTR ( IN_TEXT VARCHAR(5000) NOT NULL) RETURNS ( OUT_TEXT VARCHAR(5002)) AS BEGIN out_text = ASCII_CHAR(39) || :in_text || ASCII_CHAR(39); suspend; END^ SET TERM ; ^ |
Exemplo de uso
1 2 3 4 5 6 | SELECT (SELECT q.out_text FROM quotedstr('SHOW DELPHI') q) AS TESTE_1, (SELECT q.out_text FROM quotedstr('GIOVANI DA CRUZ') q) AS TESTE_2 FROM rdb$database |
Dúvidas ou sugestões? deixe o seu comentário!
