Copiar datos entre Bases de Datos

[martini002]

Saludos Amigos, donde quiera que se encuentren,
tengo un problemita con una situacion, quiza a ustedes les ha pasado anteriormente,
quisiera copiar los datos de una BD a otra, pero en el ultimo paso me quedo trancado,
y no tengo idea de que pudiera hacer, he estado buscando pero no encuentro algo que me ayude,
les muestro lo que he hecho,

Gracias Infinitas por su tiempo y su ayuda

Código Delphi [-]

//Creamos la nueva base de datos desde cero y luego agregamos un par de datos.

procedure TForm7.Button1Click(Sender: TObject);
Var
  User, Pass:String;
begin
  with ZConnection1 do
    try
      if ZConnection1.Connect=True then
        begin
          Disconnect;
        end;
      DataBase:='F:\Hola.sqlite';
      Protocol:='sqlite';
      Properties.Add('CreateNewDatabase= CREATE DATABASE '+QuotedStr('F:\Hola.sqlite')+''); 
      Properties.Add(' User '+QuotedStr(User)+' PASSWORD '+QuotedStr(Pass)+' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1');
    finally
      Connect;
    end;
  With ZQuery1 Do
    try
      Close;
      SQL.Text:='CREATE TABLE Prueba (Codigo Integer, Nombre Char(20))';
    finally
      Open;
    end;
end;

procedure TForm7.Button2Click(Sender: TObject);
begin
  With ZQuery1 Do
    try
      Close;
      SQL.Text:='Insert Into Hola Values(1, '+QuotedStr('Martin')+')';
    finally
      ExecSQL
    end;
end;

Código Delphi [-]
//Luego creamos la segunda base de datos, y aqui es donde viene la cuestion
//al final quiero pasar los datos de la tabla de arriba para esta, cuando presione el boton 4
//Alguna idea?

procedure TForm7.Button3Click(Sender: TObject);
Var
  User, Pass:String;
begin
  with ZConnection1 do
    try
      if ZConnection1.Connect=True then
        begin
          Disconnect;
        end;
      DataBase:='F:\Mundo.sqlite';
      Protocol:='sqlite';
      Properties.Add('CreateNewDatabase= CREATE DATABASE '+QuotedStr('F:\Mundo.sqlite')+''); 

      Properties.Add(' User '+QuotedStr(User)+' PASSWORD '+QuotedStr(Pass)+' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1');
    finally
      Connect;
    end;
  With ZQuery1 Do
    try
      Close;
      SQL.Text:='CREATE TABLE Mundo (Codigo Integer, Nombre Char(20))';
    finally
      Open;
    end;
end;

procedure TForm7.Button4Click(Sender: TObject);
begin
  if ZConnection1.Connect=True then
    begin
      ZConnection1.Disconnect;
    end;
  ZConnection1.DataBase:='F:\Hola.sqlite';
  ZConnection1.Protocol:='sqlite';
  ZConnection1.Connect:=True;
  ZQuery1.Close;
  ZQuery1.SQL.Text:='Select * From Hola';
  ZQuery1.Open;
end;

[[Caral]]

Hola
Nunca lo he hecho pero me parece que tienes que:
1- tener dos conexiones diferentes para cada BD.
2-Mantener las conexiones activas
3-Que las tablas y campos sean iguales
4-Hacer un recorrido de la tabla que quieras copiar.
5-Hacer un update a la tabla nueva haciendo un recorrido del query de la primera tabla.
no me hagas mucho caso, solo opino.
saludos

[martini002]

Hola Caral,
eso lo he pensado,
pero ahora la cuestion es como?
ok podria usar dos conexiones, pero como leo de un Query a otro?
Gracias

[[Caral]]

Hola
Me imagino que igual que si usaras una sola conexión, no creo que sea diferente.
No lo he hecho nunca amigo, solo me imagino.
Saludos

[Casimiro Notevi]

No sé si sqlite lo permite, algunas bases de datos sí, el trabajar con ambas a la vez, algo así como:

Código SQL [-]
insert into base2.tablaA (select * from base1.tablaA)

La forma clásica es lo que ha explicado Caral, tener 2 conexiones: (resumiendo mucho):

Código Delphi [-]
base1.open;
while not base1.eof do
begin
  insert into base2 values (base1.campo1, base1.campo2, base1.campo3);
  base2.post;
  base1.next;
end;

[roman]

Empezado por Casimiro Notevi

No sé si sqlite lo permite, algunas bases de datos sí, el trabajar con ambas a la vez, algo así como:

Código SQL [-]
insert into base2.tablaA (select * from base1.tablaA)

Sí lo permite, pero primero hay que "importar" la segunda base:

Código SQL [-]
attach database "\ruta\a\la\base2.db" as base2

// Saludos