Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Sumar columnas del componente TJvCsvDataSet (https://www.clubdelphi.com/foros/showthread.php?t=60453)

BlueSteel 02-10-2008 18:30:52

Sumar columnas del componente TJvCsvDataSet
 
Hola

Estoy usando el componente TJvCsvDataSet de la Jedi, y quisiera saber como puedo sumar los datos de una columna en particular, ya que necesito realizar un control cuando cargo un archivo...

para el caso el componente TJvCsvDataSet, tiene el nombre de DTexto

Código Delphi [-]
DTexto.Active   := False;  // Deshabilito el componente
DTexto.FileName := Concat(Label1.Caption,'\',Archivo.Text); // Asigno el archivo 
DTexto.Active   := True;  // Activo el componente 
sReg.AsInteger  := DTexto.RecordCount;  // Obtengo la cantidad de registros


por lo cual quisiera ver opcion de usar algun SQL vinculando el TJvCsvDataSet... por lo pronto la estoy recorriendo con un ciclo while .... y quisiera evitar eso

BlueSteel 02-10-2008 18:41:32

actualmente utilizo este código

Código Delphi [-]
     sTot.AsCurrency := 0;
     While Not DTexto.Eof Do
     Begin
          sTot.AsCurrency := sTot.AsCurrency + DTexto.fieldbyname('MONTO').AsInteger;
          DTexto.Next;
     end;


La franja horaria es GMT +2. Ahora son las 01:49:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi