Foros Club Delphi - sumatoria de una tabla mientras se cumpla una condicion

Página 2 de 2

Mostrar 40 mensajes desde este tema en una página

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - sumatoria de una tabla mientras se cumpla una condicion (https://www.clubdelphi.com/foros/showthread.php?t=49739)

douglas

29-10-2007 18:51:37

pues para conseguir la fecha utilizo esta funcion

Código Delphi [-] 
function GetLocalD: String;
 var
    stSystemTime : TSystemTime;
 begin
    Windows.GetLocalTime(stSystemTime);
    Result := DateToStr( SystemTimeToDateTime( stSystemTime ) );
 end;

y luego el resultado lo coloco en un edit

Código Delphi [-]procedure TForm3.FormCreate(Sender: TObject);
begin
edit1.Text:=getlocald;
end;

y luego del edit hago todo lo que ya vimos anteriormente, la verdad no se que hacer, perdon por tantas molestias

eduarcol

29-10-2007 20:27:14

porq la fecha no bastaria??

Código Delphi [-]DatetoStr(Date);

y ahora que error te da???, no sirvio mi ultima sugerencia???

douglas

29-10-2007 21:57:47

perdon eduardocol, ya funciono, pero ahora el resultado que me da es cero, perdon tanta molestia e ignorancia de mi parte realize el siguiente codigo, y me muestra cero.

Código Delphi [-]procedure TForm3.Button1Click(Sender: TObject);
var
a:integer;
b:string;
begin
    a:=0;
    query1.Close;
   query1.SQL.Clear;
   a:=a+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;
   showmessage(inttostr(a));
end;

egostar

29-10-2007 22:12:16

Cita:

Empezado por douglas (Mensaje 242104)

perdon eduardocol, ya funciono, pero ahora el resultado que me da es cero, perdon tanta molestia e ignorancia de mi parte realize el siguiente codigo, y me muestra cero.

Código Delphi [-]procedure TForm3.Button1Click(Sender: TObject);
var
a:integer;
b:string;
begin
    a:=0;
    query1.Close;
   query1.SQL.Clear;
   a:=a+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;
   showmessage(inttostr(a));
end;

A ver, porque no haces esto:

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.SQL.Add(' where fecha between :FechaIn and :FechaFin');
   query1.parambyname('FechaIn').Value:=edit1.text;
   query1.parambyname('FechaFin').Value:=edit2.text;
   query1.Open;
   a := query1.fields[0].AsInteger;   
   query1.Close;
   showmessage(inttostr(a));

Salud OS

douglas

29-10-2007 22:27:56

gracias señor le agradezco mucho todas sus finas atenciones, a todos los que me ayudaron en este foro, les agradezco todo todo, y cuando necesiten cualquier cosa y esta en mis posibilidades ayudarlos no duden en acudir a mi persona

marcoszorrilla

29-10-2007 22:30:33

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.

Caral

29-10-2007 22:36:06

Hola
La verdad no entiendo todavia el problema, pon dos datetimepicker en el form y hazlo asi, pruebalo a ver que pasa

Código Delphi [-]procedure TForm3.Button1Click(Sender: TObject);
var 
b:string;
begin     
query1.Close;
query1.SQL.Text:= 'select sum(monto)' +
                          ' from ' + QuotedStr('control del internet') '+
                          ' where fecha between :FechaIn and :FechaFin' ;
   query1.parambyname('FechaIn').Value:=Datetimepicker1.dateTime;
   query1.parambyname('FechaFin').Value:=Datetimepicker2.dateTime;
   query1.Open;
   showmessage(inttostr(a));
end;

Cuando usas text, no se necesita limpiar la sentencia, para mi es mas claro.
Saludos

douglas

29-10-2007 22:36:20

con el codigo de aqui a bajo me suma un numero mas que el anterior

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));

pero con este otro codigo me suma lo que deberia de ser

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.SQL.Add(' where fecha between :FechaIn and :FechaFin');
   query1.parambyname('FechaIn').Value:=edit1.text;
   query1.parambyname('FechaFin').Value:=edit2.text;
   query1.Open;
   a := query1.fields[0].AsInteger;   
   query1.Close;

showmessage(inttostr(a));

douglas

29-10-2007 22:40:57

en realidad señores del foro les agradezco tanto por su ayuda, a todos, pues de un poco de informacion de todos logramos hacer un boton, enserio a todas las personas que me ayudaron no duden en molestarme cuando necesiten cualquier cosa menos dinero que apenas y tengo para pagar lo del ciber jajajajaja, no enserio muchas gracias todos y aqui dejo el codigo final que me funciono a las mil maravillas, a todos muchas gracias y un gran abrazo.

Código Delphi [-]procedure TForm3.Button2Click(Sender: TObject);
var
a:integer;
begin
 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));
end;

La franja horaria es GMT +2. Ahora son las 04:36:23.

Página 2 de 2

Mostrar 40 mensajes desde este tema en una página