debes limpiar la lista
Código Delphi [-]procedure TForm3.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select sum(monto)');
query1.SQL.Add(' from ' + QuotedStr('control del internet'));
query1.SQL.Add(' where fecha between :FechaIn and :FechaFin');
query1.parambyname('FechaIn').Value:=edit1.text;
query1.parambyname('FechaFin').Value:=edit2.text;
query1.Open;
end;
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
|