sum

Delphi

23/09/2005

Salve, Galera ...

uso:
D7 + Mysql

seguinte tenho uma busca no meu form com uma query assim: 

zch2.Close;
zch2.Sql.Clear;
zch2.Sql.Add(´SELECT SUM(valor) as TOTAL FROM cheques´);
zch2.Sql.Add(´WHERE para > :dtpi´);
zch2.Sql.Add(´and para < :dtpf and compensado LIKE (:C)´);
zch2.Params[0].AsDate := dtpi.Date;
zch2.Params[1].AsDate := dtpf.Date;
zch2.Params[2].Value := CBCompe;
zch2.Open;


o q acontece é o seguinte, qdo busco por uma data exata, o resultado não aparece, tenho que digitar uma data sempre antes ou depois, da data que eu quero !

já tentei colocar assim: 

zch2.Sql.Add(´WHERE para => :dtpi´);
zch2.Sql.Add(´and para <= :dtpf and compensado LIKE (:C)´);


mas dá um erro de syntax:
SQL Error ... syntax to use near ´=>´17/09/2005´ .....

onde estou errando :cry: ?

Abraço a todos
Sr.Reis


Sr.reis

Sr.reis

Curtidas 0

Respostas

Marco Salles

Marco Salles

23/09/2005

já tentei colocar assim: Código: zch2.Sql.Add(´WHERE para => :dtpi´); zch2.Sql.Add(´and para <= :dtpf and compensado LIKE (:C)´); mas dá um erro de syntax: SQL Error ... syntax to use near ´=>´17/09/2005´ .....


E assim , voce ja tentoucolocar ???

[b:5a1f373a0a]Código:[/b:5a1f373a0a] 
zch2.Sql.Add(´WHERE para >=:dtpi´); 
zch2.Sql.Add(´and para <=:dtpf and compensado LIKE (:C)´);



GOSTEI 0
Sr.reis

Sr.reis

23/09/2005

já tentei amigo, Marco Salles ...

mas dá o mesmo erro ...

obrigado ... e no aguardo !

sr.reis
abraços


GOSTEI 0
Silviogs

Silviogs

23/09/2005

Olá amigo

pelo erro que está aparecendo é seguinte:

zch2.Sql.Add(´WHERE para => :dtpi´);
^---errro está aqui

zch2.Sql.Add(´and para <= :dtpf and compensado LIKE (:C)´);

não é igual ou maior é maior ou igual

correto:

zch2.Sql.Add(´WHERE para >= :dtpi´);
zch2.Sql.Add(´and para <= :dtpf and compensado LIKE (:C)´);

Ex:
texto := texto + ´and pc.dataentrada>=:mdata1 and pc.dataentrada<=:mdata2 ´;

Atenciosamente

Silio Guedes


GOSTEI 0
Silviogs

Silviogs

23/09/2005

Olá


esqueci de informar que precisa de um espaço:

zch2.Sql.Add(´SELECT SUM(valor) as TOTAL FROM cheques ´);
zch2.Sql.Add(´WHERE para > :dtpi ´);
zch2.Sql.Add(´and para < :dtpf and compensado LIKE (:C)´);

os parametrod data tente passar assim

QryProcesso.ParamByName(´mdata1´).Value := strtodate(MaskEdit1.Text);
QryProcesso.ParamByName(´mdata2´).Value := strtodate(MaskEdit2.Text);

atenciosamente

Silvio Geudes


GOSTEI 0
Silviogs

Silviogs

23/09/2005

Olá

Corrigindo


esqueci de informar que precisa de um espaço no final de cada linha antes da ultima linha da query:
v
zch2.Sql.Add(´SELECT SUM(valor) as TOTAL FROM cheques ´);
zch2.Sql.Add(´WHERE para > :dtpi ´);
zch2.Sql.Add(´and para < :dtpf and compensado LIKE (:C)´);

os parametros data tente passar assim

QryProcesso.ParamByName(´mdata1´).Value := strtodate(MaskEdit1.Text);
QryProcesso.ParamByName(´mdata2´).Value := strtodate(MaskEdit2.Text);

Atenciosamente

Silvio Guedes


GOSTEI 0
POSTAR