Actualizar un dataset desde otro dataset

[jafera]

Gracias Maeyanes.

El tema de pasar los datos del txt al dataset, pues me interesa mantener las dos tablas, ya lo tengo resuelto, el problema viene cuando desde este dataset quiero pasar los datos a otro dataset, ahí es donde el proceso se ralentiza creo que al usar un locate para encontrar si el registro existe, uso el camp DNI ya que es unico por cada persona.

[[maeyanes]]

Hola...

Tu problema es que para usar el método Locate, necesitas que estén todos los datos del lado del cliente y si esos son muchos, tarda más en cargalos todos desde el servidor.

Si usas un query para lanzar una consulta del tipo: select count(DNI) from Tabla where DNI = 'valor' para saber si existe cierto DNI en la tabla, puedes acelerar en mucho tu proceso.


Saludos...

[jafera]

Creo que alg así es lo que necesito.

Voy a ver

Josep

[jafera]

Nada de nada, que no doy con la solución, a parte de tardar mucho en hacer el recorrido de las tablas, consume muchos recursos de la máquina y casi la bloquea

[jafera]

Así es como lo he dejado, pero sigue tardando mucho tiempo, en una aplicacion que usa acces como base de datos este proceso es muy rápido. Yo ya casi que tiro la toalla. Delphius me dice que si uso indices, no se exactamente a que se refiere, campo llave?, si es así es el DNI

 
procedure TF_Actualitza.BitBtn1Click(Sender: TObject);
var i:integer;
begin
        If RadioGroup1.ItemIndex=0 then
        begin
                F_Confirmacio := TF_Confirmacio.Create(self);
                F_Confirmacio.Label1.Caption:= 'Aquesta acció actualitzarà el Master';
                F_Confirmacio.Label2.Caption:= 'general amb les noves dades';
                F_Confirmacio.Label3.Caption:= 'Estas segur?';
                try
                If F_Confirmacio.ShowModal = mrok then
                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
                         F_ModulDades.Master.Close;
                                F_ModulDades.Master.SelectSQL.Text:='SELECT COUNT DNI FROM CU0001 WHERE DNI='+QuotedStr(F_ModulDades.MasterEC11.Value);
                                F_ModulDades.Master.Open;
                                If F_ModulDades.Master.RecordCount>0 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.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;
                end;
                finally
                        F_Confirmacio.Free;
                end;
                ShowMessage('Procés finalitzat');
        end
        else
        If RadioGroup1.ItemIndex=1 then
        begin
                F_Confirmacio := TF_Confirmacio.Create(self);
                F_Confirmacio.Label1.Caption:= 'Aquesta acció actualitzarà el Master';
                F_Confirmacio.Label2.Caption:= 'general amb les noves dades';
                F_Confirmacio.Label3.Caption:= 'Estas segur?';
                try
                If F_Confirmacio.ShowModal = mrok then
                begin
                        F_ModulDades.MasterC.Close;
                        F_ModulDades.MasterC.Open;
                        F_ModulDades.Master.Close;
                        F_ModulDades.Master.Open;
                        F_ModulDades.MasterC.Last;
                        Progressbar1.Max := F_ModulDades.MasterC.RecordCount;
                        F_ModulDades.MasterC.First;
                        While not F_ModulDades.MasterC.Eof do
                        begin
                                F_ModulDades.Master.Close;
                                F_ModulDades.Master.SelectSQL.Text:='SELECT * FROM CU0001 WHERE DNI='+QuotedStr(F_ModulDades.MasterEC11.Value);
                                F_ModulDades.Master.Open;
                                If F_ModulDades.Master.RecordCount>0 then
                                begin
                                 F_ModulDades.Master.Edit;
                                 F_ModulDades.MasterNOM.Value:=F_ModulDades.MasterCC5.Value;
                                        F_ModulDades.MasterCOGNOM1.Value:=F_ModulDades.MasterCC6.Value;
                                        F_ModulDades.MasterCOGNOM2.Value:=F_ModulDades.MasterCC7.Value;
                                        F_ModulDades.MasterCODI_CAT.Value:=StrToInt(F_ModulDades.MasterCC10.Value);
                                        F_ModulDades.MasterLLICENCIA.Value:=F_ModulDades.MasterCC11.Value;
                                        F_ModulDades.MasterCLUB.Value:=F_ModulDades.MasterCC13.Value;
                                        F_ModulDades.MasterPUBLICITAT.Value:=F_ModulDades.MasterCC14.Value;
                                        F_Moduldades.Master.Post;
                                        F_ModulDades.MasterC.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.MasterCC5.Value;
                                        F_ModulDades.MasterCOGNOM1.Value:=F_ModulDades.MasterCC6.Value;
                                        F_ModulDades.MasterCOGNOM2.Value:=F_ModulDades.MasterCC7.Value;
                                        F_ModulDades.MasterCODI_CAT.Value:=StrToInt(F_ModulDades.MasterCC10.Value);
                                        F_ModulDades.MasterLLICENCIA.Value:=F_ModulDades.MasterCC11.Value;
                                        F_ModulDades.MasterDNI.Value:=F_ModulDades.MasterCC12.Value;
                                        F_ModulDades.MasterCLUB.Value:=F_ModulDades.MasterCC13.Value;
                                        F_ModulDades.MasterPUBLICITAT.Value:=F_ModulDades.MasterCC14.Value;
                                        F_Moduldades.Master.Post;
                                        F_ModulDades.MasterC.Next;
                                end;
                                Progressbar1.Position := F_ModulDades.MasterC.RecNo;
                        end;
                end;
                finally
                        F_Confirmacio.Free;
                end;
                ShowMessage('Procés finalitzat');
        end;
end;

Gracias a todos a ver si alguien tiene una bombilla que luzca más que la mia, creo que se me ha fundido de tanto pensar.

Josep

[jafera]

Nota, la aplicación no es cliente servidor, se utiliza en máquina local

Josep

[JosepGA]

Hola Josep,

yo probaría a abrir una tabla con solo los DNIs para no tener que estar abriendo y cerrando tablas, luego si existe realizar sentencia de Update y si no, realizar Insert. No conozco los IB ya que yo trabajo con dbexpress y los componentes tSimpleDataSet o tClientDataSet, pero yo no trabajaria con Locate ( suele ser lento en las busquedas ), si puedes y lo tiene usa Findkey que usa el indice por el cual abres la tabla.

Salutacions ( saludos en catalán )