Delphi - Otra ayudita

Hola a todos de nuevo solicito su ayuda. Actualmente Tengo 2 proyectos por separado, en uno tengo los inventarios de los productos y en otro tengo el sistema de ventas, por ciertas razones de momento no puede juntar ambos proyectos. Lo que desea hacer es dentro del programa de ventas poder subir respaldos de la informacion de la otra base de datos, lo subiria de un Gdb a una tabla. Considerando que lo quiero hacer todo dentro del proyecto de ventas como puedo subir este respaldo. La base de datos esta en Interbase y utilizo delphi 7.

Gracias por la ayuda amigos

A q te refieres con subir respaldos? has visto si te conviene el componente TIBRestoreService???

Bueno lo que pasa es que tengo 2 bases de datos diferentes, pero dentro de las bases de datos hay una tabla en comun que es la de los inventarios, en una base de datos se capturan los productos, en la otra base de datos se realizan las ventas. ( son 2 bases de datos y 2 sistemas diferentes), mi idea es poder pasar la info. de la tabla en comun de una base de datos a otra.

Gracias

Hola, creo que lo que tendrías q hacer es poner 2 conexiones en la aplicación que querés que tenga acceso a la otra base de datos, o en el mejor de los casos poner 2 componentes de conexion en ambas aplicaciones.
Después, desde cualquiera de las 2 aplicaciones recorrer 1 consulta que tenga los registros que querés actualizar de la tabla inventarios y hacer un insert en otra consulta que tenga como componente de conexión asociado el de la otra base. A ver si me explico mejor:

Supongamos que tenés IBQuery1 asociado a IBDatabase1
y tenes a IBQuery2 asociado a IBDatabase2, entonces...

procedure TForm1.Button1Click(Sender: TObject);
begin

with IBQuery1
do begin

Open;
First;

while not eof
do begin

IBQuery2.Insert;

IBQuery2.FieldByName('campo1').AsString := FieldByName('campo1').AsString;
IBQuery2.FieldByName('campo2').AsString := FieldByName('campo2').AsString;

try
Post;
IBQuery2.Database.ApplyUpdates([IBQuery2]);
except
IBQuery2.CancelUpdates;
end;

Next;

end;

Close;

end;

end;

Obviamente el código se puede mejorar pero es la idea que se me ocurre para ayurdarte. Espero te haya ayudado.

Salu2ssss
Pablo.