Question

vb中通过记录集修改access中的数据，其中有一日期型字段（含时间）提示不进行AddNew无法更新，咋回事。

Answer 1

你用format()函数格式化了再试下
format(date,"yyyy-mm-dd")

追问

是含有时间的日期格式，怎么格式化

追答

Text1.Text =Format(Now, "现在是yyyy年m月dd日 第ww周 星期w hh:mm:ss ampm", vbMonday)

now是你要格式化的日期时间
后面的就是格式化字符串模板，汉字部分你可以自定义
format功能很强大的，还可以格式化数字等。。。
比如
Format(1,"0.00")
那么他就会把数字1格式化为有两位小数

追问

请问，从文本框输入日期，对记录集中的记录进行修改，然后对acces数据库进行更新，给如何做？

追答

在窗体上添加控件如下：
textbox 名称：text1
commandButton 名称：command1

在工程--引用中 勾选：Microsoft Activex Data Objects 2.8
-------------------------begin--------------------------------------------------------------------
Private Sub Command1_Click() Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim myTime As Date

myTime = Trim$(Text1.Text)
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb"
Rs.CursorLocation = adUseServer

Rs.Open "Select * From tmpUsers where tmpId =1", Conn, adOpenKeyset, adLockOptimistic
Rs!tmpdate = Format(myTime, "yyyy-mm-dd hh:mm:ss")

Rs.Update
Rs.Clone
Conn.Close
End Sub

-------------------------end------------------------------------------------------------------------------------------