sumatoria de una tabla mientras se cumpla una condicion

[marcoszorrilla]

Código Delphi [-]
 a:=0;
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add('select sum(monto)');
   query1.SQL.Add(' from ' + QuotedStr('control del internet'));
   query1.Open;
   a := query1.fields[0].AsInteger;   
   query1.Close;
   showmessage(inttostr(a));

Ejecuta solamente esta parte y dinos que resulta.

Porque si falla es posible que el nombre de la tabla no sea el adecuado y tengas que encerrarlo entre corchetes []

Un Saludo.