FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Pasar Tabla de Paradox a Firebird
Bueno, ante todo gracias por la atencion prestada...
En un sistema de que tengo desarrollado en Delphi con Paradox tengo una Tabla TArticulos que contiene 41 campos y con 6,000 registros, y como podria ser para pasar esos registros a Firebird. Estare muy agradecido. |
#2
|
||||
|
||||
El DataPump que viene con el BDE te debería servir. Justo es una aplicación para eso. En Internet puedes encontrar varias de éstas, en concreto también existe una (en forma de plugin y de ejecutable) para IBExpert.
"C:\Archivos de programa\Archivos comunes\Borland Shared\BDE\datapump.exe" (Ubicación predeterminada) (aplicación sóla) http://www.clevercomponents.com/Downloads/IBPump.zip (en formato plug-in los puedes descargar de aqui) http://www.clevercomponents.com/prod...dpdownload.asp
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
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... |
#4
|
|||
|
|||
Cita:
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 |
#5
|
||||
|
||||
Cita:
- IBDatabase1 - IBTransaction1 - IBQuery <--- en su propiedad sql... "Select * from mytabla" - IBUpdateSQL1 en IBQuery1 en la propiedad UpdateSQL asocialo al IBUpdateSQL1 click boton derecho sobre IBUpdateSQL1, opcion "UpdateSQL Editor" seleccion tu primary key, y tus campos (Todos) en el recuadro derecho de la ventanita... y dale click en "generate SQL" ahora ya tienes tu consulta como una tabla editable nota. al final no te olvides de poner el commit...
__________________
Estudia y anda en la calle.... que asi serás el doble de listo que los demás... análisis de información análisis y diseño de sistemas Paoti Rios Reséndiz |
|
|
|