Error "Key violation" ClientDataSet -Insert

[andres_89]

Estimados amigos, buenas tardes, tengo un problema al insertar registros a una BD de MySql por ClientDataSet, el problema viene cuando deseo insertar un registro por segunda vez a la misma tabla, pero cuando "edito" el registro no hay ningún error.

Mi código implementado para insertar registros es este:

ClientDataSet1->Insert();
ClientDataSet1->FieldByName("ruc_cliente")->AsString = Edit1->Text;
ClientDataSet1->FieldByName("razonsocial_cliente")->AsString = Edit2->Text;
ClientDataSet1->FieldByName("direccionfiscal_cliente")->AsString = Edit3->Text;
ClientDataSet1->Post();
ClientDataSet1->ApplyUpdates(0);
Y este utilizo para editar un registro es este:


ClientDataSet1->Edit();
ClientDataSet1->FieldByName("ruc_cliente")->AsString = Edit1->Text;
ClientDataSet1->FieldByName("razonsocial_cliente")->AsString = Edit2->Text;
ClientDataSet1->FieldByName("direccionfiscal_cliente")->AsString = Edit3->Text;
ClientDataSet1->Post();
ClientDataSet1->ApplyUpdates(0);
El error es solo cuando se inserta registros más de una vez, en la segunda insertada me sale error "Key violation", pero cuando edito un registro las veces que quiera, no hay ningún error.

Gracias de antemano por sus respuestas.

[ecfisa]

Hola.

No manejo MySQL pero, por el mensaje de error, el nuevo registro que estas ingresando tiene un campo (que es una clave primaria o única) con el mismo valor que otro registro existente. Tal vez haya algún problema con el atributo AUTO_INCREMENT (https://dev.mysql.com/doc/refman/5.7/en/example-auto-increment.html)...

Sería bueno que publicaras la declaración SQL de la creación de la tabla, hay muchos compañeros que manejan ese gestor de DB y el dato les servirá para ayudarte.

Saludos :)

[andres_89]

Hola ecfisa,

Como siempre tú, bien atento al foro.
Bueno, si tiene una clave primaria pero normalmente, se crea solo cuando creo el registro (cuando lo inserto desde un ADOTable, asi es), no se si sea necesario declararlo cuando se inserta el registro, (quizas me equivoque), en todo caso, dejo como cree la tabla.


CREATE TABLE `cbx_clientes` (
`Id` int(11) NOT NULL,
`ruc_cliente` varchar(255) DEFAULT NULL,
`razonsocial_cliente` varchar(255) DEFAULT NULL,
`direccionfiscal_cliente` varchar(255) DEFAULT NULL)


Saludos.

[andres_89]

Hola.

No manejo MySQL pero, por el mensaje de error, el nuevo registro que estas ingresando tiene un campo (que es una clave primaria o única) con el mismo valor que otro registro existente. Tal vez haya algún problema con el atributo AUTO_INCREMENT (https://dev.mysql.com/doc/refman/5.7/en/example-auto-increment.html)...

Sería bueno que publicaras la declaración SQL de la creación de la tabla, hay muchos compañeros que manejan ese gestor de DB y el dato les servirá para ayudarte.

Saludos :)

Hola ecfisa,

Ya encontre la solución, de hecho 2 soluciones, 1 lo encontre probando código de casualidad y el otro por google.
Ambos te solucionan el problema, y el error se debe exactamente a lo que mencionaste por el campo con el "AUTO_INCREMENT (https://dev.mysql.com/doc/refman/5.7/en/example-auto-increment.html)..", estuve buscando y vi que ClientDataSet hace que tus peticiones se guarden en memoria y manda a la BD el resultado final acomodandolo automaticamente a la tabla real , el asunto es que si se insertan mas de un registro sin un campo, este acepta el segundo registro en esa mismo posición, ocasionando el problema del Id repetido.

Mi solución fue agregar "ClientDataSet1->Refresh();" antes de insertar el registro, así este obtiene el nuevo "AUTO_INCREMENT (https://dev.mysql.com/doc/refman/5.7/en/example-auto-increment.html).." a insertar y funciona correctamente:


ClientDataSet1->Refresh();
ClientDataSet1->Insert();
ClientDataSet1->FieldByName("ruc_cliente")->AsString = Edit1->Text;
ClientDataSet1->FieldByName("razonsocial_cliente")->AsString = "2";
ClientDataSet1->FieldByName("direccionfiscal_cliente")->AsString = "2";
ClientDataSet1->Post();
ClientDataSet1->ApplyUpdates(0);


Y la solución que encontre en google (cierra y vuelve a abrir el "ClientDataSet1" para obtener los nuevos valores a asignar):


ClientDataSet1->Insert();
ClientDataSet1->FieldByName("ruc_cliente")->AsString = Edit1->Text;
ClientDataSet1->FieldByName("razonsocial_cliente")->AsString = "2";
ClientDataSet1->FieldByName("direccionfiscal_cliente")->AsString = "2";
ClientDataSet1->Post();
ClientDataSet1->ApplyUpdates(0);
ClientDataSet1->Close();
ClientDataSet1->Open();


Son las soluciones que encontre al error, pero no sé si sean las soluciones ideales, si alguien del foro tiene una solución mejor o ve que estas soluciones no son las recomendables, le agradeceria lo comente para mejorar siempre el código.

Saludos.

[ecfisa]

Hola.

¡ Que bueno que lo solucionaste ! ( y muchas gracias por contarnos como lo hiciste ^\||/ )

Saludos :)