Foros Club Delphi - Error al insertar fecha en tabla DBF

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Error al insertar fecha en tabla DBF (https://www.clubdelphi.com/foros/showthread.php?t=40017)

cocomo

05-02-2007 16:56:14

Error al insertar fecha en tabla DBF

Buenas a tod@s.

Estoy programando bajo delphi 6 y tengo problemas a la hora de insertar fechas en tablas locales de Foxpro (DBF) usando ADOCommand.

La cadena de conexion es "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Visual FoxPro Tables;Initial Catalog=C:\Tablas"

y las lineas de código que uso

ADOCommand.CommandText:= 'INSERT INTO PRUEBA (FECHA) VALUES ('+formatdatetime('yyyymmdd',Date)+')';
ADOCommand.Execute;

He probado diferentes formateos de fechas y siempre me devuelve el siguiente error '[Microsoft][ODBC Visual FoxPro Driver]El tipo de datos es incompatible'

Alguien podria echarme una mano.
Gracias de antemano

Neftali [Germán.Estévez]

05-02-2007 17:10:10

Inténtalo con parámetros.
No recuerdo la nomenclatura exacta, pero una búsqueda en los foros seguro que te da respuestas.

Código Delphi [-]  ...  := 'INSERT INTO PRUEBA (FECHA) VALUES (:fecha)'
  // añadir los parámetros
  ...

cocomo

05-02-2007 17:24:46

Muchas gracias por la celeridad Neftali, ya había probado con parámetros, aunque por lo visto debia cometer algún error, porque he vuelto a probar y ahora si me funciona.
El código que me resuelve el problema (por si le puede ayudara a alguien mas) es:

Código:

ADOCommand.CommandText:= 'INSERT INTO PRUEBA (FECHA) VALUES (:fecha)';

  with ADOCommand.Parameters  do begin

    Clear ;

    AddParameter.Name := 'fecha';

    ParamByName('fecha').DataType := ftDate;

    ParamByName('fecha').Value  := Date;

  end;

  ADOCommand.Execute;

Y perdón si no he redactado del todo bien la pregunta. Saludos

La franja horaria es GMT +2. Ahora son las 00:11:29.