Opciones para copiar registros de una tabla a otra

[pmtzg]

haciendo los cambios ahora me marca

table2ataset no in edit or insert mode

si lo cambio a insert

no graba bien los registros

graba en cada renglon un solo campo nada mas

[[oscarac]]

Empezado por pmtzg

haciendo los cambios ahora me marca

table2ataset no in edit or insert mode

si lo cambio a insert

no graba bien los registros

graba en cada renglon un solo campo nada mas

es por lo que te acabo de comentar en el comentario anterior.... estas haciendo post sin hacer edit o appen
debes sacar ese post fuera del bloque begin end...

[pmtzg]

lo volvi a crear distinto y me hace los mismo este es el codigo:

corregido ya funciona este codigo

Código Delphi [-]
procedure TForm2.Button4Click(Sender: TObject);
var
  I,nr: Integer;
begin
query2.DatabaseName := 'Report1';   {es un addalias con el path de files paradox}
query2.SQL.Clear;

{para q me funcionara agregue este a la consulta  (ctlpol) as num_reg }

consult := 'Select distinct (ctlpol) as num_reg, cclie, status, tipo_mov, no_factura, docto, refer, importe, '+
'fecha_apli, fecha_venc, cob, afec_coi, obs_cxccxp, bank_com, strcvevend, num_moned, '+
'tcambio, impmon_ext, cconrefer, fechaelab, usuario, ctlpol, cvefolio ' +
' from BdOld\cuen04 '+
'union '+
'Select  (ctlpol) as num_reg, cclie, status, tipo_mov, no_factura, docto, refer, importe, '+
'fecha_apli, fecha_venc, cob, afec_coi, obs_cxccxp, bank_com, strcvevend, num_moned, '+
'tcambio, impmon_ext, cconrefer, fechaelab, usuario, ctlpol, cvefolio ' +
'from cuen04  order by fecha_apli desc ' ;


query2.SQL.Add(consult);
query2.Active := true;
label1.Caption :='Total Reg.: '+ inttostr(query2.RecordCount);

//query2.First;
table2.DatabaseName := 'Report1';
table2.TableName := 'CONSULTA2';
g1.MinValue := 0;
g1.MaxValue := query2.RecordCount;
SHOWMESSAGE ('NO. REG.: '+inttostr(query2.RecordCount));
 table2.Open;
 //table2.Append;
 //query2.First;
 nr:=query2.RecordCount;  {total de registros en la base} 
 while not query2.Eof do
  begin
      table2.append;
     for I := 0 to query2.fields.Count - 1 do
        begin

          table2.FieldByName('num_reg').AsInteger:=nr;
           table2.Fields[i].Value := query2.Fields[i].Value;
        end;                           {aqui estaba mi error  modifique esto y a la consulta agrege el campo q se incrementa}
          table2.insert;
          query2.Next;
          g1.Progress := query2.RecNo;
           nr:=nr-1;
        

  end;

   table2.Close;
   query2.Close;
   showmessage ('Listo proceso terminado con exito ');

end;

quiza si estoy cometiendo un error y no me doy cuenta

[pmtzg]

mi estimado oscarac

eres grande

por tu paciencia
ahora si ... ya quedo este asunto }

en verdad no lo pude ver tenias razon gracias mi amigo que amigo mi hermano

[[oscarac]]

Empezado por pmtzg

mi estimado oscarac

eres grande

por tu paciencia
ahora si ... ya quedo este asunto }

en verdad no lo pude ver tenias razon gracias mi amigo que amigo mi hermano

de nada.... en esta pagina tambien he recibido mucha ayuda...
P.D.
hermano hazme un prestamo... jajajajaja

[pmtzg]

ya estas

me ha hecho un gran favor y ya modifique para que cualquier persona q busque y en tu honor

sepa como orientarse


saludos y cuanto nece$$$$$itas jejejejeej