窗体上有两个ＤＴＰＩＣＫＥＲ控件和一个Command控件　下面的代码我想在一个表里批量修改ＤTPicker1的时间该为DTPicker2，请高手指点错误之处
Private Sub Command1_Click()
Dim sql As String
sql = "update jgz set 日期= DTPicker2.Value where jgz.日期= DTPicker1.Value"
exesql (sql)
End Sub
这是一个模块
Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\d.mdb"
Set rst = New ADODB.Recordset
Set rst.ActiveConnection = conn
rst.CursorType = adOpenDynamic
rst.LockType = adLockPessimistic
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing
End Function

Private Sub Command1_Click()
Dim sql As String
sql = "update jgz set 日期= DTPicker2.Value where jgz.日期= DTPicker1.Value"
call exesql (sql)
End Sub
Public sub exesql(ByVal sql As String)
sql = Trim$(sql)
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\d.mdb"
Set rst = New ADODB.Recordset
Set rst.ActiveConnection = conn
rst.CursorType = adOpenDynamic
rst.LockType = adLockPessimistic
rst.Open sql
Set rst = Nothing
Set conn = Nothing
End sub
'试一下 建议将你的程序传上来

sql = "update jgz set 日期= DTPicker2.Value where jgz.日期= DTPicker1.Value"
这可行么...
sql语句里会有DTPicker2.Value ?
应该这样写吧
sql = "update jgz set 日期=#" & DTPicker2.Value & "# where jgz.日期=#" & DTPicker1.Value & "#"

[此贴子已经被作者于2007-4-19 22:14:40编辑过]

谢了
实现了　

sql = "update jgz set 日期= DTPicker2.Value where jgz.日期= DTPicker1.Value"
哎 对了 昨天我怎么没注意这一句呢？？