19 respuestas en este tema

[JRichard]

Saludos.

¿Alguien sabe como validar los registros que serán agregados a un TClientDataSet y así evitar de que se agreguen filas duplicadas?

Tengo un TClientDataSet  enlazado a un TDataSource y este último a un TDBGrid, al agregar filas a la tabla (TDBGrid) mediante el TClientDataSet todo funciona bien, ahora debo validar que cada vez que intente agregar datos se emita un mensaje en caso de que esta nueva fila ya exista dentro de la tabla.

Por Ejemplo:

Tengo una tabla con tres campos "Código, Nombre y Teléfono".

Entonces agrego "001, Juan, 0412" luego "002, Pedro, 0412" y al momento de que intente agregar nuevamente "001, Juan, 0412" se emita un mensaje diciendo que dicho registro ya se encuentra dentro de la tabla.

Agradecería mucho la ayuda! 

[Fenareth]

Hola amigo JRichard,

Al ClientDataSet puedes especificarle qué campos se consideran como KeyField (tiene un propiedad)... nunca lo he probado pero podrías intentar haciendo la restricción en esa propiedad y que el ClientDataSet se encargue de manejar las inserciones duplicadas...

Saludox !

[Delphius]

El sólo hecho de que el campo Código sea una clave primaria hace que sea imposible agregar un duplicado por lo que cualquier intento de insertar un registro con el mismo código llevará a que se levante una excepción por el motor de base de datos que luego el sistema puede capturar. 

Saludos,

[Fenareth]

El sólo hecho de que el campo Código sea una clave primaria hace que sea imposible agregar un duplicado por lo que cualquier intento de insertar un registro con el mismo código llevará a que se levante una excepción por el motor de base de datos que luego el sistema puede capturar. 

Saludos,

De acuerdo si y solo si el ClientDataSet está conectado a la base de datos a través de un DataSetProvider y un DataSet, pero eso no lo especifica 

Saludox !

[Delphius]

De acuerdo si y solo si el ClientDataSet está conectado a la base de datos a través de un DataSetProvider y un DataSet, pero eso no lo especifica 

Saludox !

Umm  , yo mucho no he podido explorar sobre la estructura que conlleva el uso del TClientDataSet, si... es un error mio lo se, asi que pregunto: ¿Que acaso se puede saltear al DataSetProvider para lograr vincular todos los objetos? 
Además si se está trabajando con campos persistentes creería que ya se hace todo automático, dejando en el campo Field que se trata de un campo clave.
Eso es lo lindo de tener un RAD ¿o no?

Saludos,

[genriquez]

Hola

El TClientDataSet es muy poderoso, para mi es una de las herramientas más robustas y necesarias para la programación con datos,  lamentablemente es menospreciado. 

El TClientDataSet  tiene unas propiedades llamadas FieldDef e IndexDef, en estas propiedades es posible agregar campos e indices, ya sean primarios o no.

Al definir un indice primario es posible evitar tuplas duplicadas.


Estas estructuras se pueden crear de 3 maneras diferentes,  la primera por código.

delphi

Var
  CDS : TClientDataSet;
 
Begin
   CDS := TClientDataSet.Create(Nil)
   CDS.FieldDefs.Add('NombreCampo', TFieldType, Size, Required);
   CDS.FieldDefs.Add('NombreCampo', TFieldType, Size, Required);
   CDS.FieldDefs.Add('NombreCampo', TFieldType, Size, Required);
   CDS.FieldDefs.Add('NombreCampo', TFieldType, Size, Required);
 
   CDS.IndexDefs.Add('NombreIndice','llave1;llave2;llaven',[ixPrimary]);
 
   CDS.CreateDataSet;

La segunda forma de crearla es por el editor del IDE, doble click a la propiedad fieldef y doble click a la propiedad IndexDef, luego con el botón derecho del mouse sobre el componentes, se le dice "Create DataSet"

La tercera es con la utilización de un DataSetProvider y crearlo a partir de un SQL.

Otras cosas que permite hacer el ClientDataSet son:

1. Guardar la información localmente en formato binario o XML.
2. Recuperar una tabla de un archivo local previamente guardado.
3. Cargar datos locales, conectarse a una tabla real y aplicar cambios almacenados
4. Agrupar y sumarizar en varios niveles.
5. Sincronizar los datos y controlar los errores con respecto a la base de datos.
6.  Permite trabajar como memorytables
7. Es compatible desde Delphi4 hasta XE5.

No olvidar incluir en los uses  la unidad  midaslib, de lo contrario se requiere el uso del midas.dll.

Espero les sea de utilidad.

Saludos.

[Delphius]

Gracias genriquez por la aclaración. 
Por otro lado, he modificado tu mensaje para darle la etiqueta de código.

Saludos,

[Fenareth]

Gracias por la explicación amigo genriquez  

De acuerdo si y solo si el ClientDataSet está conectado a la base de datos a través de un DataSetProvider y un DataSet, pero eso no lo especifica 

