Copiar datos entre Bases de Datos

[ElMug]

Si. Gracias Roman.

A esto me referia, mas sin detalles, por no ser usuario de los Zeos.

[martini002]

Asi es Roman, siempre se me pasa ese ExecSQL;
pero fijate lo puse asi y me da un error de sintaxis cerca del Select

Código Delphi [-]
ZQuery1.SQL.Text := 'attach database "\ruta\a\la\base2.db" as base2';
ZQuery1.ExecSQL;

ZQuery1.SQL.Text := 'insert into base2.tablaA (select * from base1.tablaA)';
ZQuery1.ExecSQL;

'SQL Error: near "Select": syntax error'

[roman]

Sí, pegué algo que no es correcto. Pon así la seguda sentencia:

Código Delphi [-]
ZQuery1.SQL.Text := 'insert into base2.tablaA select * from tablaA';

// Saludos

[martini002]

Exacto, tiene mucho sentido porque el ZConnection esta conectado a la BD Hola,
y dentro hay una tabla prueba, pero me sigue dando el mismo error, asi quedo

Código Delphi [-]
procedure TForm7.Button4Click(Sender: TObject);
begin
  ZQuery1.Close;
  ZQuery1.SQL.Text:='Attach Database "F:\Mundo.sqlite" as Mundo';
  ZQuery1.ExecSQL;
  ZQuery1.SQL.Text:='Insert Into Mundo.Prueba (Select * From Prueba)';
  ZQuery1.ExecSQL;
end;

[roman]

Quita esos paréntesis alrededor del select.

// Saludos

[martini002]

Quedo perfecto, gracias infinitas amigo Roman,

asi quedo: para copiar de una base de datos a otra,

Código Delphi [-]
procedure TForm7.Button4Click(Sender: TObject);
begin
  ZQuery1.Close;
  ZQuery1.SQL.Text:='Attach Database "F:\Mundo.sqlite" as Mundo';
  ZQuery1.ExecSQL;
  ZQuery1.SQL.Text:='Insert Into Mundo.Prueba Select * From Prueba';
  ZQuery1.ExecSQL;
end;

pero eso es solo para hacerlo una vez,
ya que cuando le vuelves a dar, te da un error,
la base de datos Mundo ya esta en uso:

'SQL Error: database Mundo is already in use'.

como se puede validar para saber si esta o no en uso?
entonces asi evitar el attach nuevamente?

Gracias

[roman]

Bueeeno, pero es que no está accesible la ayuda desde tu IP?

Código Delphi [-]
ZQuery1.SQL.Text := 'pragma database_list';
ZQuery1.Open;

if not ZQuery1.Locate('name', 'Mundo', []) then
begin
  ZQuery1.SQL.Text := 'attach database "F:\Mundo.sqlite" as Mundo';
  ZQuery1.ExecSQL;
end;

// Saludos

[martini002]

Saludos,

Hoy volvi a tener este mismo problema,
y lo resolvi asi:

Código Delphi [-]
  //Agregamos la BDT
  ZQuery3.Close;
  ZQuery3.SQL.Text:='Attach Database "'+GetCurrentDir()+'\BD\BDLGST.lum" as BDLGST';
  ZQuery3.ExecSQL;

  //Copiamos de la BDT a BDG
  ZQuery3.Close;
  ZQuery3.SQL.Text:='Insert Into RelacionUnidades Select * From BDLGST.RelacionUnidades';
  ZQuery3.ExecSQL;

Solo queria comentarlo quiza a alguien le sirva