Problemas con ClientDataSets dinamicos

[[fjcg02]]

Hola,

en lugar de hacerlo 'a mano', podrías preguntar al motor de la base de datos qué campos son PK, y luego ejecutar el código que te propone Al. Haciendo una función, podrías llamarla para cada TDataset antes de abrirlo. Seguro que te simplifica el código.

Un saludo

[Toni]

Eso seria perfecto, de hecho es lo que pretendia preguntar, pero como averiguo que campos son la clave principal de una base de datos que existe y las claves son 1 o mas campos?

[[fjcg02]]

Prueba con esto

Código SQL [-]
  select  i.rdb$field_name
   from rdb$relation_constraints rc, rdb$index_segments i, rdb$indices idx
   where i.rdb$index_name = rc.rdb$index_name and
         idx.rdb$index_name = rc.rdb$index_name and
         rc.rdb$constraint_type = 'PRIMARY KEY' and
         rc.rdb$relation_name = :TABLA

Cortesía del compañero Al, de una bbdd que colgó en su página web GHSistemas y que ya no está operativa.
En la página de firebird también tienes información al respecto.

Ya nos dirás.

Saludos

[Toni]

Fantastico! Voy a probar lo os comento.

[Toni]

Hola a todos,

Por el momento lo tengo solucionado llamando desde el evento AfterOpen del IBQuery a la funcion AsignarCamposClavePrincipal:

Código Delphi [-]
void __fastcall TDM2::AsignarCamposClavePrincipal(TDataSet *DataSet, AnsiString Tabla)
{
 rdb_indices->Close();
 rdb_indices->ParamByName("P_TABLA")->AsString = Tabla;
 rdb_indices->Open();
 rdb_indices->First();
 while(!rdb_indices->Eof)
  {
    DataSet->FieldByName(rdb_indices->FieldByName("rdb$field_name")->AsString.Trim())->ProviderFlags <Next();
  }
 rdb_indices->Close();
}

Este es codigo SQL del IBquery rdb_indices que se utiliza en la funcion:

Código SQL [-]
select  i.rdb$field_name
   from rdb$relation_constraints rc, rdb$index_segments i, rdb$indices idx
   where i.rdb$index_name = rc.rdb$index_name and
         idx.rdb$index_name = rc.rdb$index_name and
         rc.rdb$constraint_type = 'PRIMARY KEY' and
         rc.rdb$relation_name = :P_TABLA