agregar registros de tedit a dbgrid

[ecfisa]

Hola Edgar.

quiero ir agregando los registros a mi dbgrid y ya despues por ,medio de un bton guardarlos en mi base de datos

Ahí esta tu confusión, del modo que lo trabajas, lo que ves en el TDBGrid es lo que ya fué almacenado en tu BD.

Para realizar lo que deseas tendrías que usar CachedUpdates, un TClientDataSet ,o también podrías valerte de un TStringGrid (aunque lo creo más complicado de usar).

¿ Que componentes y que SGBD estas utilizando ?

Saludos.

[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