actualizar base de datos desde dbgrid

[edgar_prospero]

aqui si me agarras en curva amigo donde ejecuto esa consulta

[roman]

¿Con qué creas tus tablas y tus bases?

// Saludos

[edgar_prospero]

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)

[roman]

¿Qué componente query estás usando?

// Saludos

[edgar_prospero]

el que uso es este:

query-------->TMyQuery

[roman]

¿Los de MyDac?

// Saludos

[edgar_prospero]

exactamente amigo de esos meros

[roman]

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

// Saludos

[edgar_prospero]

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

[roman]

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:

mysql -uroot -p test < entradas.sql

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

[edgar_prospero]

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

[roman]

¡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

[edgar_prospero]

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'

[Casimiro Notevi]

Empezado por edgar_prospero

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`)

[roman]

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

[edgar_prospero]

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

[edgar_prospero]

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