Grabar DateField en MySQL da error

[Alejandro73]

Estimado

Revisa este link http://www.clubdelphi.com/foros/showthread.php?t=68351, tal vez ahí este la solución a tu problema.

Saludos

[gcaffe]

Gracias Alejando73:

El caso es que si yo preparo la sentencia SQL no tengo problemas en grabar, lo hace bien, porque en la sentencia puedo modificar el valor que envía al campo Date poniendo 'yyyymmdd'.
El problema surge cuando desde la grilla se envía a grabar, ya sea con el botón nbPost del componente TDbNavegator o porque pasa al siguiente registro.
En ese caso lo que ocurre es que en DBExpress genera automáticamente la sentencia SQL dejando la fecha en formato dd/mm/aaaa, lo que produce el error.
Necesito interceptar esa sentencia generada automáticamente por el dbExpress para modificarla, o sea modificar el datapacket.

Si alguien sabe como hacerlo les agradeceré una mano.

Muchas gracias.

[Alejandro73]

Estimado

Y si cambias el TDBNavegator por botones? como lo son el bitbtn, speedbutton o tiene que ser necesariamente el TDBNavegator que se parece a la consola de comando de las radiocasette?

Saludos

[gcaffe]

Hola Alejandro73:

Ya había probado la solución que sugieres y funciona, pero he encontrado otra sin la necesidad de eliminar el TDbNavegator, preparé un pequeño programa de ejemplo para probar y el resultado es este:
1. Creo un procedimiento para grabar el registro, como son campos persistentes no necesito el Sender, además así lo puedo invocar desde cualquier otro evento, lo que muestro es un ejemplo particular de mi aplicación, pero se entiende.

Código Delphi [-]
procedure TForm1.GrabarFechasPostError;
var
  FechaAMD: string;
begin
    FechaAMD := Copy(FechasFecha.AsString,7,4)+Copy(FechasFecha.AsString,4,2)+Copy(FechasFecha.AsString,1,2);
    with GrlDT do begin
      Close;
      CommandText := 'INSERT INTO TestFechas (Fecha) VALUES ('''+FechaAMD+''')';
      CambiarSQLText.Params[0].AsString := 'GrlSQLSrvDT';
      CambiarSQLText.Params[1].AsString := CommandText;
      CambiarSQLText.ExecuteMethod;
      Execute;
    end;
end;

Luego en el evento OnPostError de la tabla pongo este código:

Código Delphi [-]
procedure TForm1.FechasPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
// daFail, daAbort, daRetry
  Action := daAbort;
  GrabarFechas;
  Fechas.Close;
  Fechas.Open;
  Fechas.Last;
  grdFechas.SetFocus;
  PostMessage(ActiveControl.Handle, WM_KEYDOWN, VK_DOWN, 0); // Abre un nuevo registro para insertar
end;

Así funciona correctamente, pero creo que es una solución TEMPORAL, porque insisto, el dbExpress debe resolver esta situación al generar el SQL automático.
De todas formas agradeceré una respuesta para evitar estos artificios.

Muchas gracias.