Ver Mensaje Individual
  #1  
Antiguo 24-02-2009
itsi itsi is offline
Miembro
 
Registrado: oct 2006
Posts: 29
Reputación: 0
itsi Va por buen camino
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.
Responder Con Cita