在使用SQLite的时候,肯定需要使用到日期型数据类型,但是SQLite没有直接支持日期类型,比如在其他数据库中支持的DateTime类型,在Delphi中是TDateTime类型。
那么实际处理中应该如何处理呢?
可以使用两种方式类在SQLite中表示日期类型:
第一种,将字段类型定义成整形(Integer),那么在Delphi中就使用Unix日期类型,写入数据的时候使用DateTimeToUnix函数将Delphi的TDatetime转换成整形,然后写入数据库,读出整形数字后使用UnixToDateTime函数将读出的整形转换成TDateTime类型即可。缺点是没有包含毫秒数据。
第二种,将字段类型定义成浮点(real),那么在Delphi中就可以直接使用TDateTime日期类型写入数据。但是读出时需要定义成Float类型,而不是使用DateTime类型。包含毫秒
举例如下:
varSQL : string;Q : TFDQuery;D : Int64;T : TDateTime;
beginSQL := 'SELECT * FROM Table_language WHERE cn = "AAAAA"';Q := TFDQuery.Create(nil);Q.SQL.Text := SQL;Q.Connection := FDConnection;Q.Open;//D1是整形 D := Q.FieldByName('D1').AsInteger;T := UnixToDateTime(D);SQL := FormatDateTime('YYYY-MM-DD hh:mm:ss zzz',T);//写入Q.FieldByName('D1') := DateTimeToUnix(Now);//D2是RealT := Q.FieldByName('D2').AsFloat; //不能用 AsTDateTimeSQL := FormatDateTime('YYYY-MM-DD hh:mm:ss zzz',T);//写入Q.FieldByName('D2') := Now;
end;