Pesquisa SQL usando o quotedstr()

Question

select pgit.cod_titpg,cod_titpgit,vencto_titpgit,pagto_titpgit,parc_titpgit,vlrec_titpgit,vlparc_titpgit,vldesc_titpgit,vloutras_titpgit,juros_titpgit,vlsald_titpgit,plano_titpg,cod_clien,razao_clien,...

Dataclass · Answer

Midas,Olha, qual o banco que tu acessas?Porque pesquisa em campos Data podem ter particularidades ,ex : no MSAccess usa-se algo como :[code:1:dd1a23426e] qrEventos.SQL.Text := � SELECT *  �+                                  �   FROM tabEventos                                   � WHERE (Data >=#�+ varDataPesquisa +�)�;[/code:1:dd1a23426e]J� no Oracle � comum utilizar a fun��o to_date etc...Estamos a disposi��o!...

Dataclass · Answer

Retificando![quote:463160cb47=�DataClass�]Midas,Olha, qual o banco que tu acessas?Porque pesquisa em campos Data podem ter particularidades ,ex : no MSAccess usa-se algo como :[code:1:463160cb47] qrEventos.SQL.Text := � SELECT *  �+                                  �   FROM tabEventos �+                                  � WHERE (Data >=#�+ varDataPesquisa +�)�;[/code:1:463160cb47]J� no Oracle � comum utilizar a fun��o to_date etc...Estamos a disposi��o![/quote:463160cb47]...

Emerson Nascimento · Answer

para vc n�o se preocupar com as particularidades do banco, utilize par�metros na query. por exemplo:

select pgit.cod_titpg,cod_titpgit,vencto_titpgit,pagto_titpgit,
parc_titpgit,vlrec_titpgit,vlparc_titpgit,vldesc_titpgit,
vloutras_titpgit, juros_titpgit,vlsald_titpgit,plano_titpg,
cod_clien,razao_clien,end_clien,bair_clien,munic_clien,
uf_clien,tel_clien,limit_clien,cpf_clien
from titpagarit pgit, titpagar pg, cliente cli, notactb ntctb
where (vencto_titpgit between :DataInicial and :DataFinal)
and (pgit.cod_titpg=pg.cod_titpg)
and (pg.cod_notactb=ntctb.cod_notactb and ntctb.cod_clien=cli.cod_clien)
order by ntctb.cod_clien,vencto_titpgit,pgit.cod_titpg

da� vc faz:
query.close;
query.parambyname(�datainicial�).asdate := data_inicial; // pode ser asdatetime
query.parambyname(�datafinal�).asdate := data_final; // pode ser asdatetime
query.open;

Midas · Answer

Na verdade descobri o problema, � que estou usando o Firebird 1.5 e ele esta reconhecendo �mm/dd/yy� se passo o parametro vai bem mas n�o tenho como pois, tenho uma unit com todas as pesquisas assim passo os parametros diretamente na query, n�o tenho como usar parambyname. Alguem tem alguma saida ?

Casetek · Answer

Eu uso o access e criei estas 2 funcoes pra facilitar as chamadas

� muito mais f�cil usar ap() do que QuotedStr()
function Ap(nome: String): String;
begin
Result:= QuotedStr(trim(nome));// apostofros e caracteres especiais
end;

Esta inverte o dia pelo mes e ja adiciona os #
function DataAm(data: TDateTime): String;
var Aux: String;
begin // supondo que o ano tenha 4 digitos dd/mm/aaaa
aux:= DateToStr(data);
result:= ��+ copy(Aux,4,2) + �/� + copy(Aux,1,2) + �/� + copy(Aux,7,4) + ��;
end;

Select * from clientes where clinome = ap(Edit1.text) and clinasc = dataAm( dataPesquisa)

Por via das duvidas nas minhas aplicacoes sempre coloco no create do form principal:

DecimalSeparator:= �,�;
ShortDateFormat:= �dd/mm/yyyy�;
CurrencyDecimals:= 2;
NegCurrFormat:= 1;

F�rum Pesquisa SQL usando o quotedstr() #240845