Saludox !

Umm  , yo mucho no he podido explorar sobre la estructura que conlleva el uso del TClientDataSet, si... es un error mio lo se, asi que pregunto: ¿Que acaso se puede saltear al DataSetProvider para lograr vincular todos los objetos? 
Además si se está trabajando con campos persistentes creería que ya se hace todo automático, dejando en el campo Field que se trata de un campo clave.
Eso es lo lindo de tener un RAD ¿o no?

Saludos,

De acuerdo Delphius, pero otra belleza del RAD es que te permite hacer las cosas como mejor te acomoden, y para eso permite que un ClientDataSet se utilice a través de un DataSetProvider y un DataSet... o no

Por ejemplo, recientemente estoy involucrada en el desarrollo de un sistema donde la indicación principal es: sin conexiones abiertas hacia la BD, es decir, hago una consulta (a través de un SP) obtengo los registros y me desconecto de la BD.

En el caso de que necesite mostrar los registros recuperados en TDBGrid es suficiente con que alimente mi ClientDataSet con los datos obtenidos y sea éste el que se encargue de mostrarlos.

Saludox !

[Delphius]

A ver,
Fena entiendo el uso y objetivo que propone el TClientDataSet a lo que yo apunto es que independiente de la arquitectura que se utilice para el acceso hacia la base de datos, si en la base de datos existe una adecuada planeación de las claves los componentes que se comuniquen hacia ésta deben reflejarlo.
Es decir que ya sea una inserción directa o indirecta hacia la base de datos dichos componentes por defecto al configurarlos debidamente DEBERIAN ser capaces de efectuar tal advertencia de violación de duplicidad.

Tengo entendido que el TClientDataSet internamente contiene dos caché, una "alfa" y otra "beta" en donde temporalmente se van efectuando las operaciones ABM. Operaciones que luego se van a materializar hacia la base de datos (No pueden, o no deberían quizás debiera decir, quedar en el "limbo" enternamente). Es en este punto en donde el motor bien inteligentemente advierte de una violación de duplicidad y los componentes están diseñados para capturarlas.

¿Que el TClientDataSet no está pensado para capturar un error de este tipo? Creería que no.

Saludos,

[Fenareth]

Estoy de acuerdo contigo, pero me parece que no estás viendo un punto en específico:

Creo que la idea de que hay registros temporalmente almacenados en un ClientDataSet, pero cuyo destino final es la base de datos, es absolutamente correcta.

Lo que yo comentaba y acorde con lo que expuso genriquez sí es posible, es que el control de inserción puede hacerse directamente en el ClientDataSet antes de que la información sea almacenada finalmente en la BD. Claro que el motor debería tener el control de las inserciones aunque no se controlara desde Delphi, pero el control es posible en ambos lados.

Saludox !

[Delphius]

Es que eso no invalida mi punto amiga.

Si efectivamente el TClientDataSet tiene la forma de efectuar el control, el sólo hecho de intentar hacer un INSERT en su tabla interna llevaría al error; error que el mismo captura. Sigue siendo una imitación del propio motor de base de datos; simplemente se ha cambiado el grado de abstracción.

El intentar redirigir las cosas por otra vía (como por ejemplo lanzar un SELECT previo para buscar si existe ya un registro) es desaprovechar el buen diseño que le han dado los ingenieros de CodeGear.

En mi primer mensaje al hilo simplemente he resumido el punto: ¡ya las herramientas hacen el trabajo! ¡Que no se necesita de más! Estoy notando en JRichard que quiere entrarle a las cosas un tanto desconfiado y con miedo. Tu éntrale amigo; que si luego salen dudas o más errores no es malo, ¡todo lo contrario! 

¿Me explico?
Estoy pensando que hoy no es mi día... o que estuve tan pero tan perdido y fuera de los conceptos de programación que me han cambiado los esquemas. 

Saludos,

[Fenareth]

No, es que nadie en ningún momento ha sugerido métodos adicionales de validación de datos al momento de hacer una inserción, simplemente JRichard preguntó cómo podía validar eso desde un ClientDataSet y le hemos expuesto el modo de hacerlo ya sea que éste tenga conexión directa con la BD (en cuyo caso el motor se encargará de la validación), o no (aquí el CDS tendría que hacerse cargo)...

Pero claro que le hemos sugerido que la misma funcionalidad del componente lo realice, sólo le dijimos por dónde tenía que buscar la respuesta...

Saludox !

[genriquez]

Hola

Para llegar a acuerdo, recuerden de las diferentes formas de creación del contenido de un TClientDataSet,  Si el TClientDataSet está conectado por medio de un TDataSetProvider a una base de datos, el TClientDataSet, se llena con la estructura de la misma y si esta tabla tiene una llave primaria, creará automáticamente los indices y las validaciones.  En otras palabras, el TClientDataSet refleja la estructura de la base de datos.

