agregar registros de tedit a dbgrid

[edgar_prospero]

a lo mejor no me e explicado bien tengo varios edit los cuales lleno y quieros mandar la informacion a un dbgrid con lo que me dijo ecfisa
ya lo logre pero nomas puedo pasar un regsitro al dbgrid si pongo otro lo quiere poner donde mismo que el primero no se brinca al segundo

[ecfisa]

Empezado por edgar_prospero

a lo mejor no me e explicado bien tengo varios edit los cuales lleno y quieros mandar la informacion a un dbgrid con lo que me dijo ecfisa
ya lo logre pero nomas puedo pasar un regsitro al dbgrid si pongo otro lo quiere poner donde mismo que el primero no se brinca al segundo

Hola.

Para agregar registros debería bastarte con este código:

Código Delphi [-]
  with Form4.Tabla do
  begin
    Open; // (Necesario solo si la tabla esta cerrada)
    Append;
    FieldByname('codigo').AsString    := codigo.Text
    FieldByName('nombre').AsString    := nombre.Text;
    FieldByName('Continent').AsString := cantidad.Text;
    FieldByName('Area').AsString      := precio.Text
    Post;
    Close; // (Solo si deseas cerrar la tabla al finalizar la inserción )
  end;

La línea

Código Delphi [-]
   SQL.Text:= 'select * from entradas';

Es solo necesaria si la sentencia SQL no fué definida con anterioridad.

Saludos.

[edgar_prospero]

efectivamente con ese codigo si me muestra la informacion en el dbgrid pero solo el primer registro si pongo otro registro no me lo muesta en el dbgrid y es lo que quiero lograr primero ingresar los registros que necesite en el dbgrid y ya despues ahora si guardarlos en la base de datos. a lo mejor ahi esta la clave para explicarme mejor que primero quiero ir agregando los registros a mi dbgrid y ya despues por ,medio de un bton guardarlos en mi base de datos

[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