如何添加新的日期记录 [英] How do I add new record of date

问题描述

Private Sub AddRecord_Click()
RSSQL = "SELECT * FROM D"
ASSIGNRS.Open RSSQL, DB, adOpenDynamic, adLockOptimistic
ASSIGNRS.AddNew "DOB", "''" & Text1.Text & "''"
ASSIGNRS.Close
End Sub

这是将日期字段添加到的简单代码表D只有列DOB。

在表D中，SQL接受日期为''01 -JAN-99''格式。所以我将combo1的data_format属性设置为date：dd-MMM-yy

但仍然在运行此代码时发生错误 - 多步操作生成错误，检查每个状态值。

虽然双边日期格式相同但为什么它不接受addnew记录？

请帮助

This is the simple code for adding date fields into table D having only column DOB.
In table D,SQL accepts date as ''01-JAN-99'' format.So I set data_format property of combo1 as date:dd-MMM-yy
But still While running this code error occurred- Multiple-step operation generated error, check each status value.
Though both sided date formats are same then why it is not accepting addnew record?
Please help

推荐答案

尝试使用TO_DATE函数。所以类似

Try using TO_DATE function. So something like

ASSIGNRS.AddNew "DOB", "TO_DATE(''" & Text1.Text & "'', ''DDMMYYYY'')"

在该示例中，文本格式应为

In that example the text should be formatted like

26032011

这篇关于如何添加新的日期记录的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！