Algo curioso con las tablas en firebird

[[Delphius]]

Para mi que el problema está en el manejo de las transacciones y/o en el nivel de aislamiento de las mísmas.
¿Por casualidad, haces commit o commitretaing después del post? ¿Qué nivel de aislamiento tienes configurados para las transacciones?

Saludos,

[novato_erick]

Este es mi procedimiento en el boton de guardar corrijanme ya que no he logrado refrescar los datos sin tener que cerrar toda la aplicación.

Código Delphi [-]
procedure TFrmProveedores.Button1Click(Sender: TObject);

begin
  if Application.MessageBox('¿Desea Agregar Otro?', 'Confirmación',
    MB_ICONQUESTION OR MB_YESNO) = ID_NO then
        begin
          dmacceso.cdsProveedores.Applyupdates(0);
          Main.FrmPrincipal.iCloseClick(FrmProveedores);
          Close;
        end
         else
            Begin
              dmacceso.cdsProveedores.Active := False;
              dmacceso.cdsProveedores.Active := True;
              dmacceso.cdsProveedores.ApplyUpdates(0);
              dmacceso.cdsProveedores.Last;
              dmacceso.cdsProveedores.Insert;
            end;

end;

utilizo directamente dbEdit mi conexion es dbexpress. y mi base da datos firebird.

Saludos

[[José Luis Garcí]]

hola novato_erick, te pongo el código de como lo hago yo

Código Delphi [-]
procedure TFDominios.SpeedButton2Click(Sender: TObject);
//------------------------------------------------------------------------------
//************************************************************[  Grabar  ]******
//------------------------------------------------------------------------------
begin
      try  //1
       //Aquí validamos y hacemos todo lo que sea necesario antes de Grabar, como por ejemplo confirmar el agregar otro registro, etc
       FCreadorTablas.post;   //Graba los Datos
       FCreadorTablas.IBTransaction1.CommitRetaining; //Confirma la Transición, haciendo visible el dato para todos, ojo si tienes un querry, es mejor reactivarlo
       //Aquí debes hacer, lo posterior a grabar, como borrar datos de componentes no conectado a la B.D., poner visible/enable o no botones, paneles, etc

     except //1
       on E: Exception do  //Captura el Mensaje de error
       begin
         //Mostramos el mensaje (DOM G-2) es mi identificador de error, lo que hago es DOM son las tres primeras letras del Form (Dominios) en este caso G, el modulo grabar y 2,
         //  por que en este caso dentro de grabar seria el segundo control de excepciones (he eliminado el otro para no complicar las cosas, ya que grababa en dos módulos diferentes)
         ShowMessage('DOM G-2 Se ha producido un error, y no se ha creado el Dominio,'+#13+#10+
                     'Error: ['+E.Message+']');  //E.Message sería el mensaje de error original
         FCreadorTablas.IBTransaction1.RollbackRetaining;  // Si se ha producido un error, desbloqueamos los valores introducidos para que no siga los datos activos, ya que nos
                                                                             // podría dar problemas e incluso bloquearnos la aplicación
       end;
     end;//1
end;
//1 Es muy importante una cadena Try Except end para controlar cuando se te produzca un error, no quede el sistema con fallos e incluso bloqueado

[novato_erick]

hola he estado trabajando con transacciones como me lo han recomendado primero que nada les quiero agradecer a los que me han contestado en este foro Gracias Sres...

Leyendo un poco más sobre las transacciones en delphi el cual el libro Delphi 7 del autor Marco Cantú he realizado el siguiente procedimiento:

Código Delphi [-]
procedure TFrmProveedores.Button1Click(Sender: TObject);
var
  TB : TTransactionDesc;
begin
  if Application.MessageBox('¿Desea Agregar Otro?', 'Confirmación',
    MB_ICONQUESTION OR MB_YESNO) = ID_NO then
        begin
        TB.TransactionID := 1;
        TB.IsolationLevel := xilREADCOMMITTED;
        dmconexion.sqlDB.StartTransaction(TB);
        end;
            try
               dmacceso.cdsProveedores.Applyupdates(0);
               dmconexion.sqlDB.Commit(TB);
               Main.FrmPrincipal.iCloseClick(FrmProveedores);
               Close;
            except
               dmconexion.sqlDB.Rollback(TB);
end;
 
end;

veo y reviso en la base de datos y ok esta bien pero aun asi sigo con el problema que si deseo por ejemplo agregar otros atributos al registro desde otro formulario por ejemplo llamado cuenta de proveedor no puedo seleccionarlo pero si aparece en el registro.

Que sucederá alguna idea?

Saludos

novato_erick