Fórum Sql Como faço??? #180738

qry_PesqValor.SQL.Add (´ And DataInicial >=´+ #39+ DateToStr(dt_inicial) +39);

[]´s

Vc poderia fazer da seguinte forma:

With qry_PesqValor do
Begin
Close;
SQL.Clear;
SQL.Add (´Select * From TipoItemEmol ´);
SQL.Add (´Where cd_tpItemEmol= :p_cdtipoitem);
SQL.Add (´and Data between :p_dt_inicial and :p_dt_final );
ParamByName(´p_cdtipoitem´).asInteger := cdtipoitem;
ParamByName(´p_dt_inicial´).asDate := dt_inicial;
ParamByName(´p_dt_final´).asDate := dt_final;
Open;
End;


=> A utilização de parametros facilita a programação pois deixa o código mais limpo e permite com facilidade conversão de tipos.

Outra dica é sempre tentar evitar um instrução ´Select *´, sempre tente identificar o nome das colunas a ser pesquisada, isto tornará mais rápida sua consulta.

Qualquer dúvida, entre em contarto
Derecksp@bol.com.br







qry_PesqValor.SQL.Add (´Select * From TipoItemEmol ´);
qry_PesqValor.SQL.Add (´Where cd_tpItemEmol=´+cdtipoitem);

var data1: tdatetime;

data1 := date;

qry_PesqValor.SQL.Add (´Where cd_tpItemEmol=´+cdtipoitem );
qry_PesqValor.SQL.Add (´and :data between dt_inival and dt_fimval´);
qry_PesqValor.parambyname(´data´).value := data1;

O meu param. é data e os campos onde pesquiso dt_inival e dt_fimval, mas não está dando certo, ele não acha, sei que o problema é na data....



Agradeço . Catharina...