agregar registros de tedit a dbgrid

[edgar_prospero]

ya logre insertar un registro pero ahora mi problema es que si inserto otro nuevo me sustituye el primero, como le puedo hacer para agregar varios registros aqui va mi codigo de lo que llevo

Código Delphi [-]
form4.tabla.close();
 form4.tabla.SQL.Text := 'select * from entradas where codigo=:codigo';
  form4.tabla.Params[0].Value := codigo.Text;
    form4.tabla.Open;
      form4.tabla.Insert;


     form4.tabla.FieldByName('codigo').asString:=codigo.text;
     form4.tabla.FieldByName('unidad').asString:=unidad.text;
     form4.tabla.FieldByName('nombre').asString:=nombre.text;
     form4.tabla.FieldByName('unidad').asString:=unidad.text;
     form4.tabla.FieldByName('cantidad').asString:=cantidad.text;
     form4.tabla.FieldByName('precio').asString:=precio.text;
     form4.tabla.FieldByName('importe').asString:=importe.text;

[ecfisa]

Empezado por edgar_prospero

ya logre insertar un registro pero ahora mi problema es que si inserto otro nuevo me sustituye el primero, como le puedo hacer para agregar varios registros

Hola Edgar.

Proba de este modo:

Código Delphi [-]
 with Form4.Tabla do
  begin
    Close;
    SQL.Text:= 'select * from entradas'; 
    Open;
    Append;
    FieldByname('codigo').AsString    := codigo.Text
    FieldByName('nombre').AsString    := nombre.Text;
    FieldByName('Continent').AsString := cantidad.Text;
    FieldByName('Area').AsString      := precio.Text
    Post;
    ...
  end;

Si estas añadiendo datos, la sentencia

Código SQL [-]
select * from entradas where codigo=:codigo

carece de sentido si el código no existe, o bién sobreescribe los datos si este existe.

Saludos.

[Casimiro Notevi]

¿Pero qué quieres hacer?, creo que estás confundido.

[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