Tipo de dato DateTime y Time Stamp

[mamcx]

Porque mejor no muestras la estructura en SQL y el ejemplo con DATOS de lo que sale mal???

[LIA_GUILLERMO]

Empezado por mamcx

Porque mejor no muestras la estructura en SQL y el ejemplo con DATOS de lo que sale mal???

Mi función es la siguiente:

Código Delphi [-]
Function TForm1.InsertEA (Const ADateTime :TDateTime; AIx :Byte; AValor :Real;
AStatus :Integer) :Integer;          (AIx es el Indice)
Begin
  FDConnectWriteDB.ExecSQL (System.SysUtils.Format (
    'Insert into EA Values (%d, %n, %d, %d)',[AIX, AValor, ADateTime, AStatus]));
End;

Lo primero que quiero resolver es cómo poder guardar el ADateTime al campo Fecha_Hora que es un Time Stamp en mi base de datos, ya que asi como lo tengo pues me marca una incompatibilidad de tipos.

[ecfisa]

Hola.

Empezado por LIA_GUILLERMO

... pues me marca una incompatibilidad de tipos.

Pero... ese es un problema diferente al que mencionabas antes.

Bueno, así a simple vista el tercer parámetro de Format lo declaras de tipo entero y el tipo TDateTime debería estar como flotante '%f', fíjate si ahí está el problema.

Saludos

[LIA_GUILLERMO]

Empezado por ecfisa

Hola.

Pero... ese es un problema diferente al que mencionabas antes.

Bueno, así a simple vista el tercer parámetro de Format lo declaras de tipo entero y el tipo TDateTime debería estar como flotante '%f', fíjate si ahí está el problema.

Saludos

Si lo intente con '%f' pero me marca un error de conversión de cadena

[mamcx]

1- Deberias usar parametros en vez de formatear manualmente
2- %d es para integers
3- No pones comillas a la fecha
4- Usa formato ISO

http://www.delphibasics.co.uk/RTL.as...FormatDateTime

[(MAJ)]

Buenas, lo que podrías hacer es enviar la fecha como un string llamando a "formatdatetime"

Código Delphi [-]
Function TForm1.InsertEA (Const ADateTime :TDateTime; AIx :Byte; AValor :Real; AStatus :Integer) :Integer;      //    (AIx es el Indice) 
Begin   
  FDConnectWriteDB.ExecSQL (System.SysUtils.Format ('Insert into EA Values (%d, %n, %s, %d)',[AIX, AValor, FormatDateTime('mm/dd/yyyy hh:nn:ss:zzz',ADateTime), AStatus])); 
End;

aplicas el formato que te sirva y no perdés precisión
http://www.delphibasics.co.uk/RTL.as...FormatDateTime