Dim str As String
Dim rs As New ADODB.Recordset
Me.日期 = Date
str = "update [表] set [表].日期 ='" & Me.日期 & " ' where [表].id = '" & Me.id & "'"
ExecuteSQL (str)作者: Benjamin_luk 时间: 2006-8-24 04:51
Dim str As String
Dim rs As New ADODB.Recordset
Me.日期 = Date
str = "update [表] set [表].日期 =#" & Me.日期 & " # where [表].id = '" & Me.id & "'"