FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Tomar datos de dos bases en insertarlos en una nueva
Buenas gente, voy a intentar explicar lo que quiero hacer con un ejemplo, creo que seria lo mejor. Planteo una situacion hipotetica.
Tengo dos bases de datos que corresponden a dos locales comerciales; digamos que tienen la siguiente forma: Local1 Codigo Nombre Precio 00001 Pantalon 60 00002 Remera 30 00003 Media 5 00004 Campera 90 Local2 Codigo Nombre Precio 00001 Pantalon 65 00002 Remera 35 00003 Media 5 00005 Zapatilla 85 Las dos bases son iguales (en forma); lo que quiero hacer con delphi es tomar esos datos de la primer tabla y de la segunda y volcarlos a una nueva tabla para despues mostrarlos en un DBGrid. El tema es que la tabla buena va a ser diferente a esa, tendria la forma siguiente: Codigo Nombre Local1 Local2 00001 Pantalon 60 65 00002 Remera 30 35 00003 Media 5 5 00004 Campera 90 - 00005 Zapatilla - 85 Se entiende? Las columnas de "codigo" y "nombre" siempre son iguales en las dos tablas, la que varia es la de precio. Lo que tiene es que a veces un codigo esta en una base y no en otra, de ahi lo de juntar los datos de las dos y generar una nueva completa. Refiriendome a una tabla sola, en delphi tengo dos edit, uno que es para poner el codigo inicial, y otro el final; con eso yo hago un select "desde" y "hasta" tal codigo para que lo muestre (seria select * from tabla1 where codigo >= edit1 and codigo <= edit2 (eso lo tengo funcionando). Me gustaria hascer lo mismo, pero tomando los datos de las dos bases y volcarlos en una nueva. Mi idea era, hacer un select de cada tabla desde y hasta lo que figure en los edit; que esos datos generen un archivo de texto con cada linea siendo un INSERT y luego un UPDATE; genero dos archivos; despues hago que delphi los corra en la base nueva y asi obtengo una que es la combinacion de las dos. Me podrian plantear, por que cuando arranca tu aplicacion no haces un select de las dos tablas completas en cada base y los cargas en la base nueva y de ahi trabajas con los edit y el grid?. Si, lo pensé, el tema es que aca simplifique para ejemplificar, yo en realidad estoy laburando con 5 bases y cada tabla tiene aprox. 6000 registros, o sea que si intentara hacer eso la aplicacion tardaria bastante en iniciar, y mas allá de eso, deberia inventar el mismo sistema; un select que me lleve a un script toda la tabla, corra INSERT; un select de la segunda tabla que genere otro script, este que corra un INSERT (para los codigos que no estaban) y un UPDATE para poner los precios en los que si estaban. Se entendio algo de lo que explique? porque a veces divago y no termino resumiendo nada. Lo que si, no tengo la menor idea de como hacer todo lo que dije, :P me surgio la idea despues de ver como hacian algo parecido. Desde ya, gracias al que leyo todo esto! PD: Es firebird 1.5 Última edición por pnikkosis fecha: 30-11-2009 a las 18:39:06. |
#2
|
||||
|
||||
Lo que pretendes más o menos se puede conseguir con una sentencia SQL; No comentas la Base de Datos que utilizas, as´ñi que puede variar la sentencia, pero sería algo así:
Esto es en la teoría. Luego hay que saber el caso concreto en que te encuentras. A veces, tal y como tú comentas, una solución que en teoría funciona, puede no ser viable a loa hora de la verdad por muchísimas razones (falta de velocidad, volumen de datos,...) Tal vez si nos explicaras el caso real y lo que necesitas hacer, te podamos dar una solución más adecuada. O tal vez orientarte por otro camino para llegar a conseguir lo mismo que necesitas.
__________________
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. Última edición por Neftali [Germán.Estévez] fecha: 30-11-2009 a las 15:50:30. |
#3
|
||||
|
||||
como explique arriba, no es una sola base de datos; asi que eso no se puede hacer; no son dos tablas en una base, son multiples bases con la misma tabla, creo que eso quedo bien explicado.
un select normal no me puede comprender mas de una base ya que con un componente de delphi no se pueden hacer multiples conexiones, de ahi a que tengo que hacer un select de cada tabla, crear un script y correrlo en la base nueva. te agradezco la ayuda igualmente ^_^ |
#4
|
||||
|
||||
Cita:
Pues, tranquilamente puedes hacer tu consulta SQL aunque sea de multiples base de datos por ejemplo;( siguiendo el ejemplo de Neftali): o si quieres mas cortita(usando alias) . Desde luego debes tener los privilegios adecuados para ambas base de datos y sus respectivas tablas. Nota: Probado con MySQL y los componentes Zeos (aunque no exactamente la misma consulta) Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
|
#5
|
||||
|
||||
Hay algo que yo no entiendo todavia, o evidentemente no lo aprendi.
Segun lo que estuve haciendo, para conectarme a una base firebird (lo puse al final de todo que la estoy usando) lo que hago es poner en delphi 3 componentes, un IBdatabase con los datos de la base, un IBquery linkeado a esa base y un DataSource linkeado al ibquery. Cuando quiero hacer una consulta, hago IBQuery1.SQL := 'select blablablablablabla'; para ver los resultados pongo un DBGrid linkeado al datasource. Yo en ese query no puedo hacer referencia a dos bases diferentes, porque ese query esta linkeado a una sola base; al igual que el DBgrid no puedo linkearlo a mas de un datasource. |
#6
|
||||
|
||||
Cita:
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
|
#7
|
||||
|
||||
Si es Firebird lamentablemente ese tipo de consulta no funcionará, a menos que las tablas pertenezcan a una misma base de datos.
En Firebird, hasta el momento, no se pueden realizar consultar entre dos o más bases de datos. Se espera que para la versión 2.5 o 3 se añada dicha característica. Saludos, |
#8
|
||||
|
||||
Cita:
Sin ir más lejos en SQL Server puedes utilizar LINKED SERVERS para lanzar una consulta como la que necesitas (que involucre varias tablas de varios servidores). Desconozco si en otros SGBD's hay algo similar. AÑADO: Veo que rgstuamigo ya ha contestado.
__________________
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. |
#9
|
||||
|
||||
Cita:
|
#10
|
||||
|
||||
Yo me encontré con un problema parecido, pero tenía 2 grandes diferencias con el tuyo:
1.- Sólo tenía que pasar una tabla (parte) de una base de datos Firebird a otra en vez de dos como es tu caso. 2.- Con lo de parte me refiero a que no tenía que pasar la tabla entera, seleccionaba los registros que me interasaban, ya fuera el criterio con un rango entre 2 fechas o por descripción. La selección mayor que tenía que "exportar" como mucho tendría unos 1500 registros, no 6000 como es tu caso. No se como te irá esta solución en cuanto a velocidad y/o rendimiento. Aunque pensándolo bien después de leer esto: Cita:
De todas formas te cuento: Primero habría que hacer un select de la tabla de la base de datos Local1 (si es con el criterio "desde" y "hasta" mencionado antes mejor) con su IBQuery correspondiente (vamos a llamarle IBQuery1). Después la recorremos, y hacemos un select de la tabla de Local2 (IBQuery2) utilizando como criterio por ejemplo el código del registro por el que vamos de IBQuery1. Una vez echo esto montaríamos una cadena con el INSERT, que tendría como campos el Código, Nombre y Precio de IBQuery1 + el precio de IBQUERY2. Ejecutaríamos el INSERT y ya tendríamos un registro en la nueva tabla (puedes usar un IBQuery3 o borrar el SQL de IBQuery2 e insertarlo desde ahí mismo). Mas o menos el código sería algo así:
Obviamente cambiando los nombre de las tablas, campos, controles, etc. por los tuyos. Espero que te sirva * Nota: cada IBQuery apunta a su IBDatabase correspondiente.
__________________
No hope, no dreams, no love, my only escape is Underground Última edición por Axel_Tech fecha: 02-12-2009 a las 11:34:10. |
#11
|
||||
|
||||
Axel, sos un tipo groso, entendiste perfecto como era la cosa!
Lo acabo de leer y no estoy en la compu donde tengo el delphi, asi que cuando llegue me pongo a probarlo; te hago una consulta, esto va a hacer un select de la tabla en la base1 desde tal codigo hasta tal codigo; despues va a hacer un select de la segunda tabla en la segunda base donde el codigo sea el mismo que los seleccionados de la base1. Despues va a hacer un insert linea por linea en la tercer base hasta que se termine el select1. Mi consulta era, a veces pasa que en la base2 hay un codigo que no esta en la base1, como en el ejemplo que yo puse en el primer post. Por eso mi idea inicial era tomar el select de la primer base y hacer insert; tomar el select de la segunda base y hacer insert y despues update; y el select de la segunda tambien contemplarlo por lo que haya en los edit en vez de lo que me dio como resultado el select1, entonces si hay un codigo que existe en una pero en la otra no quedaria agregado igual. Igualmente si, la base1 es la que tiene la "mayoria" de los codigos, y entre las bases, si el codigo existe su nombre es igual, o sea que el campo codigo y nombre si los iba a tomar como referencia para crear la tabla nueva. Mi idea, es hacer esto a las N bases, o sea que en el ejemplo son dos, pero ponele que fueran 5 o 20 bases. Volvi a releer tu propuesta, y se me ocurrio lo siguiente (no lo escribo en codigo porque a algo le voy a errar, pero decime si mi teoria seria correcta) Tengo los componentes IBQuery1, 2, 3....N correspondiente a cada base para hacer los select, y un IBQueryX que va a ser el que grabe la info en la tabla que tenga los datos de todas. Empiezo con un select en el query1 desde y hasta lo que me indiquen los edit. Me posiciono en la primer linea; abro un while query1 eof y en una variable string voy agregando como vos hiciste los campos, nada mas que el precio2 lo dejo vacio, uso el queryX para grabar a la tabla nueva. Cuendo termina el while hago un select del query2, igual que el 1, contemplando los edit desde y hasta, abro un while query2 eof y en la variable agrego todo el insert (que si ya se habia insertado con el del query1 lo va a saltear, y sino lo va a agregar) y despues un update (para agregarle el precio2). Termina el while, y asi sucesivamente hasta la cantidad de bases que tenga, un select de la tercera, abro while, insert y update, cierro while; un select de la cuarta, abro while etc etc etc. En teoria funcionara? Te cuento cuando llego a la compu donde tengo delphi. Igualmente, me dieste una idea de como arrancar! mil gracias! Que lindo seria esto si laburara con firebird 2.1, donde podes hacer un "UPDATE OR INSERT" que contempla justo estos casos. Última edición por pnikkosis fecha: 02-12-2009 a las 13:56:53. |
#12
|
||||
|
||||
Con más de 2 bases de datos se complica la cosa. Yo creo que sí funcionaría, aunque veo un par de inconvenientes:
1.- Con tanto INSERT y UPDATE no se que rendimiento obtendrías. Sería cuestión de probarlo. 2.- Cuando llegas a este punto: Cita:
Tengo en mente otra solución: utilizando tablas temporales (una por cada tabla de cada base de datos) y un procedimiento almacenado con 2 cursores. Las tablas temporales las rellenarías tal y como hemos visto hasta ahora, recorriendo las IBQuery y utilizando el criterio "desde" y "hasta". Una vez rellenas (para evitar errores te recomiendo que las tablas se llamen igual o parecido en la base de datos final, y los campos también) el SP sería algo tal que así:
Un SP es más potente y más rapido que tanto INSERT y UPDATE. Tendrías que depurarlo un poco y adaptarlo a tus necesidades. Como ya he dicho antes todo es cuestión de probarlo.
__________________
No hope, no dreams, no love, my only escape is Underground |
#13
|
||||
|
||||
Leyendo articulos de como hacer insert+update dependiendo de si existe o no un primary key en la tabla, llegue a lo siguiente:
(de nuevo, estoy con firebird 1.5, que boludes seria si tuviera 2.1) Un SP con algo como esto: Código:
if exists('CODIGO') then update TABLANUEVA set LOCAL2 = (el PRECIO que me dio el select del query2) where CODIGO = (codigo del select del query2); else insert into TABLANUEVA (blablablabla el insert normal) entonces en el primer while (del query1 de la base1) hago un insert unicamente porque en la base nueva no hay ningun dato. Y a partir de la segunda base hasta la baseN dentro de los while corro un SP como este, si el codigo ya existe va a actualizar el campo que le correspone a esa tabla (el precio) y sino existe va a insertar la linea entera. Mi problema radica en que no tengo la menor idea como hacer un SP jaja, estuve leyendo pero no entiendo muy bien eso de especificar input y outputs, y tambien me doy cuenta que en el stored procedure yo tendria que hacer referencia a campos de selects que estan en delphi, y eso tampoco tengo idea; por ejemplo, si empezara el if exists ('CODIGO'), que hace referencia al campo codigo del select del query2, pondria en delphi algo como if exists ('+IBQuery2.FieldByName('CODIGO').AsString+'), pero como le digo a firebird que ese campo codigo esta en un select que hice con un query en delphi? Sino lo que se me ocurrio hacer en delphy es directamente tirar un CREATE PROCEDURE con todos esos datos adentro y despues ejecutar el ibquery, pero me parece medio al pedo eso, tendria que hacer un create SP y un drop SP por cada linea del select, le saca el proposito al stored procedure. Asi que ahora ando peleando con eso. ----------- Soy un nabo no? hay un componente que es IBStoredProcedure, decime que lo linkeo a la base y despues en StoredProcName elijo el que tengo en la base y me deja linkear variables de delphi con variables de firebird Última edición por pnikkosis fecha: 03-12-2009 a las 23:32:41. |
#14
|
||||
|
||||
Ok, lo tengo casi listo, tengo un problema con el SP nada mas, te cuento lo que hice:
Ya aprendi a asignarle valores a las variables desde delphi,haciendo IBStoredProc1.Params[0...N].AsString o ParamsByName y el nombre, y despues que tengo todos asigandos hago .ExecProc me funciona el correrlo Ahora, tengo dos problemas con ese SP: 1, no me esta tomando cuando el codigo existe, ponele que tengo el codigo 001 en la tabla y pongo como la variable :codigo 001, no corre el update sino que hace un insert y me quedan dos filas en la tabla con el codigo 001, raro. Y el otro problema que tengo es... no se si como actualiza o que, pero hice una interfaz chica de prueba en delphi, con 3 edits le asigno valores a las variables y un boton corre el SP, pero hasta que no cierro la aplicacion la tabla parece que no se actualiza; uso el IBExpert como Database manager y desconecto la base, la vuelvo a abrir y lo que corri en el SP no aparece, pero si cierro la aplicacion de delphi, ahi se graba a la base y me aparece. Tiene algo que ver con hacer un commit? Tengo que tocar el componente IBTransaction? |
#15
|
||||
|
||||
A ver, vamos por partes.
Cita:
Cita:
Cita:
De todas formas sigo manteniendo en pie mi planteamiento anterior ya que ejecutarías el SP una sola vez, y tú lo vas a ejecutar por cada registro que exista. Si hay 6000 pues 6000 veces pero me reitero otra vez, todo es cuestión de probarlo y ver el rendimiento que obtienes.
__________________
No hope, no dreams, no love, my only escape is Underground |
#16
|
||||
|
||||
Ahora entendí lo de los primary keys y foreing keys... me largue a usar firebird sin entender un joraca! jaja; en fin, agregue "codigo" como PK, y volvi a correr el SP asignandole valores, ahora si no existe lo inserta (igual que antes), pero cuando vuelvo a ponerle el mismo codigo e intentar correrlo me tira que no puede haber dos filas con el mismo codigo, asi que el IF no me esta resolviendo bien el THEN, deberia hacer un UPDATE pero lo saltea, estara mal la condicion de (:codigo = 'T.CODIGO')?
Porque T.CODIGO entre comillas simples no esta haciendo que eso sea como un string en vez de reconocerlo como referencia al campo de una tabla?, igualmente probé sacandole las comillas simples y cuando quiero compilar el SP me dice justo que hay un error en esa linea, column unknown... pero la columna codigo esta en esa tabla. Cuando adentro del update hago referencia a la columna PRECIO no me tira el mismo error. ------------- el problema esta en la igualdad me parece... yo no le puedo decir a una igualdad que una variable con X valor sea igual a una columna entera, no le estoy espeficando a que CODIGO tiene que ser igual; deberia hacer un IF EXISTS pero no me reconoce el EXISTS Última edición por pnikkosis fecha: 04-12-2009 a las 15:51:41. |
#17
|
||||
|
||||
Cierto, no me había fijado antes, 'T.CODIGO' lo está interpretando como una cadena de caracteres.
No estoy seguro de que lo que pretendes con ese if se pueda hacer de esa manera, pues como bien has dicho en la última frase no puedes comparar una variable (en este caso un parámetro de entrada) con una columna entera de una tabla. Puedes hacerlo con un EXISTS como te dije en el SP que puse más arriba: Esta consulta mira si ya existe el codigo en la tabla, y entonces haces un if:
si :COD es null haces el INSERT, si no haces el UPDATE. A ver así que tal.
__________________
No hope, no dreams, no love, my only escape is Underground |
#18
|
||||
|
||||
Resolvi el problema del IF; declare una variable :exists como output y antes del if hice:
(entonces si hay algun registro de codigo con el valor asignado a :codigo, el count me va a devolver un valor mas grande que cero) y entonces el if lo empiezo asi: IF (:exists > 0) then uptade blabalbla else insert into. Y funcionó. Y lo de que no comiteaba a la base tenias razon, era el IBTransactrion, lo tenia en saNone, lo cambie y despues del procedure commitea perfecto. Asi que los dos problemas restantes estan solucionados, creo que ahora puedo ponerme a desarrollar! Te agradezco Axel por tu ayuda que fue invaluable y a los demas tambien. Aunque presiento que vas a ver muchas mas preguntas mias por el foro dando vueltas, soy asi de pesado para todo! jaja. |
#19
|
||||
|
||||
Me alegro que por fin tengas todo claro
__________________
No hope, no dreams, no love, my only escape is Underground |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Tomar datos del lector de código de barras | jam888 | OOP | 4 | 22-03-2010 17:53:03 |
Tomar datos de otra aplicacion | dblx | API de Windows | 4 | 23-12-2008 01:16:38 |
Tomar datos de excel | vinagre3ro | Internet | 2 | 04-10-2006 09:59:28 |
Hola soy muy nueva en esto de las bases de datos y deseo imprimir tablas | nuri | Impresión | 1 | 05-07-2005 19:49:31 |
Como mostrar los datos para luego insertarlos? | judoboy | OOP | 8 | 14-05-2003 09:51:51 |
|