Tomar datos de dos bases en insertarlos en una nueva

[pnikkosis]

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 ^_^

[rgstuamigo]

Empezado por pnikkosis

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 ^_^

Aunque hubiese sido bueno que nos comentaras Que servidor de Base de datos usas(MySQL,Oracle,MS sql Server,Firebird,etc,etc.) ¿cual?

Pues, tranquilamente puedes hacer tu consulta SQL aunque sea de multiples base de datos por ejemplo;( siguiendo el ejemplo de Neftali):

Código SQL [-]
Select
MyBaseName1.Tabla1.Nombre,
MyBaseName2.Tabla2.Nombre,
MyBaseName1.Tabla1.Precio as P1,
MyBaseName2.Tabla2.Precio as P2,
from MyBaseName1.Tabla1 FULL JOIN MyBaseName2.Tabla2 on (MyBaseName1.Tabla1.Cod=MyBaseName2.Tabla2.Cod);

o si quieres mas cortita(usando alias)

Código SQL [-]
Select T1.Nombre,T2.Nombre,T1.Precio as P1, T2.Precio as P2
from MyBaseName1.Tabla1 T1 FULL JOIN MyBaseName2.Tabla2 T2 on (T1.Cod=T2.Cod);

.
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...

[pnikkosis]

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.

[rgstuamigo]

Empezado por pnikkosis

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.

Entiendo lo que mencionas, pero lo que estoy proponiendo es hacer la referencias a las dos bases de datos en la consulta SQL, tal cual como te he puesto en el ejemplo.Tan solo reemplaza MyBaseName1,MyBaseName2,Table1,Table2,por los nombres de tus Bases de Datos y Tablas respectivamente.Al menos probalo...y luego nos comentas..

[[Delphius]]

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,

[pnikkosis]

Empezado por Delphius

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,

Es lo que yo estaba diciendo. De ahi a que quiero hacer la consulta y generar un script con lo que me devuelva, para poder asi cargarlo en la base que va a incluir los datos de todas las demas.

[Axel_Tech]

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:

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)

creo que es algo parecido a lo que hago yo.
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í:

Código Delphi [-]
IBQuery1.Active := False;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Text := 'SELECT CODIGO, NOMBRE, PRECIO FROM TABLA1 WHERE CODIGO >= EDIT1 AND CODIGO <= EDIT2'; 
IBQuery1.Active := True;        //select de la tabla Local1
IBQuery1.First;            //nos posicionamos en el primer registro

while not IBQuery1.Eof do    //la recorremos con un while
    begin
        IBQuery2.Active := False;
        IBQuery2.SQL.Clear;
        IBQuery2.SQL.Text := 'SELECT CODIGO, NOMBRE, PRECIO FROM TABLA2 ';
        IBQuery2.SQL.Add('WHERE CODIGO = ' + IBQuery1.FieldByName('CODIGO').AsString);
        IBQuery2.Active := True;    //select de la tabla Local2

        cadena := 'INSERT INTO TABLA3(CODIGO, NOMBRE, PRECIO_LOCAL1, PRECIO_LOCAL2) VALUES (';
        cadena := cadena + IBQuery1.FieldByName('CODIGO').AsString + ',';
        cadena := cadena + QuotedStr(IBQuery1.FieldByName('NOMBRE').AsString) + ',';
        cadena := cadena + IBQuery1.FieldByName('PRECIO').AsString + ',';   //precio1
        cadena := cadena + IBQuery2.FieldByName('PRECIO').AsString;   //precio2
        cadena := cadena + ')';    //cadena del insert montada
        
        IBQuery2.SQL.Clear;
        IBQuery2.SQL.Text := cadena;   
        IBQuery2.ExecSQL;    //metemos el nuevo registro
        IBQuery1.Next;    //pasamos al siguiente registro de la tabla de Local1
    end;

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.

[Neftali [Germán.Estévez]]

Empezado por pnikkosis

un select normal no me puede comprender mas de una base ya que con un componente de delphi no se pueden hacer multiples conexiones

Sí se puede en algunos servidores y con algunos componentes, de ahí mi pregunta.
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.