duda edit, insert, delete en Delphi 7 y MySQL

[Casimiro Noteví]

Empezado por eneseme

[..]
Hasta ahora usaba TTable y TDatasource para las tablas, y he instalado los
componentes Zeos, concretamente he probado TZTable.
no he modificado nada de codigo (de momento) y funcionan comandos tales como locate, etc, incluso puedes intercalar sentencias SQL.[..]

Me imagino que habrás cambiado los componentes que tenías antes por los de zeos. Por ejemplo, ese TTable lo has sustituido por el similar de zeos?

[eneseme]

pues sí, el TTable lo he sustituido por el TZTable, ya que el TTable no tiene como propiedad Connection, dentro de la cual, le pones la IP del servidor y el protocolo mysql-5.
hace la conexión perfectamente, incluso te muestra todos los campos del fichero en un dbgrid.
pero luego, el mantenimiento de datos, es lo que falla, no da errores ni nada,
simplemente no graba, no borra, etc.

[Casimiro Noteví]

¿Puedes poner algo de códgo más completo que lo anterior?

[eneseme]

Así funciona :

cod.Text := '7';
T_Est.locate('Cod',Vararrayof([Cod.text]),[loCaseInsensitive]);
Q_Est.SQL.Text := 'Update Estab set Nombre = "XXX" where Cod =' + cod.text;
Q_Est.ExecSQL;

// Ha Quedado modificado el registro
T_Est es un TZTable
Q_Est en un TZQuery

Así no funciona :
cod.Text := '7';
T_Est.locate('Cod',Vararrayof([Cod.text]),[loCaseInsensitive]);
T_Est.edit;
T_Est.FieldByName('DescExp').asstring := 'XXX';
T_Est.post;
T_Est.applyUpdates;
T_Est.Commitupdates;
// Cuando cierras la base, y luego la abres, no ha modificado el registro

[Casimiro Noteví]

No conozco bien los componentes zeos, pero creo que el commit debes hacerlo a la transaction de la conexión, sería algo así como:

ZTable1.Connection.Commit;

Así que en tu caso será:

T_Est.Connection.Commit;

[eneseme]

es curioso, haces la modificacion, ejecuto la sentencia que me indicas
t_estab.Connection.Commit;
en el dbgrid, se ve el campo modificado, sales y entras del programa,
y la modificación se ha perdido, está el valor anterior.
Parece ser que la modificación ha sido temporal, guardada en la caché.
como si faltase algún comando que fuerze la grabación en la base de datos.

[eneseme]

cod.Text := '7';
T_Est.locate('Cod',Vararrayof([Cod.text]),[loCaseInsensitive]);
T_Est.edit;
T_Est.FieldByName('DescExp').asstring := 'XXX';
T_Est.post;
T_Est.applyUpdates;
ConexionSQL01.AutoCommit := true;
ConexionSQL01.AutoCommit := false;

así queda grabado fisicamente, tambien se puede cambiar el .edit por .delete o por .append

saludos y gracias