Actualizar datos dbgrid

[darkerviti]

Buenas tardes,

Mi problema es el siguiente, tengo un dbgrid conectado a un datasoruce, este esta a un clientdataset que tiene como maestro a otro clientdataset,
el grid me muestra perfectamente la informacion hasta que inserto un nuevo elemento, dicho elemento se inserta correctamente en bbdd pero no aparecen los datos insertados en el grid, y no solo eso, he probado a cerrar el clientdataset y abrirlo, a hacer un refresh y nada, solo me funciona cuando salgo de la aplicación, el código que ejecuto al insertar es el siguiente:

Código Delphi [-]
procedure TNewClass.bbtOkClick(Sender: TObject);
var
  Error : Boolean;
begin
  Error := False;
  if edName.Text = '' then
    ShowMessage('Please fill all fields')
  else
  begin
    if DM.cdsClassNew.Locate('label;idstudy', VarArrayOf([edName.Text,DM.cdsStudySel.FieldByName('id').AsInteger]),[]) then
      showmessage('Class already exists, please select another name for the class.')
    else
    begin
      if MessageDlg('Do you want to create this new class?', mtConfirmation, mbYesNo, 0) = mrYes then
      begin
        try
          DM.cdsClassNew.Insert;
          DM.cdsClassNew.FieldByName('label').AsString := edName.Text;
          DM.cdsClassNew.FieldByName('idstudy').AsInteger := DM.cdsStudySel.FieldByName('id').AsInteger;
          DM.cdsClassNew.Post;
          DM.cdsClassNew.ApplyUpdates(0);
          DM.cdsClassNew.Refresh;
          DM.cdsClassNew.Close;
          DM.cdsClassNew.Open;
          DM.cdsClass.Refresh;
          showmessage('Class created successfully');
        except
          showmessage('Operation cannot be done, please try again');
        end;
      end;
    end;
  end;
end;

Seguro que es una tontería, pero llevo mucho tiempo con el código delante y ya no lo veo.

Muchas gracias.

[[Al González]]

¿Qué valores hay en las propiedades MasterSource, MasterFields e IndexFieldNames?

[darkerviti]

Empezado por Al González

¿Qué valores hay en las propiedades MasterSource, MasterFields e IndexFieldNames?

Esto es lo que tiene cdsClassNew:

MasterSource --> dsStudySel
MasterFields --> id
IndexFieldNames --> idstudy

Esta parte funciona bien o, por lo menos, si funciona mal, la información que muestra el dbgrid es la que espero, el problema se produce al insertar un elemento.

[[Al González]]

Gracias por retroalimentar. Hagamos una prueba:

Justo después de ejecutarse la línea "DM.cdsClassNew.Insert;", ¿qué valor hay en el campo IDStudy, y en el campo ID del conjunto de datos maestro? Y justo antes del Post, ¿qué valor hay en el campo IDStudy?

Otra pregunta, ¿usas Filter u OnFilterRecord?

Una más, ¿si sólo haces el Post (sin lo que está después de él), también desaparece el registro?

Por último, ¿seguro que dsStudySel está conectado a cdsStudySel?

[darkerviti]

Empezado por Al González

Gracias por retroalimentar. Hagamos una prueba:

Justo después de ejecutarse la línea "DM.cdsClassNew.Insert;", ¿qué valor hay en el campo IDStudy, y en el campo ID del conjunto de datos maestro? Y justo antes del Post, ¿qué valor hay en el campo IDStudy?

Otra pregunta, ¿usas Filter u OnFilterRecord?

Una más, ¿si sólo haces el Post (sin lo que está después de él), también desaparece el registro?

Por último, ¿seguro que dsStudySel está conectado a cdsStudySel?

Vale, he estado haciendo pruebas, si comento todo lo demás a partir del Post, en el grid se muestra bien, pero no aparece por la bbdd, además, si intento insertar una segunda vez, me da el siguiente error:

raised exception class EDBClient with message 'Key violation.'

Si después del post sí que hago el ApplyUpdates, inserta en bbdd y muestra en el grid, pero si intentan insertar una segunda vez, suelta el mismo error que antes.
Si meto el refresh, ya no aparece en el grid, inserta bien en bbdd y me deja insertar todas las veces que yo quiera.
En cuanto a los valores que tienen:
- Justo después del insert, el campo idstudy esta vacio y el id del maestro tiene como valor 7.
- Justo antes del post el campo idstudy ya tiene también el valor 7.

No utilizo ni Filter ni OnFilterRecord y sí, dsStudySel está conectado a cdsStudySel, lo he revisado por si las moscas.

Muchas gracias por el interés.

[[Al González]]

Asegúrate de que el conjunto de datos que está del lado del proveedor permanece cerrado.

¿Qué campos tienen la bandera pfInKey? Toma en cuenta que debe tener esa bandera activa (de la propiedad ProviderFlags) el campo de llave primaria de todos los conjuntos de datos (sean maestros o detalles), tanto del lado proveedor como del lado cliente. Y, en caso de capturar varios registros en memoria antes de enviarlos al servidor, debes alimentar ese campo (no esperar a que el servidor lo haga). ¿Cómo se llama el campo de llave primaria de la tabla detalle? Los demás campos no deben tener activa esa bandera.

Por otra parte, estando bien todo lo anterior, ya no sería necesaria la sentencia de asignación al campo IDStudy (TClientDataSet lo asignará de forma automática).

Saludos.