Error DataSet is read Only

[boreg]

En tiempo de diseño, desde el panel de propiedades de tu SQLQuery buscas las propiedades que te mencioné en el mensaje anterior, le das doble click y escribes lo siguiente según la propiedad que modifiques (bueno, lo modificas según los datos que tengas)

Código SQL [-]
--Para insertar: propiedad INSERTSQL
INSERT INTO TABLA (CAMPO1, CAMPO2, CAMPOn)
VALUES(:CAMPO1, :CAMPO2, :CAMPOn)
 
--Para actualizar: propiedad UPDATESQL
UPDATE TABLA
SET CAMPO1 = :CAMPO1,
CAMPO1 = :CAMPO1,
CAMPO2 = :CAMPO2,
CAMPOn = :CAMPOn
WHERE CAMPOID = :CAMPOID
 
--Para eliminar: propiedad DELETESQL
DELETE FROM TABLA
WHERE CAMPOID = :CAMPOID

y ya está, la otra es hacerlo con codigo, de preferencia desde el evento oncreate del formulario en que tengas tu SQLQuery:

Código Delphi [-]
MNegocio.SQLCliente.INSERTSQL.Add(
    ' INSERT INTO TABLA (CAMPO1, CAMPO2, CAMPOn) '
 + ' VALUES(:CAMPO1, :CAMPO2, :CAMPOn) ');
MNegocio.SQLCliente.UPDATESQL.Add(
    ' UPDATE TABLA '
 + ' SET CAMPO1 = :CAMPO1, '
 + ' CAMPO1 = :CAMPO1, '
 + ' CAMPO2 = :CAMPO2, '
 + ' CAMPOn = :CAMPOn '
 + ' WHERE CAMPOID = :CAMPOID ');
MNegocio.SQLCliente.DELETESQL.Add(
    ' DELETE FROM TABLA '
 + ' WHERE CAMPOID = :CAMPOID ');

Saludos


Creo que no aclaré, son 2 formas distintas de hacerlo, una es desde diseño y la otra en tiempo de ejecución.

[[mightydragonlor]]

Ok, muchas gracias, me dispongo a hacerlo y mas tarde comento como me fue.

[[mightydragonlor]]

Hola boreg , Ahora ya no me aparece el error, sin embargo ahora no graba, me refiero a que apesar que en tiempo de ejecución no aparece ningún error al momento del post, si reviso la base de datos no aparecen los registros que he insertado.

[boreg]

Hola Mightydragonlor, tienes que hacer commit en tu componente de transaccion despues de hacer post

Código Delphi [-]
MNegocio.SQLCliente.Post;
MNegocio.SQLTransaction.Commit;

donde, SQLTransaction es el componente que tienes ligado a tu SQLQuery.

Avisanos si tienes mas dudas.