Consulta no banco dados

Delphi

05/11/2008

Boa noite..

Estou com problemas nas consultas no banco..
Na tabela ´Financeiro´ do banco ´BD.mdb´ tem os campos ´Usuario , Data , Valor´.
Precisso apessentar em um DBGrid1 todos os registros de um determinado Usuario (Informado em um Edit1)
Codigo OK :
// ********************* DBGrid1 *******************************
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(´SELECT * FROM FINANCEIRO WHERE USUARIO =´+quotedstr(Edit1.Text));
ADOQuery1.Open;
// ********************* DBGrid1 *******************************

Agora precisso apressenta o total do campo ´Valor´ em um ´DBEdit1´ ou ´Edit´ mas com a data inicial informada
em um ´Edit2´ e a data final de um ´Edit3´(Edit2 e Edit3 possuem datas colhidas de um ´MonCalendar1´ Ex: 25/10/08)
Precisso criar mais um campo ´Total´ no banco?(Para armazenar o valor total).

Utilizei o codigo abaixo, com ADOQuery2 porque com ADOQuery1 ele limpa o DBGrid1 ou seja não retorna nada

// ********************* Total *******************************
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add(´SELECT sum(VALOR) FROM FINANCEIRO WHERE USUARIO = ´+quotedstr(Edit1.Text));
ADOQuery2.SQL.Add(´AND data between :INICIO and :FINAL´);
ADOQuery2.Parameters.ParamByName(´INICIO´).Value:= StrToDate(Edit1.Text);
ADOQuery2.Parameters.ParamByName(´FINAL´).Value := StrToDate(Edit2.Text);
ADOQuery2.Open;
// ********************* Total *******************************

Este codigo não da erro de compilação apenas não apresenta o valor esperado....

Grato..


Freed

Freed

Curtidas 0
POSTAR