Conectar 2 BD con FireBird
Buenas amigos del Foro.
Tengo un problemilla que no se como realizar. Os Comento. Tengo 2 BD en directorios distintos y quiero pasar de una BD a otra toda la información de un tabla.
Directorio1\BD1.gdb
Directorio2\BD2.gdb
La conexión a la BD1 es correcta pero la BD2 no me conecta.
dmBD2.BD2.DatabaseName := 'C:\Directorio2\BD2.gdb';
dmBD2.BD2.Connected := True;
dmBD2.TransBD2.Active := True;
//Copiamos las Tablas Maestras
DATASETLOCAL := tIBDataSet(dmBD1.EMPRESAS);
DATASETLOCAL.Active := TRUE;
//Copiamos las Tablas Destino
DATASETLOCAL_Destino := tIBDataSet(dmBD2.EMPRESAS);
DATASETLOCAL_Destino.Active := True;with dmBD1.AuxQuery do
begin
Active := FALSE;
SQL.Text := 'SELECT * FROM Articulos';
Active := TRUE;
First;
while not Eof do
begin
DATASETLOCAL_Destino.Insert;
for i := 0 to FieldCount - 1 do
begin
DATASETLOCAL_Destino.Fields[i] := Fields[i];
end;
DATASETLOCAL_Destino.Post;
Next;
end;
end;
El error que me da es que esta grabando los datos en la BD1 en vez de la Segunda(BD2).
¿Esta bien hecha la conexión? ¿Porque me esta grabando en la BD1 en vez de la BD2?
Un saludo a Tod@s.
|