Problemas con ClientDataSets dinamicos

[Toni]

Finalmente lo he solucionado mediante codigo poniendo en cada IBQuuery en el metodo AfterOpen, ya que no he encontrado ninguna forma de que me detecte automaticamente los campos que son la llave primaria.

Código Delphi [-]
void __fastcall TfrmDocumento::qryrw_CabOrdReubicacionAfterOpen(TDataSet *DataSet)
{
  DataSet->FieldByName("idEmpresa")->ProviderFlags << pfInKey;
  DataSet->FieldByName("idEjercicio")->ProviderFlags << pfInKey;
  DataSet->FieldByName("idSerie")->ProviderFlags << pfInKey;
  DataSet->FieldByName("NumeroDocumento")->ProviderFlags << pfInKey;
}

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