Problemas con ClientDataSets dinamicos

[[Al González]]

Hola.

Algo como lo siguiente hago yo para todos los conjuntos de datos a los que asocio un TDataSetProvider:

Código Delphi [-]
Var
  Field :TField;
Begin
  Field := DataSet.FindField ('ID');

  If Field <> Nil Then
    // Activamos la bandera pfInKey en el campo de llave primaria
    Field.ProviderFlags := Field.ProviderFlags + [pfInKey];

Suponiendo que no uses un nombre común para el campo llave (hay a quienes les gusta la incómoda repetición del nombre de la tabla como parte del nombre de su campo principal, y también quienes desestiman las ventajas de las llaves artificiales), entonces puedes tomar el primer campo, asumiendo que éste siempre será el campo de llave primaria:

Código Delphi [-]
  Field := DataSet.Fields [0];

(DataSet es tu IBQuery)

Esto lo puedes hacer en algún evento o punto del programa donde ya estén creados los objetos TField de un IBQuery, pero antes de que el primer paquete de datos sea solicitado por el conjunto de datos cliente correspondiente.

O también puedes redefinir el método virtual TDataSet.PSGetKeyFields en una clase derivada de TIBQuery.

Como suelo usar campos persistentes, no me he visto en la necesidad de estudiar a fondo alguno de esos caminos, pero conociendo al señor Delphi, no dudo que sea posible lograrlo a través de esas u otras ideas de solución.

No dejes de retroalimentar este tema.

Saludos.

Al González.