Buenos dias,
Necesito copiar en una Tabla, las ventas del año 25 y del año 26, y compararlas, las ventas del año 25 están el directorio Datos25 y las del 26 en Datos26.
Por Simplificar tengo una Tabla que es la TablaPedidos, compuesta por dos Campos: Id y Ventas
y otra tabla que he creado que es TablaCompCamp con tres campos; Id,Ventas25,Ventas26
Y Básicamente lo que hago es colocarme en un Directorio:
Código SQL
[-]
Procedure Boton1.Click;
begin
Ejercicio:'025'
BaseDatos:=BaseDatos+'Datos'+ejercicio
Basedatos.DatabaseName:=Basedatos+'\VENTAS.FDB';
BaseDatos.Connected:=true;
IbQueryCompCamp.Close;
IbQueryCompCamp.Clear;
IbQueryCompCamp.sql.text:=('insert Into COMPCAMP (ID,VENTAS25) select ID,VENTAS from Pedidos');
IbQueryCompCamp.execsql;
IbQueryCompCamp.close;
Ejercicio:'026'
BaseDatos:=BaseDatos+'Datos'+ejercicio
Basedatos.DatabaseName:=Basedatos+'\VENTAS.FDB';
BaseDatos.Connected:=true;
IbQueryCompCamp.Close;
IbQueryCompCamp.Clear;
IbQueryCompCamp.sql.text:=('insert Into COMPCAMP (ID,VENTAS26) select ID,VENTAS from Pedidos');
IbQueryCompCamp.execsql;
IbQueryCompCamp.close;
End;
Funciona perfectamente, el único problema que lógicamente copia las ventas en la tabla COMPCAMP en tablas separadas lógiamente una del 025 y la otra en la tabla 026.
He intentado crear una tabla fuera de la Base de datos para que no afectara el cambio de directorio y sólo afectara a Pedidos pero da error.
Ya lo único que me quedaría sería copiar los datos en StringGrid los dos años, y de ahí copiarlos a la Tabla, pero quería ver si había otra solución más sencilla sin tantos pasos.
Gracias de Antemano.