高手们快来看看问题出在哪呀.....

Question

rs.Open "update ycgk set ycgk_date=" & Format(新日期, "yyyy-mm-dd") & " where ycgk_date=#" & Format(日期, "yyyy-mm-dd") & "#", cn, 1,3
用上面这句代码执行后得出的日期乱七八糟的
rs.Open "select * from ycgk where ycgk_date=#" & Format(日期, "yyyy-mm-dd") & "#", cn, 1, 1
If rs.BOF = False And rs.EOF = False Then
   ii = rs.RecordCount
   rs.Close
   For oo = 1 To ii
       rs.Open "select * from ycgk where ycgk_date=#" & Format(日期, "yyyy-mm-dd") & "#", cn, 1, 3
       rs.Fields("ycgk_date") = 新日期
       rs.Update
       rs.Close
   Next oo
Else
   rs.Close
End If
用下面这段就可以执行正确,问题出在哪呀....

Answer 1

cn..Execute "update ycgk set ycgk_date=#" & Format(新日期, "yyyy-mm-dd") & "# where ycgk_date=#" & Format(日期, "yyyy-mm-dd") & "#"

Answer 2

cn.Execute
不行呀,试过了,还是出现一现奇怪的日期
其中有12:0:0,1905-06-05,1905-05-06..........的,但在用第二段代码就完全正常...

Answer 3

cn.Execute "update ycgk set ycgk_date=#" & Format(新日期, "yyyy-mm-dd") & "# where ycgk_date=#" & Format(日期, "yyyy-mm-dd") & "#"再说一遍，你原来的主要错误是在“set ycgk_date=”后面的那个Format两边没加“#”，要补，若不然就会更新为1905-06-05了
看清楚点改！！！