Esto es parte de lo que hago:
Código Delphi
[-]
with query do
begin
...
insSQL:='select * from SOSTAT_RESUL where PNTNAM like arametro and SUBNAM like :sSubE AND OBJNAM like "SUBESTACION%" order by PNTNAM';
SQL.Text:= insSQL;
Prepare;
ParamByName('sSubE').AsString := sSubE;
parametro := tipo + '-%';
ParamByName('parametro').AsString := parametro;
Open;
First;
while not EoF do
begin
objeto := FieldByName('PNTNAM').AsString;
Qinte.SQL.Text := 'select * from SOSTAT_RESUL where PNTNAM like bjeto';
Qinte.Prepare;
Qinte.Prepare;
Qinte.ParamByName('objeto').AsString := objeto;
Qinte.Open;
Table1.BatchMove(Qinte,batappend);
Table1.Next;
Qinte.Close;
...
end
Hay alguna manera de hacer que esa instruccion los agregue en el orden que los vaya encontrando en el query ?
osea, uno abajo del otro :P
Es lo unico que que necesito, con insert no funciona y lo que requiero es un insert, que siemrpe los reguistros los agregue al final de la tabla...
Esa instruccion sirve para mover el contenido de una tabla a otra, pero yo lo hago con un query, el contenido del query lo muevo a la tabla destino y el query, siempre me regresa un solo registro.