A linguagem pascal tem uma fun\u00e7\u00e3o muito util para constru\u00e7\u00e3o de queries chamada QuotedStr, esta fun\u00e7\u00e3o coloca uma string entre aspas, por exemplo digamos que uma variavel onde nome=Sant’Ana, e agora voc\u00ea precisa usar ela dentro de uma querie<\/p>\n\n\n\n
SQL.Text:='select * from clientes where nome='+QuotedStr(nome);<\/pre><\/div>\n\n\n\nO QuotedStr notar\u00e1 as aspas simples em ‘nome’ e a duplicar\u00e1 para que o c\u00f3digo SQL funcione ficando assim Sant”Ana. Dentro da linguagem procedural(psql daqui em diante) tamb\u00e9m precisamos disso em situa\u00e7\u00f5es variadas, por exemplo, quando precisamos usar execute statement<\/strong> com comandos SQL puros e voc\u00ea n\u00e3o sabe se alguns deles ter\u00e3o aspas simples em seu interior. Por essa raz\u00e3o criei a fun\u00e7\u00e3o STR_QUOTED:<\/p>\n\n\n\n
create or alter function STR_QUOTED (\n AVALUE varchar(4096),\n AUSE_IN_SQL boolean = false)\nreturns varchar(4096)\nas\ndeclare variable Q varchar(1);\nBEGIN\n \/* essa procedure retorna um texto (4096 bytes) entre aspas simplesmente e opcionalmente\n com aspas simples dentro do texto transformando-se em aspas simples duplas.\n p='ola mundo'\n ret=STR_QUOTED(:p, false); \/\/ resultado: 'ola mundo' com aspas simples abrindo e fechando o texto\n se o segundo parametro for 'true' ele tamb\u00e9m trocar\u00e1 aspas simples que houverem dentro\n do texto para aspas simples duplas.\n Util para uso com banco de dados e instru\u00e7\u00f5es execute statement\n by gladiston.santana[em]gmail.com\n *\/\n q='''';\n if (:AUSE_IN_SQL) then\n begin\n if (position (:q in :AVALUE)>0) then\n begin\n --troca aspas simples por duplas\n AVALUE = replace (:AVALUE, :q, :q||:q);\n end\n end\n -- Retorna uma string entre aspas\n RETURN :q||:AVALUE||:q;\nEND<\/pre><\/div>\n\n\n\nComo usar<\/h2>\n\n\n\n
SQL='update clientes set status='||\n STR_QUOTED('A')||\n ' where uf='||STR_QUOTED('SP');\nexecute statement :SQL;<\/pre><\/div>\n\n\n\nConclus\u00e3o<\/h2>\n\n\n\n
Agora voc\u00ea tem um QuotedStr em psql.<\/p>\n","protected":false},"excerpt":{"rendered":"
A linguagem pascal tem uma fun\u00e7\u00e3o muito util para constru\u00e7\u00e3o de queries chamada QuotedStr, esta fun\u00e7\u00e3o coloca uma string entre aspas, por exemplo digamos que uma variavel onde nome=Sant’Ana, e agora voc\u00ea precisa usar ela dentro de uma querie O QuotedStr notar\u00e1 as aspas simples em ‘nome’ e a duplicar\u00e1 para que o c\u00f3digo SQL […]<\/p>\n","protected":false},"author":4,"featured_media":0,"parent":1109,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"templates\/template-full-width.php","meta":{"footnotes":""},"class_list":["post-1458","page","type-page","status-publish","hentry"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/gladiston.net.br\/en\/wp-json\/wp\/v2\/pages\/1458","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/gladiston.net.br\/en\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/gladiston.net.br\/en\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/gladiston.net.br\/en\/wp-json\/wp\/v2\/users\/4"}],"replies":[{"embeddable":true,"href":"https:\/\/gladiston.net.br\/en\/wp-json\/wp\/v2\/comments?post=1458"}],"version-history":[{"count":6,"href":"https:\/\/gladiston.net.br\/en\/wp-json\/wp\/v2\/pages\/1458\/revisions"}],"predecessor-version":[{"id":2020,"href":"https:\/\/gladiston.net.br\/en\/wp-json\/wp\/v2\/pages\/1458\/revisions\/2020"}],"up":[{"embeddable":true,"href":"https:\/\/gladiston.net.br\/en\/wp-json\/wp\/v2\/pages\/1109"}],"wp:attachment":[{"href":"https:\/\/gladiston.net.br\/en\/wp-json\/wp\/v2\/media?parent=1458"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}