Question

您好我在我的脚本中使用date（）来自动获取今天的日期。在表单上它显示完美，但是，当具有日期值的此字段被保存到MS Access数据库时，该值将更改为6.77751671787457E-05 ....因此，要显示的形式如下所示： 2012年3月22日（正确），当保存到数据库时它显示如下：6.77751671787457E-05（不正确）..任何帮助将非常感激。

Answer 1

将日期格式化为＃yyyy-mm-dd hh：mm：ss＃，因为这是Access可以理解的唯一格式：

accessDate="#" &  right("00" & year(date()), 4) & "-" & right("0" & month(date()), 2) & "-" & right("0" & day(date()), 2) & "#"

Answer 2

如果您在文本字段中保存数据，最好在保存之前使用cstr（）。

Answer 3

为什么不：

cADO.Execute "INSERT INTO tblmdfUK (txtDateReg, txtCompany) VALUES (Date(), " & truncForm("txtCompanyName") & ")"

或者更好的是，使用参数，虽然在这种情况下日期不需要参数，只需公司名称。

Answer 4

这应该有用（注意日期周围的单引号）

cADO.Execute "INSERT INTO tblmdfUK (txtDateReg, txtCompany) VALUES ('" & CStr(date()) & "', " & truncForm("txtCompanyName") & ")"

我在没有CStr的情况下成功使用此方法for now（）。将SQL语句放在变量中，以便您可以在即时窗口中看到它，并且您将看到问题：

INSERT INTO tblmdfUK (txtDateReg, txtCompany) VALUES (3/22/2012,

vbscript使用date（）来获取今天的日期问题

4 个答案: