Hola de nuevo amigos del mejor foro de delphi!!
Primera mente quiero agradecer por toda su ayuda, ya que por medio de esta pagina he solucionado muchos problemas.
pero mi problema es el siguiente: en un proyecto de delphi tengo un form con los siguientes componentes:
Código Delphi
[-] Table1: TTable;
Table2: TTable;
Database1: TDatabase;
Database2: TDatabase;
Button1: TButton;
Query1: TQuery;
Query2: TQuery;
lo que estoy tratando de hacer es que de una base de datos pasar datos de una tabla a otra base de datos mediante un querys
algo asi:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var cont:integer;
begin
cont:=0;
showmessage('iniciado');
with database2 do
begin
Close;
Open;
end;
with query2 do
BEGIN
close;
SQL.Text:='select * from vw_movimientos';
open;
first;
database1.Close;
database1.Open;
showmessage(IntToStr(RecordCount));
for cont:=0 to RecordCount -1 do
begin
query1.Close;
query1.SQL.Text:='insert into vw_movimientos(fecha) values (''' +fields[0].AsString + ''') ';
query1.ExecSQL;
query1.Close;
query2.Next;
end;
database1.Close;
close;
end ;
showmessage('finalizado');
end;
pero solo me copia 65,904 registros de 2,300,000 alguien tiene idea de por que pasa esto?
Gracias