48 respuestas en este tema

[felipe]

Que tal... 

Busco una ayuda ya que no logro encontrar una solución eficiente para crear lo siguiente:
Trato de elaborar una función en la que pueda consultar un dato de la BD que luego pueda ir ingresando a un vector dinámico...
Los datos serían algo asi:

31.125
32.145
30.789
31.987...etc

los cuales deberé ingresar en el vector. Ahora, como no se cuantos datos pueda arrojar la consulta, mi vector deberia declararlo asi:

delphi

var
  v_datos: array of Integer;
  total_datos: Integer;
begin
  total_datos := ...FieldCount; // En esta variable asigno el total de datos de la consulta
  SetLength (v_datos, total_datos);

Ya que los valores pueden ser muy altos, busco la manera de crear con ellos porcentajes, pero ¿como podria crear un valor máximo y como ir creando estos porcentajes?



PD: Ahi perdonan, tengo la mente fria 

[felipe]

Pensándolo bien... me gustaría crear los porcentajes antes de agregar los valores al vector. 


A ver muchachos... una manito 

[Caral]

Hola
Eso es lo unico que puedo aportar, una manita, eso si hacia arriba 
Saludos

[felipe]

Hola
Eso es lo unico que puedo aportar, una manita, eso si hacia arriba 
Saludos

Jajajaja  ...
Espero que alguien más también lo haga  ...

[Caral]

Hola
No se si entiendo bien la idea.
Tienes unos datos, estos se van sumando, cada cierto tiempo.
Lo que quieres es que en cada paso se saque un porcentaje de ese dato ya sumado?.
Lo que no entiendo es contra que dato.
Saludos

[enecumene]

Espero que alguien más también lo haga  ...

 

[felipe]

Hola
No se si entiendo bien la idea.
Tienes unos datos, estos se van sumando, cada cierto tiempo.
Lo que quieres es que en cada paso se saque un porcentaje de ese dato ya sumado?.
Lo que no entiendo es contra que dato.
Saludos

Que malo soy para explicar  ...

Lo explicaré con lo que tengo hasta el momento

delphi

var v_datos: array of Integer;
    total_datos, I: Integer;
begin
  SQLQuery1.Close;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('select valores from tabla');
  SQLQuery1.Open;
  total_datos := SQLQuery1.FieldCount;
  SetLength (v_datos, total_datos);
  for I := 0 to total_datos - 1 do
    begin
      SQLQuery1.First;
      v_datos[I] := SQLQuery1.Fields[I].AsInteger;
      SQLQuery1.Next;
    end;
end;

Entonces hasta acá, en cada posicion del vector tendria algo por ejemplo así:

'31.235','32.564','30.145','31.568','32.641','32.641','31.456','30.410'

A lo que me refiero, es que al estos ser valores tan altos, lo que quiero es crear con ellos un porcentaje... pero como cambian constantemente necesito un tope para hacerlo... es aqui donde tengo la duda  .


PD: Gracias por la mano Fernando 

[felipe]

Acabo de notar algo raro ?

El FieldCount me esta retornando 1, cuando realmente existen 12 registros en la base de datos...

¿Que estaré haciendo mal? 

[Fenareth]

No será con RecordCount ??? 

[felipe]

No será con RecordCount ??? 

Gracias Fena... pero mira que con ese me da error 

[Fenareth]

No será con RecordCount ??? 

Gracias Fena... pero mira que con ese me da error 

Error ?... si nos dices que error tal vez podamos ayudarte más fácilmente... por favor sigue las normas del foro        :$

[felipe]

No será con RecordCount ??? 

Gracias Fena... pero mira que con ese me da error 

Error ?... si nos dices que error tal vez podamos ayudarte más fácilmente... por favor sigue las normas del foro        :$

Como digas  (a)...

Database Server Error: Table unknow tabla

 

[Caral]

Hola
Solo opino.

delphi

var v_datos: array of Integer;
 total_datos, I: Integer;
