actualizar base de datos desde dbgrid
 

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;

Pero, ¿qué es esto? :eek:

¿Para qué recorres todo el dbgrid?

// Saludos

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

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

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

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

ok seguire tu consejo y leere o que me dices creo que si me hace mucha falta, gracias:)

pues ya me puse a estudiarle amigo y tenias razon todo el codigo que tenia ahora solo con esto logro hacer que guarde mis registros, ahora solo me falta hacer que cuando agregue un registro solo me ghuarde el ultimo no se si puedas darme un tip sobre eso

Código Delphi [-]
begin
  DBGrid1.DataSource.DataSet.First; While not (DBGrid1.DataSource.DataSet.Eof) Do
begin

 ClientDataSet1.ApplyUpdates (0);
    DBGrid1.DataSource.DataSet.Next;
end;

Amigo edgar_prospero, haz caso de Román, ese código que has puesto, sinceramente (no quiero herir tus sentimientos), pero es una chapuza inútil que te reirás a carcajadas cuando lo veas... después de leer el libro que te ha recomendado.

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:

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

si amigo si me guarda los registros y me los muestra pero mi problema esta cuando muestros los datos y agrego otro registro y le doy guardar me vuelve a guardar todos los registros y no nomas el que acabo de agregar

No te guarda los otros registros. Esos ya están en la base. No sé cuál es tu confusión.

// Saludos

esa es mi confusion que muestre por decir los registros del folio5 que tiene 3 registros y a ese numero de folio le quiero agregar otro registro me vuelve a guardar los demas registros aparte del nuevo

Es que no es que te los vuelva a guardar. Los registros ya están en la base. Si tienes tres asociados al folio 5 y gregas otro, en total tendrás cuatro, los tres anteriores (que ahí se quedan, no es que se guarden otra vez) y el nuevo.

// Saludos

es que a lo mejor no me e dado a explicar mira el fin de esto es:

hay varios muebles con sus codigos entonces quiero dar entradas de los muebles que entraron entonces por decir meto un lote de 5 muebles esos 5 muebles cada uno tiene su codigo meto la primer informacion del primer mueble en tedits y von un bton de agregar se van a mi dbgrid asi consecutivamente hasta que tengo los 5 muebles y con un boton de guardar los mando a la base de datos, esos 5 muebles quedaron con el mismo nuemro de folo y la misma fecha, bueno hasta ahi todo bien pero resulta que al siguiente dia nos damos cuenta que nos falto meter un mueble entonces en el numero de folio lo pongo al que corresponde y con un enter me trae los registros que guarde al dbgrid y ahi veo mis 5 registros ahi mismo agrego un sexto entonces ya veo mis 6 registros lo que qiero lograr es que al darle guardar de nuevo nomas me grave ese sexto enla base de datos, y mi problema esta en que me vuelve a guardar los otros 5 ahi es donde estoy atorado y noi logro resolver

Yo creo que no te estás dando a entender con eso de que te los vuelve a guardar. ¿Acaso, siguiendo el ejemplo que pones, el segundo día terminas con 11 registros en la base? Porque si teminas con seis , entonces no hay problema. Lo malo sería que te esté duplicando registros.

// Saludos

exacto me esta duplicando registros si tenia 5 al guardar el sexto los otrs 5 los duplica y ya tengo 11 ese es mi problema que nopuedo resolver

Pero entonces, no estás estructurando las cosas como puse en el mensaje #10

// Saludos

si todos los componentes estan ligados asi de la manera que lo pones pero no se que estoy haciendo mal ya me desespere un poco ya me bloquie y nomas no avanzo

A ver, múestrame la estructura de tu tabla. Si no sabes cómo ver la estructura, nada más tienes que ejecutar la consulta

Código SQL [-]
show create table tu_tabla

// Saludos

aqui si me agarras en curva amigo donde ejecuto esa consulta

¿Con qué creas tus tablas y tus bases?

// Saludos

aaaa ok ya me ubique esto es lo qyue me sale mira

mysql> use cuauhtemoc
Database changed
mysql> show create table entradas
-> ;

| Table | Create Table

| entradas | CREATE TABLE `entradas` (
`serie` varchar(15) default NULL,
`folio` int(10) NOT NULL,
`fecha` date default NULL,
`codigo` varchar(20) default NULL,
`unidad` varchar(15) default NULL,
`nombre` varchar(25) default NULL,
`cantidad` float default NULL,
`precio` float default NULL,
`importe` float default NULL,
`id` int(10) NOT NULL auto_increment,
`documento` varchar(10) default NULL,
`guardado` int(10) default NULL,
PRIMARY KEY (`folio`,`id`)
) ENGINE=MyISAM AUTO_INCREMENT=20 DEFAULT CHARSET=utf8 |
+----------+--------------------------------------------------------------------

