agregar registros de tedit a dbgrid

[edgar_prospero]

pues de componentes no tengo muchos uso rx, mysql access y la base de datos la trabajo en mysql y creo que si ando un poco perdido jeje ojala me puedas orientar

[ecfisa]

Hola Edgar.

No conozco los componentes RX, pero supongo que a grandes rasgos el pequeño código de ejemplo que te pongo tendría que funcionar.

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.btAgregarAlGridClick(Sender: TObject);
begin
  with Form4.Table4 do
  begin
    Append;
    FieldByname('Nivel').AsString := codigo.Text;
    FieldByName('Texto').AsString := nombre.Text;
    ...
    Post
  end
end;

// Aplicar lo insertado
procedure TForm1.btnAplicarClick(Sender: TObject);
begin
  Form4.Table4.ApplyUpdates
end;

// Cancelar lo insertado
procedure TForm1.btnCancelarClick(Sender: TObject);
begin
  Form4.Table4.CancelUpdates
end;

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

Saludos.

[edgar_prospero]

excelente respuesta justo lo que andaba buscando, pero ahora al cerrar el programa me marca un error tabla: cannot perform this operation on an open dataset, pero solo cuando ya cierro elprograma me marca este error

[ecfisa]

Hola Edgar.

El error fue mío por haber escrito el código en el aire...

Donde dice:

Código Delphi [-]
  with Form4.Table4 do
  begin
    CachedUpdates:= False;
    Close;
  end;

Tendría que decir:

Código Delphi [-]
  with Form4.Table4 do
  begin
    Close;
    CachedUpdates:= False
  end;

Saludos.

[edgar_prospero]

gracias por tu respuesta ecfisa me fue de gran ayuda ya tenia tiempo atorado con este problema y gracias a los demas que respondieron

[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

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