Cita:
|
Empezado por Elenita62
Si quieres hacerlo por programación, conecta tus 2 tablas a sus repectivos drivers y en un botón ejecuta un bucle:
If TablaSource.Active = false then
TablaSource.Active := true;
If TablaDestino.Active = false then
TablaDestino.Active := true;
TablaSource.First;
While not TablaSource.EOF do
begin
TablaDestino.Insert;
TablaDestino['Campo1'] := TablaSource['Campo1'];
//Aquí sigues igualando
TablaDestino.Post;
TablaSource.Next;
end;
Espero que te sirva...
|
Eso lo que estado haciendo
Pero la tabla que esta en paradox uso los componentes siguientes:
TTable
TDataSource
Para la tabla que esta en firebird uso los componentes siguientes:
- IBDatabase1
- IBTransaction1
- IBDataSet1
En el boton que me dijiste, hice esto :
procedure TForm1.Btn_ExportarClick(Sender: TObject);
begin
If T_Paradox.Active = false then
T_Paradox.Active := true;
If IBDS_Firebird.Active = false then
IBDS_Firebird.Active := true;
T_Paradox.First;
While not T_Paradox.EOF do
begin
IBDS_Firebird.Insert;
IBDS_Firebird['codi']:=T_Paradox['codi'];
IBDS_Firebird.Post;
T_Paradox.Next;
end;
end;
y obtengo este mensaje
Project Articulos.exe raised exception class EDatabaseError with message 'IBDS_Firebird:No es posible modificar un DataSet de solo lectura'. Proccess stopped. Use Step or Run to continue.
Y el puntero se pone en la linea verde.
Cual sera el error???
PD
Trabajo con Firebird 1.5 y el administrador IBExpert.
Gracias