Copiar datos entre Bases de Datos

[martini002]

Saludos,

Estuve haciendo unas pruebas, pero no se me ocurre mas nada,
y aun no he podido encontrar algun ejemplo de alguien que lo halla hecho antes
miren lo que he estado haciendo, al parecer importa la BD correctamente,
porque no me da ningun error, y de paso estoy viendo cual es la base de datos conectada
actualmente, lo que me muestra que SI esta conectada la numero 1 (Hola)
pero cuando entra al proceso de copiar los datos entonces da un error,
ya las dos estan creadas, lo hice con una misma conexion,
aun no he intentado con dos, pero creo que no hace falta,
por lo menos no hasta este paso, pues las crea correctamente
que creen que pueda estar fallando aqui?

Gracias

Código Delphi [-]
procedure TForm7.Button4Click(Sender: TObject);
var
a:string;
begin
  ZQuery1.Close;
  ZQuery1.SQL.Text:='Attach Database "F:\Mundo.sqlite" as Mundo';
  ZQuery1.Open;
  ZQuery1.Close;
  A:=ZConnection1.Database;
  ShowMessage(a);//Esto muestra: F:\Hola.sqlite
  ZQuery1.SQL.Text:='Insert Into Mundo.Prueba (Select * From Hola.Prueba)';//Aqui da el error de Missing Database o una sentencia incorrecta.
  ZQuery1.Open;
end;

[Casimiro Notevi]

Empezado por martini002

pero cuando entra al proceso de copiar los datos entonces da un error,

Hombre, si quieres que alguien que sepa del tema te ayuda... no hagas que tenga que adivinar el error

[roman]

Y, ¿ZQuery está conectado a ZConnection?

// Saludos

[martini002]

Casimiro eso lo se, el error esta expresado en el codigo

Código Delphi [-]
ZQuery1.SQL.Text:='Insert Into Mundo.Prueba (Select * From Hola.Prueba)';//Aqui da el error de Missing Database o una sentencia incorrecta.

Si Roman, esta conectado el ZQuery1 al ZConnection1
Gracias

[Casimiro Notevi]

Empezado por martini002

Casimiro eso lo se, el error esta expresado en el codigo

Con mi configuración de colores no veía esa parte, salía del mismo color que el fondo.
Lo he visto al "citar", que sale en letra negra.

[ElMug]

No creo que en ese query puedas ejecutar comandos que no sean de "traer" datos. Necesitas algo que relacione "update", o "execute". Tal vez hasta un componente mas para lograrlo.

[roman]

Empezado por Casimiro Notevi

Con mi configuración de colores no veía esa parte, salía del mismo color que el fondo.
Lo he visto al "citar", que sale en letra negra.

¿Te das cuenta de que te has perdido todos los comentarios de código?

// Saludos

[Casimiro Notevi]

Empezado por roman

¿Te das cuenta de que te has perdido todos los comentarios de código?

Bueno, creo que poco tiempo, hace unos días estuve instalando unos "temas" y dejándolo a mi gusto (después de la instalación del sistema en un disco nuevo), por lo que han sido sólo 2 ó 3 días

[roman]

Empezado por martini002

Código Delphi [-]
procedure TForm7.Button4Click(Sender: TObject);
var
a:string;
begin
  ZQuery1.Close;
  ZQuery1.SQL.Text:='Attach Database "F:\Mundo.sqlite" as Mundo';
  ZQuery1.Open;
  ZQuery1.Close;
  A:=ZConnection1.Database;
  ShowMessage(a);//Esto muestra: F:\Hola.sqlite
  ZQuery1.SQL.Text:='Insert Into Mundo.Prueba (Select * From Hola.Prueba)';//Aqui da el error de Missing Database o una sentencia incorrecta.
  ZQuery1.Open;
end;

Yo puedo hacer esto sin problemas:

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;

Pero claro, si pongo Open en lugar de ExecSQL, obtengo errores

// Saludos

[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]

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