agregar registros de tedit a dbgrid

[ecfisa]

Empezado por edgar_prospero

creo que cante victoria muy pronto nomas me guarda un registro en mi base de datos si pongo 3 registros y voy a la base de datos nomas guardo el ultimo y los otros 2 no aparecen

Hola.

Es muy probable que te hayas olvidado de presionar el botón que guarda los datos en caché.

De este modo es mas difícil que eso suceda:

Código Delphi [-]
// Activar CachedUpdates, abrir Table4
procedure TForm1.FormCreate(Sender: TObject);
begin
  with Form4.Table4 do
  begin
    CachedUpdates := True;
    SQL.Text      := 'SELECT * FROM ENTRADAS';
    Open
  end;
end;

// Mostrar en el DBGrid
procedure TForm1.btnAgregarAlGridClick(Sender: TObject);
begin
  with Form4.Table4 do
  begin
    Append;
    FieldByname('Nivel').AsString := codigo.Text;
    FieldByName('Texto').AsString := nombre.Text;
    ...
    Post
  end
end;

...

// Al salir: ¿ Hay datos pendientes  en caché ? => preguntar si desea guardar
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
const
   UTYPE = MB_ICONQUESTION or MB_APPLMODAL or MB_DEFBUTTON1 or MB_YESNO;
begin
  if Form4.Table4.UpdatesPending and
   (MessageBox(Handle, '¿ Guarda los cambios ?', '', UTYPE) = IDYES) then
     Form4.Table4.ApplyUpdates
end;

...

// Desactivar CachedUpdates, cerrar Table4
procedure TForm1.FormDestroy(Sender: TObject);
begin
  with Form4.Table4 do
  begin
    Close;
    CachedUpdates:= False
  end
end;

Saludos.