Foros Club Delphi

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)
-   -   LLenar Array con Query (https://www.clubdelphi.com/foros/showthread.php?t=81531)

RaulA 22-11-2012 15:58:21

LLenar Array con Query
 
No se si esta sera un pregunta absurda pero lo que me gustaria seria llenar un array de TDateTime con una consulta query que unicamente devuelve unos pocos TDateTime.

Casimiro Notevi 22-11-2012 16:17:57

El query lo recorres y vas añadiendo los valores al array, ¿es eso lo que quieres hacer?, ¿es una cantidad fija o variable?

Faust 22-11-2012 16:53:58

Cita:

Empezado por Casimiro Notevi (Mensaje 450172)
El query lo recorres y vas añadiendo los valores al array, ¿es eso lo que quieres hacer?, ¿es una cantidad fija o variable?

Ahí te va el ejemplo

Código Delphi [-]
var
  qryDatos : TADOQuery;
  ArrayOfDateTime : array of TDateTime;
...
...
...
  qryDatos:= TADOQuery.Create(nil)
  qryDatos.Connection:= connADOConnection;
  with qryDatos do
  begin
    SQL.Text:= 'SELECT CampoFecha FROM TABLA ORDER BY CampoFecha';
    Open;
      while not Eof do
      begin
        SetLength(ArrayOfDateTime, Length(ArrayOfDateTime) + 1);
        ArrayOfDateTime[Length(ArrayOfDateTime) - 1]:= FieldByName('CampoFecha').AsDateTime;
        Next;
      end;
    Close;
  end;

Así al vuelo es el ejemplo que te doy... ojalá te sirva amigo


La franja horaria es GMT +2. Ahora son las 12:19:55.

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