Ver Mensaje Individual
  #8  
Antiguo 18-05-2013
Avatar de bulc
bulc bulc is offline
Miembro
 
Registrado: jun 2010
Posts: 415
Reputación: 14
bulc Va por buen camino
Solucionado. Yo he hecho el traslado Paradox a Firebird

Al final he hecho una pequeña aplicación con dos accesos, uno para la tabla paradox y otro para la tabla Firebird. Para la primera usé los componentes
TTable y TDataSource. Para Firebird: TIBDataBase, TIBDataSet (TIBQuery), TIBTransaction, TClientDataSet y TDataSource. La única pega es que en el editor del TIBDataBase se escribe 'localhost:\C:\... mientras que en su propiedad DataBase, difiere. Usa C:\...
Luego metí un pequeño código y todo de un golpe. Para hacerlo más fácil las dos tablas tenian nombres iguales y campos equivalentes.
Código Delphi [-]

While not TableP.EOF do
begin
        ClientDataSetF.Append;
     For I:=1 to TableP.FileCount -1 do
          begin
´                if TableP.Field[i].Value <> null then
                     ClientDataSetF.Fields[i].Value:= TableP.Fields[i].Value;
          end;
    Try
         ClientDataSetF.Post;
         ClientDataSet.ApplyUpdates(0);
         TableP.Next;
    Except
         ClientDataSetF.Cancel;
end;
// El caso es que funciona.

Última edición por bulc fecha: 18-05-2013 a las 19:49:31.
Responder Con Cita