Question

delphi 怎么样向ACCESS日期字段添加数据

ADOQuery1.sql.add('insert into 工资表 ([日期],[月份],[姓名],[工资金额],[备注]) values('''+datetimepicker1.date+''','''+trim(edit2.text)+''','''+trim(cbo1.text)+''','''+trim(edit3.text)+''','''+trim(edit4.text)+''')');
日期和月份在数据库里都是“日期/时间”属性 ，当运行程序时，不是提示字段属性不匹配，就是直接不运行，我曾经尝试了以下转换方法来使dtp控件的值与表里的字段匹配（datetimeto(datetimepicker1.date) 或者(strtodatetime(datetimepicker1.date)) 或者#%atime#（定义的变量并用时间控件取值var, atime:Tdatetime））

请高手帮忙解决一下。谢谢！

Answer 1

向数据库里添加时间日期用，，FormatDateTime('yyyy-MM-dd HH:nn:ss',now()) 这个就可以！

例：
ADOQuery1.sql.add('insert into 工资表 ([日期],[月份],[姓名],[工资金额],[备注]) values('''+FormatDateTime('yyyy-MM-dd HH:nn:ss',now())+''','''+trim(edit2.text)+''','''+trim(cbo1.text)+''','''+trim(edit3.text)+''','''+trim(edit4.text)+''')');

其中的formatdatetime写可以写成：FormatDateTime('yyyy-MM-dd HH:nn:ss',datetimepicker1.date)

Answer 2

Access里的日期时间是字串，你可以用字段的.AsString和用下列函数转换后的字串互相读写：

DateToStr()
DateTimeToStr()
TimeToStr()

这些函数的参数都是TDateTime类型，是Delphi里的日期时间类型

Answer 3

在delphi access数据库，时间不是引号隔开的，而是用 # 号，还有参数设置下，我是这样弄的 sSQL := 'insert into kq_empcrdtm(sysno,serial,cdatetime)'
+'values('''+LabelEmployeeID.Caption+''','''+'000389F8'+''','''+formatdatetime('yyyy-mm-dd hh:mm:ss',now())+''')';