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

您好，我正在脚本中使用date（）自动获取今天的日期。然而，在表单上，它显示为完美，当此字段的日期值保存到MS Access数据库中时，该值将更改为6.77751671787457E-05。。。。因此，以如下形式得出结论：2012年3月22日（正确），当保存到数据库中时，显示如下：6.77751671787457E-05（不正确）。。非常感谢您的帮助。

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

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

原因：

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

或者更好的方法是使用参数，尽管在本例中日期不需要参数，只需要公司名称即可。

为什么不：

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

---

或者更好的方法是使用参数，尽管在本例中日期不需要参数，只需要公司名称。

将日期的格式设置为35; yyyy-mm-dd hh:mm:ss#，因为Access只能理解这种格式：

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

---

将日期格式设置为35; yyyy-mm-dd hh:mm:ss#，因为Access只能理解这种格式：

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

这应该行得通（注意日期周围的单引号）

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

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

这应该行得通（注意日期周围的单引号）

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

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

---

保存日期的列的类型是什么？列的类型是文本。保存日期的列的类型是什么？列的类型是文本。我尝试使用cstr，但在数据库中显示的是：6.77751671787457E-05，而不是日期。。它应该显示2012年3月22日。。。我真的无法理解为什么它会改变我使用的是：CStr（date（））cADO.Execute“插入到tblmdfUK（txtDateReg，txtCompany）值（“&CStr（date（））&“，”和truncForm（“txtCompanyName”）&”）hm，我刚刚意识到你真正的问题：）你应该将你的日期格式化成这样35; yyyy-mm-dd hh:mm:ss#因为这是Access唯一能理解的格式。我尝试过使用cstr，但在数据库中显示的是：6.77751671787457E-05，而不是日期。。它应该显示2012年3月22日。。。我真的无法理解为什么它会改变我使用的是：CStr（date（））cADO.Execute“插入到tblmdfUK（txtDateReg，txtCompany）值（“&CStr（date（））&“，”和truncForm（“txtCompanyName”）&”）hm，我刚刚意识到你真正的问题：）你应该将你的日期格式化成这样35; yyyy-mm-dd hh:mm:ss#因为这是Access唯一能理解的格式。