Pero como mencionan, lo bueno del RAD Studio o Delphi es que te deja hacer las cosas como quieras, así que si no tienes conexión a la base de datos y lo quieres hacer a mano, para tener una tabla en memoria desconectada, también tienes la opción de crear un indice que solo existe en la memoria y hace la validación de tuplas duplicadas.

Habría que revisar las propiedades del TDataSetProvider para ver que puede o no hacer el TClientDataSet conectado a la base de datos,  ya que puede traer el metadata o solo los datos. 

Saludos.

[Delphius]

Bueno, entiendo tu punto y lo acepto.
Solamente dejame puntualizar algo: de una u otra forma, tarde o temprano el motor efectuará el control. Si se hace el control en el CDS se estará haciendo las cosas dos veces, lo cual es innesesario y puede evitarse.

Saludos

[genriquez]

Hola, el modelo del TClientDataSet es el mismo del MemoryTable, primero todo se hace en memoria sin que el servidor tenga participación y si se utiliza el TClientDataSet conectado a la base de datos, obviamente en algún momento se enviará a guardar esta información a la base de datos.

En este punto el que actúa es el TDataSetProvider, este componente se encarga de construir los SQL necesarios (CRUD) para la actualización de los datos contenidos en el TClientDataSet sobre la base de datos.  es en este momento donde el motor de la BD interviene y enviará los respectivos mensajes al TClientDataSet para ser corregidos o tomar acciones sobre ellos.

Esta técnica nos permite hacer aplicaciones en 3 capas y es necesaria para el desarrollo de aplicaciones móviles.  Los problemas que se presentan aquí son las inconsistencias cuando hay varias versiones en diferentes dispositivos,  cada uno tendrá una copia de lo que había originalmente en la base de datos, pero al final cada uno tendrá su propia versión.

Pero no se preocupen, Delphi piensa en todo y tiene los respectivos mecanismos para corregir o darle al usuario la opción de tomar decisiones sobre este tema.

Yo en particular tengo aplicaciones haciendo uso extensivo de esta técnica con celulares y tablet y es bastante eficiente a la hora de la concurrencia. 

Además tengo programas de sincronización entre bases de datos y es bastante eficiente en este tema,  moviendo miles de registros en solo unos segundos.

[cram]

JRichard,
Si solo conectas desde el TClientDataSet a la grilla (pasando por el DataSource) es obvio que no utilizas un DataSetProvider, por lo tanto, estás haciendo uso de una Tabla de Memoria que bien lo explicó GEnriquez.
Si te sirve de algo, podrías hechar un vistazo a los eventos AfterInsert, BeforeInsert, OnNewRecord para hacer las validaciones. Existe una sentencia para abortar las operaciones: Abort. Creo que por allí está la solución.
Por otro lado como lo dice Delphis puede agregar Índices, desde IndexDefs (análogo a FieldDefs), marcarlo como ixUnique ycapturar los errores.

[Fenareth]

JRichard,
Si solo conectas desde el TClientDataSet a la grilla (pasando por el DataSource) es obvio que no utilizas un DataSetProvider, ...

Yo no estaría tan segura amigo... puede ser que su estructura sea simplemente ClientDataSet -> DataSource -> DBGrid o bien, DataSet -> DataSetProvider -> ClientDataSet -> DataSource -> DBGrid... sería cuestión de que él nos los aclarara...

Saludox !

[JRichard]

Saludos a todos.

Gracias por responder a mi Tema. Me ayudaron a salir de varias dudas. Logre resolver de la siguiente manera:

delphi

   
//Se Activa el TClientDataSet. En mi caso el TClientDataSet se llama cdsServidores
    if not cdsServidores.Active then
     begin
      cdsServidores.Open;
     end;
 
//Posicionamiento en la primera Fila del TClientDataSet.
    cdsServidores.First;
 
//Itero hasta llegar a el final del TClientDataSet
    while not cdsServidores.EOF do
     begin
      try
       //Se toma el Valor del primer campo del TClientDataSet.
       fila := cdsServidores.Fields[0].Value;
 
//Se compara con el codigo del Servidor, si es igual i = 1. FcodigoServidor es una variable que almacena el código del nuevo registro que estoy intentando insertar
       if fila = FcodigoServidor then
        begin
         i := 1;
        end;
      except
      end;
 
//Se itera con el fin de posicionarse en una nueva fila.
      cdsServidores.Next;
     end;

Luego creo una condición donde si i = 1 no se agrega el registro a el TClientDataSet y si es distinto agrego el registro.

Por ahora me funciona perfectamente jejeje, si existe algún error con el tiempo lo iré optimizando, pero por algo se empieza. Gracias a todos!!! 

[JRichard]

Aclaro algo, la estructura que utilizo es ClientDataSet -> DataSource -> DBGrid[/b]. 

[Delphius]

Por favor JRichard, emplea las etiquetas de código.
He editado tu mensaje para darle el formato al código.

Saludos,