1 row in set (0.13 sec)

¿Qué componente query estás usando?

// Saludos

el que uso es este:

query-------->TMyQuery

¿Los de MyDac?

// Saludos

exactamente amigo de esos meros

Ok. Por último, ¿puedes poner un extracto de los datos? Unos cuantso registros para probar.

// Saludos

no se si es lo que me pedia pero hay va esto:


serie folio fecha codigo unidad nombre cantidad precio importe id documento
E 1 2012-08-24 CLUF02 PIEZA BOX MATRIMONIAL 3 669 2007 2 ent
E 1 2012-08-24 ANBM18 PIEZA BANCO MADRID CHICOLATE 5 1500 7500 1 ent
E 1 2012-08-24 AD04696 PIEZA CHAROLA WALDRON 1 376 376 3 ent

Ok. Aquí te pongo un ejemplo completo, listo para compilar. Incluye un archivo entradas.sql para que hagas pruebas con una versión reducida de tu tabla. Puedes introducir los datos en una base de prueba, por ejemplo la base test que ya se incluye con mysql:

Una observación:

No hay necesidad de que tu llave primaria incluya los campos ID y FOLIO. Dado que ID es autonumérico, lo mejor es dejarlo sólo a éste como llave primaria.

// Saludos

muchas gracias amigo si me funciona al 100, ya tenia tiempo batallando con esto de nuevo muchas gracias por el tiempo que te tomaste en esto

¡Qué bueno que te funciona! Pero también es importante que compares con lo que estabas haciendo para que entiendas dónde estaba el problema.

// Saludos

claro que si estyo fijandome en todo lo que me estaba fallando aunque con este que me mandaste no me deja agregar mas de 2 registros al dbgrid, agrego uno y bien pero en el segundo me marca 'key violation'

Estarás repitiendo la clave primaria:

PRIMARY KEY (`folio`,`id`)

Sí. El problema es este:

Al ser un campo autoincremental, el valor lo establece el servidor, pero dicho valor no puede conocerse hasta que no se haga un ApplyUpdates para mandar los cambios a la base de datos y un Refresh para recuperar los nuevos valores (los autoincrementales) desde la base. Como no estamos indicando ningún valor para ese campo, todos los registros nuevos toman el valor NULL y, claro, no puede haber dos registros con el mismo valor para una llave primaria. De ahí que falle al insertar el segundo registro.

La solución está en este artículo de Embarcadero, pero la resumo aquí.

1. Hay que proporcionar un valor adecuado al campo autoincremental. Esto podemos hacerlo en el evento OnNewRecord del ClientDataSet:

Código Delphi [-]
procedure TfrmMain.cdsEntradasNewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('id').AsInteger := AutoId;
  Dec(AutoId);
end;

Aquí, AutoId es una variable entera que inicializamos a -1 al momento de abrir el ClientDataSet. Así, los nuevos registros tomarán valores negativos: -1, -2, -3, etc.

2. Cada vez que hagamos el ApplyUpdates, debemos reiniciar esta variable y llamar al método Refresh:

Código Delphi [-]
procedure TfrmMain.btnGuardarClick(Sender: TObject);
begin
  cdsEntradas.ApplyUpdates(0);
  cdsEntradas.Refresh;
  AutoId := -1;
end;

3. Por último, tal como indica el artículo al final, debemos indicar que no se actualice el campo autoincremental, para que así los valors realmente sean los que asigna el servidor y no los nuestros negativos. Esto podemos hacerlo en el evento AfterOpen del dataset fuente (el MyQuery en nuestro caso):

Código Delphi [-]
procedure TfrmMain.qryEntradasAfterOpen(DataSet: TDataSet);
begin
  DataSet.FieldByName('id').ProviderFlags := DataSet.FieldByName('id').ProviderFlags - [pfInUpdate];
end;

// Saludos

sabes que me sale un error en cuanto ejecuto el programa que dice 'query: field ''id' not found'

pues no amigo roman no se que este haciendo mal pero no pasa nada con ese codigo me sigue marcando key violation ya le movi por todoas lados y nada ya me desespere con este problema ojala me pdas echar la mano