Buenas tardes.
Soy comisario de ciclismo y estoy desarrollando una aplicacion para gestionar las carreras de bicicletas y poder hacer inscripciones, clasificaciones etc.
El motivo de mi consulta es el sifguiente:
Utilizo Delphi 6 y Firebird 1.5
Tengo una tabla (IBDataset) con los registros
En otro dataset tengo otros registros que actualizo desde una tabla .txt que se me envia periodicamente (semanal).
Tengo que actualizar los datos del dataset principal con los del dataset creado con la tabla txt, en caso de que no exista li añado y en caso de que exista lo modifica, aunque me gustaria que si no hay modificaciones lo pasara de largo. El problema que tengo es que esta tabla contiene aprox. 45.000 registros y tarda mucho en revisarse. Os adjunto el codigo por si alguien ve una forma de agilizar este problema.
Código:
procedure TF_Actualitza.RadioGroup1Click(Sender: TObject);
var i:integer;
begin
F_ModulDades.MasterE.Close;
F_ModulDades.MasterE.Open;
F_ModulDades.Master.Close;
F_ModulDades.Master.Open;
F_ModulDades.MasterE.Last;
Progressbar1.Max := F_ModulDades.MasterE.RecordCount;
F_ModulDades.MasterE.First;
While not F_ModulDades.MasterE.Eof do
begin
If F_ModulDades.Master.Locate('DNI',F_ModulDades.MasterEC11.Value,[])then
begin
F_ModulDades.Master.Edit;
F_ModulDades.MasterNOM.Value:=F_ModulDades.MasterEC5.Value;
F_ModulDades.MasterCOGNOM1.Value:=F_ModulDades.MasterEC6.Value;
F_ModulDades.MasterCOGNOM2.Value:=F_ModulDades.MasterEC7.Value;
F_ModulDades.MasterCODI_CAT.Value:=F_ModulDades.MasterEC8.Value;
F_ModulDades.MasterNACIO.Value:=F_ModulDades.MasterEC9.Value;
F_ModulDades.MasterLLICENCIA.Value:=F_ModulDades.MasterEC10.Value;
F_ModulDades.MasterDNI.Value:=F_ModulDades.MasterEC11.Value;
F_ModulDades.MasterCODIUCI.Value:=F_ModulDades.MasterEC12.Value;
F_ModulDades.MasterCLUB.Value:=F_ModulDades.MasterEC13.Value;
F_ModulDades.MasterPUBLICITAT.Value:=F_ModulDades.MasterEC15.Value;
F_Moduldades.Master.Post;
F_ModulDades.MasterE.Next;
end
else
begin
F_ModulDades.Master.Last;
i:=F_ModulDades.MasterID_CORREDOR.Value+1;
F_ModulDades.Master.Append;
F_ModulDades.MasterID_CORREDOR.Value:=i;
F_ModulDades.MasterNOM.Value:=F_ModulDades.MasterEC5.Value;
F_ModulDades.MasterCOGNOM1.Value:=F_ModulDades.MasterEC6.Value;
F_ModulDades.MasterCOGNOM2.Value:=F_ModulDades.MasterEC7.Value;
F_ModulDades.MasterCODI_CAT.Value:=F_ModulDades.MasterEC8.Value;
F_ModulDades.MasterNACIO.Value:=F_ModulDades.MasterEC9.Value;
F_ModulDades.MasterLLICENCIA.Value:=F_ModulDades.MasterEC10.Value;
F_ModulDades.MasterDNI.Value:=F_ModulDades.MasterEC11.Value;
F_ModulDades.MasterCODIUCI.Value:=F_ModulDades.MasterEC12.Value;
F_ModulDades.MasterCLUB.Value:=F_ModulDades.MasterEC13.Value;
F_ModulDades.MasterPUBLICITAT.Value:=F_ModulDades.MasterEC15.Value;
F_Moduldades.Master.Post;
F_ModulDades.MasterE.Next;
end;
Progressbar1.Position := F_ModulDades.MasterE.RecNo;
end;
ShowMessage('Procés finalitzat')
end;
Muchisimas gracias por adelantado