Actualizar un dataset desde otro dataset

[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 )

[jafera]

Gracias, ahora estoy probando con

'SELECT COUNT (DNI) FROM CU0001 WHERE DNI='+QuotedStr(F_ModulDades.MasterEC11.Value)(

pero me da un error de que no encuentra el campo 'COPA'.
Sigo dandole vueltas

Josep

[Sick boy]

F_ModulDades.Master.Last;
i:=F_ModulDades.MasterID_CORREDOR.Value+1;

Utilizas un Last para obtener el ultimo id de corredor, y eso es lo que te relentiza la aplicacion.
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:

Código SQL [-]
SELECT max(ID_CORREDOR)+1 as ultimo_ID FROM nombre_tabla

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.

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

No es correcto, tu aplicacion es cliente/servidor, solo que ambos estan en la misma maquina, y que por lo tanto no se necesita una infraestructura de red, pero internamente tu aplicacion se comunica con el servidor de firebird via TCP. Ponle un cortafuegos extricto y veras lo que pasa.

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

[Sick boy]

No habia visto esto:

Gracias, ahora estoy probando con
Código:

'SELECT COUNT (DNI) FROM CU0001 WHERE DNI='+QuotedStr(F_ModulDades.MasterEC11.Value)(

pero me da un error de que no encuentra el campo 'COPA'.
Sigo dandole vueltas

Prueba esto:

Código SQL [-]
SELECT DNI FROM CU001 WHERE DNI='+QuotedStr(F_ModulDades.MasterEC11.Value)

No necesitas contar los DNI, el resultado seria 1 o 0

Despues cambia el recordcount:

Código Delphi [-]
F_ModulDades.Master.Open;
                                If F_ModulDades.Master.RecordCount>0 then

cambialo por
F_ModulDades.Master.Open;
                                If F_ModulDades.Master.fieldbyname('DNI').asstring<>'' then

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

[angelholberg]

Saludos amigo, nos esi entendi lo que queires hacer pero podrias intentar clonando los Dataset de ese modo puedes pasara la informacion de un Dataset a otro sin mayor complicación y sin q

[angelholberg]

Saludos amigo, haber si entendi algo de tu problema podrias clonar dataset para pasar informacion de un dataset cargado a otro de este modo podras pasar informaciond e un dataset a otro yd e manera transparente a tu aplciacion

[jafera]

Gracias Sick Boy y Angelholberg por vuestro interés, probaré la opción de Sick a ver si va mejor.
Angel, no estoy muy puesto en según que procesos, me podrías comentar algo más acerca de clonar?

Gracias

Josep