Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Pisa los datos del tdxMemData.... (https://www.clubdelphi.com/foros/showthread.php?t=13916)

scooterjgm 03-09-2004 16:02:15

Pisa los datos del tdxMemData....
 
hola!!

tengo un tdxMemData en el vuelco los resultados obtenidos desde el SQLQuery y el problema q tengo es q no se como hacer para almacenar esos resultados ya q necesito ejecutar la consulta varias veces y cada vez q vuelco los datos al MdmData los pisa quedando solo los ultimos. estas son las sentencias q realizo dentro de un bucle while para repetir la consulta con diferentes parametros. Es como una consulta dinamica...

SQLQuery.Active := True;

dxMemData.Active := False;
dxMemData.CopyFromDataSet(SQLQuery);
dxMemData.Active := True;

SQLQuery.Active := False;


Si alguien sabe como hacer para q no pise los datos y es tan amable... q me eche una mano.

Gracias!!

__cadetill 03-09-2004 16:25:53

Esto...... y que es un dxMemData???? :(

scooterjgm 03-09-2004 18:24:38

es un componente de Dev Express. es como una tabla en memoria dxMemData (dxmdaset). Creo q es como dbMemo...

__cadetill 03-09-2004 18:26:25

si es como una tabla.... siempre puedes hacer un bucle y añadirlos uno a uno sin borrar los que ya había

scooterjgm 06-09-2004 12:00:08

ahora mismo uso la instruccion

dxMemData.CopyFromDataSet(SQLQuery);

para volcar los datos. q tengo q poner para añadrilos??

__cadetill 06-09-2004 12:06:41

Pues algo como

Código Delphi [-]
while not SQLQuery.Eof do
begin
  dxMemData.Append;
  dxMemData.FieldByName('campo').AsXXX := SQLQuery.FieldByName('campo').AsXXXX;
  dxMemData.FieldByName('campo').AsXXX := SQLQuery.FieldByName('campo').AsXXXX;
....
  dxMemData.FieldByName('campo').AsXXX := SQLQuery.FieldByName('campo').AsXXXX;
  dxMemData.Post;
  SQLQuery.Next;
end;
A ver si te sirve


La franja horaria es GMT +2. Ahora son las 06:57:23.

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