检查你插入的日期的格示,yyyy-MM-dd

解决方案 »

  1.   

    记住要是 大写的MM,不要用小写的mm    :)
      

  2.   

    是直接用Date吗?检查一下机器当前日期
      

  3.   

    一般情况可用DATE函数

    RS.ADDNEW
    RS!TIME=DATE
      

  4.   

    不是吧,千年虫问题吗?
    我是这么写的没有错误:
    Dim cn As New ADODB.Connection            '连接对象
    Dim rs As New ADODB.Recordset            '记录集对象If cn.State = adStateOpen Then
       cn.Close
    End If
    '打开数据库连接
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=123.mdb;Persist Security Info=False"   '填充记录集
       rs.Open "select 存时间 from DATA", cn, adOpenStatic, adLockOptimistic
       rs.AddNew
           rs.Fields("时间") = Now
           rs.Update
           '关闭、清除ADO对象
           rs.Close
           Set rs = Nothing
           cn.Close
           Set cn = Nothing
      

  5.   

    我用ADO直接执行Insert语句,我用Msgbox查看是当前日期2002-3-8
    但存完后变成1905-6-3
      

  6.   

    不好意思,写错一行,应该改为:
    rs.Open "select 时间 from DATA", cn, adOpenStatic, adLockOptimistic
       rs.AddNew
      

  7.   

    应该是插入的时候没有用单引号把日期引起来。即用:"'" & Date$ & "'"
      

  8.   

    插入的时候应该用#号,例如select * from user_reg where date=#" & cdate(date) & "#"