actualizar base de datos desde dbgrid

[edgar_prospero]

que hay amigos aqui estoy con un problema tengo un dbgrid al cual agrego registros y los guardo en mi base de datos en mysql, hasta ahi todo bien el problema lo tengo cuando esos datos los vuelvo a mostrar en ese dbgrid y por decir agrego ese registro y guardo me vuelve a guardar todos, como le puedo hacer para que si agrego uno nomas me grabe ese y no los demas que ya estan guardados en la base de datos el codigo con el que guardo es el siguiente:

Código Delphi [-]
DBGrid1.DataSource.DataSet.First; 
While not (DBGrid1.DataSource.DataSet.Eof) do
begin
  
    query.SQL.Clear;
    query.Close;
    query.SQL.Add
    ('insert into entradas( serie, folio, fecha, codigo, nombre, cantidad, precio, importe, id, documento, unidad) ' +
     ' values(: pserie, : pfolio, : pfecha, : pcodigo, : pnombre, : pcantidad, : pprecio, : pimporte, : pid, : pdocumento, : punidad) ' +
      'on duplicate key update nombre=: pnombre  ' );
    query.ParamByName('pserie').Value:=DBGrid1.DataSource.DataSet.FieldByName('serie').value;
    query.ParamByName('pfolio').Value:=DBGrid1.DataSource.DataSet.FieldByName('folio').value;
    query.ParamByName('pfecha').Value:=DBGrid1.DataSource.DataSet.FieldByName('fecha').value;
    query.ParamByName('pcodigo').Value:=DBGrid1.DataSource.DataSet.FieldByName('codigo').value;
    query.ParamByName('pnombre').Value:=DBGrid1.DataSource.DataSet.FieldByName('nombre').value;
    query.ParamByName('pcantidad').Value:=DBGrid1.DataSource.DataSet.FieldByName('cantidad').value;
    query.ParamByName('pprecio').Value:=DBGrid1.DataSource.DataSet.FieldByName('precio').value;
    query.ParamByName('pimporte').Value:=DBGrid1.DataSource.DataSet.FieldByName('importe').value;
    query.ParamByName('pid').Value:=DBGrid1.DataSource.DataSet.FieldByName('id').value;
    query.ParamByName('pdocumento').Value:=DBGrid1.DataSource.DataSet.FieldByName('documento').value;
    query.ParamByName('punidad').Value:=DBGrid1.DataSource.DataSet.FieldByName('unidad').value;
    
query.ExecSQL;
 
  DBGrid1.DataSource.DataSet.Next;
end;

[roman]

Pero, ¿qué es esto?

¿Para qué recorres todo el dbgrid?

// Saludos

[edgar_prospero]

jeje es que mira al grid le voy agregando registros y con este codigo lo guardo en mi base de datos, pero mi problema esta en que, despues muestro en el grid los registros con determinado folio por decir me aparecen 5 registros y agrego un sexto y le doy en guardar pues me guarda ese ultimo ero tambien todos los demas, quiero que nomas me guarde ese ultimo no se si me explico

[roman]

Tú lo que tienes que hacer es enterarte un poco de cómo funciona delphi y sus controles de datos. Ese ciclo es totalmente innecesario. Si agregas un registro al dbgrid, éste se guarda automáticamente en la base de datos tan pronto te muevas hacia otro registro o utilices el método Post del dataset asociado. Lo mismo si editas los datos de un registro ya existente.

Te recomiendo vayas al repositorio de archivos del Club y busques el libro La Cara Oculta de Delphi en la sección Delphi/Manuales, y que leas la parte relacionada con bases de datos, para que entiendas los fundamentos.

// Saludos

[edgar_prospero]

pues no soy un experto pero si entiendo lo que quieres decir pero yo lo que quise lograr es mediante edit agregar los datos al dbgrid y hasta al ultimo por medio de un boton guardarlo, use un componente llamado clientdataset1, pero es lo que no queria que se fuera agrgando automaticamente si no hasta que yo lo decidiera, la ayuda que pedia aqui es por otro lado, ya que tengo varios productos que corresponden a un folio por decir el folio 2 puede tener 3 registros y al trarmelos de la base de datos al dbgrid pues veo los 3 ahi mismo agrego un cuarto y quiero que se me agregue nomas ese cuarto a la base de datos es la ayuda que estoy solicitando, pero de todas formas seguire tu consejo y lo voy a leer gracias y saludos

[roman]

Empezado por edgar_prospero

yo lo que quise lograr es mediante edit agregar los datos al dbgrid y hasta al ultimo por medio de un boton guardarlo, use un componente llamado clientdataset1, pero es lo que no queria que se fuera agrgando automaticamente si no hasta que yo lo decidiera,

Y para eso tampoco necesitas hacer ese ciclo. Mientras no uses el método ApplyUpdates del ClientDataSet, los dtos no quedarán definitivamente gurdados en la base.

// Saludos

[roman]

Empezado por edgar_prospero

pues no soy un experto pero si entiendo lo que quieres decir pero yo lo que quise lograr es mediante edit agregar los datos al dbgrid y hasta al ultimo por medio de un boton guardarlo, use un componente llamado clientdataset1, pero es lo que no queria que se fuera agrgando automaticamente si no hasta que yo lo decidiera, la ayuda que pedia aqui es por otro lado, ya que tengo varios productos que corresponden a un folio por decir el folio 2 puede tener 3 registros y al trarmelos de la base de datos al dbgrid pues veo los 3 ahi mismo agrego un cuarto y quiero que se me agregue nomas ese cuarto a la base de datos es la ayuda que estoy solicitando, pero de todas formas seguire tu consejo y lo voy a leer gracias y saludos

Tengo la impresión de que estás usando un ClientDataSet de forma equivocada.

Vamos a ver, según entiendo, tienes una tabla de productos y una de sus columnas es un folio. Tú quieres mostrar en un DBGrid los productos correspondientes a un determinado folio y poder agregar nuevos productos, uno o más, pero que esos productos no se guarden sino hasta que tú explícitamente lo digas.

Esto lo puedes lograr ciertamente con un ClientDataSet, pero éste debe estar conectado al dataset con los productos que te interesan. Esquemáticamente hablando tienes esta hilera de conexiones:

DBGrid <---> DataSource <---> ClientDataSet <---> DatasetProvider <---> Query

El Query tendría una sentencia de este tipo:

Código SQL [-]
select * from productos where folio := 84 # un folio determinado

Cuando uses el método Open (o pongas la propiedad Active en true) del ClientDataSet, éste recogerá los datos del query y se mostrarán en el DBGrid. Aquí, puedes agregar, modificar o eliminar registros directamente en el grid, pero ninguno de estos cambios se reflejará en tu tabla de productos de la base de datos.

Cuando estés listo para grabar los datos, usarás el método ApplyUpdates(0) del ClientDataSet. Esto "moverá" todos los cambios que hayas hecho en el DBGrid (registros nuevos, borrados y modificados) a la base de datos final.

¿Te aclara esto algo?

// Saludos