begin
 SQLQuery1.Close;
 SQLQuery1.SQL.Clear;
 SQLQuery1.SQL.Add('select Sum(valores) as valores from tabla');
 SQLQuery1.Open;
 total_datos := SQLQuery1.Fields[0].Value;
 SetLength (v_datos, total_datos);
 for I := 0 to total_datos - 1 do
   begin
     SQLQuery1.First;
     v_datos[I] := SQLQuery1.Fields[I].AsInteger;
     SQLQuery1.Next;
   end;
end;

Saludos

[felipe]

Gracias Caral...
Aunque para este caso, no me es necesario hacer un Select Sum() lo tendré en cuenta ; ya que simplemente quiero pasar cada valor de la consulta a una posición en el vector. Además finalmente el interrogante mio es como lograr crear con ellos porcentajes.

[Caral]

Hola
Y no crees que no hace falta hacer un conteo si estas haciendo un ciclo for?.

delphi

     var v_datos: array of Integer;
        total_datos, I: Integer;
       begin
        SQLQuery1.Close;
        SQLQuery1.SQL.Clear;
        SQLQuery1.SQL.Add('select valores from tabla');
       SQLQuery1.Open;
       total_datos := SQLQuery1.Fields[0].Value; 
       SetLength (v_datos, total_datos);
      for I := 0 to total_datos - 1 do
          begin
           SQLQuery1.First;
          v_datos[I] := SQLQuery1.Fields[I].AsInteger; // esta parte no la termino de entender?
          SQLQuery1.Next;
          end;
       end;

Saludos

[Fenareth]

....

delphi

var v_datos: array of Integer;
    total_datos, I: Integer;
begin
  SQLQuery1.Close;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('select valores from tabla');
  SQLQuery1.Open;
  total_datos := SQLQuery1.FieldCount;
  SetLength (v_datos, total_datos);
  for I := 0 to total_datos - 1 do
    begin
      SQLQuery1.First;   // AQUI... CADA VEZ QUE INGRESA AL CICLO SE POSICIONA AL PRINCIPIO ???
      v_datos[I] := SQLQuery1.Fields[I].AsInteger;
      SQLQuery1.Next;
    end;
end;

....

Es normal que cada vez que ingresa al ciclo for se posicione al principio de la Query ? 

[felipe]

¿Un conteo?, disculpa pero no te entiendo muy bien  :^)...

delphi

v_datos[I] := SQLQuery1.Fields[I].AsInteger;

En esta linea de codigo lo que pretendo es asignar a cada posición del vector cada resultado encontrado en la consulta... aunque corrigiendo un poco sería asi:

delphi

v_datos[I] := SQLQuery1.Fields[0].AsInteger;

[felipe]

....

delphi

var v_datos: array of Integer;
    total_datos, I: Integer;
begin
  SQLQuery1.Close;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('select valores from tabla');
  SQLQuery1.Open;
  total_datos := SQLQuery1.FieldCount;
  SetLength (v_datos, total_datos);
  for I := 0 to total_datos - 1 do
    begin
      SQLQuery1.First;   // AQUI... CADA VEZ QUE INGRESA AL CICLO SE POSICIONA AL PRINCIPIO ???
      v_datos[I] := SQLQuery1.Fields[I].AsInteger;
      SQLQuery1.Next;
    end;
end;

....

Es normal que cada vez que ingresa al ciclo for se posicione al principio de la Query ? 

Tienes razón Fena, ya lo corregí... es el sueño, tu sabes 

[eduarcol]

Pero sigo sin entender, quieres un porcentaje de progreso?, o un porcentaje respecto a que?

[enecumene]

Puer un porcentaje por cada valor de cada vector, o sea, si un vector tiene 30,500 como valor, él quiere mostrar el porcentahe que representa ese valor del monto total, entonces, en el select llevandonos de Caral, debería ser así:

sql

SELECT (campo * 100 / SUM(Campo)) AS Porcentaje FROM TABLA

Así te saca el procentaje de cada Vector, no lo he probado lo hice de memoria pero creo que te debería de funcionar

Saludos.