delphi向access插入系统时间

Question

sql.Clear;
sql.Add('insert into [Money] (MemberMC,Money_Charge,Money_give,date) values');
SQL.Add('('''+trim(editMemberMC.Text)+''','''+trim(editPrice1.text)+''','''+trim(editPrice2.Text)+''','''+datetostr(date())+''')');
ExecSQL;
提示我insert into语法错误，谁知道怎么回事吗？谢谢

Answer 1

两个办法。不需要这么复杂
1、在数据库中对时间字段设置默认值为now()
2、SQL语句中，
sql.Add(format('insert into [Money] (MemberMC,Money_Charge,Money_give,date) values("%s","%s","%s",now()")',[trim(editMemberMC.Text),trim(editPrice1.text),trim(editPrice2.Text)]);

Answer 2

可以直接在access数据库字段里设置字段的默认值 Now()，取有就是电脑系统的时间

Answer 3

日期是formatDateTime('yyyy-mm-dd', now)

Answer 4

日期是formatDateTime('yyyy-mm-dd', now)