![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Actualizar Dataset
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
|
#2
|
||||
|
||||
Actualizar Dataset
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
Código:
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; Josep |
#3
|
||||
|
||||
Actualizar dataset
Nota, la aplicación no es cliente servidor, se utiliza en máquina local
Josep |
#4
|
|||
|
|||
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 ) |
#5
|
||||
|
||||
Actualizar dataset
Gracias, ahora estoy probando con
Código:
'SELECT COUNT (DNI) FROM CU0001 WHERE DNI='+QuotedStr(F_ModulDades.MasterEC11.Value)( Sigo dandole vueltas Josep |
#6
|
|||
|
|||
Cita:
Para que lo entiendas, cada vez que tienes un ciclista nuevo el programa abre y se trae todos los datos hasta llegar al ultimo. Es totalmente ineficiente con semejante numero de registros. Deberias usar un generador para las IDs (ver en google "Generadores FireBird") Esta seria la mejor opcion, sin dudas veras como aumenta muchisimo la velocidad. Otra forma seria lanzar un sql (dentro de un IBquery o IBSQL) como este: Tendrias el dato del nuevo corredor en el campo 'ultimo_ID'. Ultimo_ID no tiene que ser un campo de tu tabla, es un alias que utilizo y puede ser el texto a tu eleccion. Para más velocidad, que el query sea UNIDIRECCIONAL, no necesitas recorrerlo, solo buscas un dato. Por supuesto, el LOCATE ni tocarlo. Un indice en el campo DNI no vendria mal. (ver google "Indices en FireBird") En firebird 2.1 puedes hacer un INSERT o UPDATE en una sentencia. Puesto que estas acostumbrado ha tablas de escritorio no te lo complico más. Del mismo modo que Access y FireBird no se pueden comparar al mismo nivel, tampoco deberias usar las mismas tecnicas. Cita:
Debes de programar pensando en cliente/servidor, los locate, last, recordcount, gotokey, etc... olvidalos (bueno, recordcount si sabes como se comporta puede servir), solo te daran problemas. saludos |
#7
|
|||
|
|||
No habia visto esto:
Cita:
No necesitas contar los DNI, el resultado seria 1 o 0 Despues cambia el recordcount: Basta con comprobar que el DNI tiene algun valor, entiendo que los DNIs son unicos. Usar VALUE te va a volver loco, utiliza fieldbyname y me lo agradeceras |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Copiar el contenido de un DataSet a otro DataSet | Javi2 | Varios | 82 | 22-11-2022 09:26:16 |
Acceder a un DataSet desde otra unidad | SMTZ | .NET | 5 | 24-12-2005 09:01:47 |
Acceder a un DataSet (.NET) desde otra Unidad | SMTZ | .NET | 9 | 22-10-2005 17:10:40 |
Conectar a un DataSet de otro form. | DarkByte | Conexión con bases de datos | 15 | 10-09-2004 16:27:58 |
Saber si un Tabla(dataset) esta siendo usado por otro componente | cacuna | OOP | 3 | 26-05-2004 18:21:43 |
![]() |
|