ADO(ACCESS2K) Update 的问题, 解决后马上结帖，谢谢大家

Question

'New connection of ADO
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.ConnectionString = "Data Source=" & App.Path & "\Test.mdb;Persist Security Info=False"
cnn.Open
cmm.ActiveConnection = cnn
cmm.CommandText = "Select * From DoorLockList where FPDL_ID=?"
cmm.CommandType = adCmdText
Set p = cmm.CreateParameter("FPDL_ID", adBSTR, adParamInput, 2)
cmm.Parameters.Append p
cmm.Parameters("FPDL_ID").Value = FPDLID
cnn.Errors.Clear
Set rs = cmm.Execute
现在想更新筛选出来的纪录的一个字段的值，该怎么写？谢谢大家！！！

Answer 1

哪有什么好方法？
eg. cmm.commandtext ="update DoorlockList set id=001 where fpdl_id=?
 该怎么写code, 我是新手，请指教

Answer 2

cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.ConnectionString = "Data Source=" & App.Path & "\Test.mdb;Persist Security Info=False"
cnn.Open
cmm.ActiveConnection = cnn
cmm.CommandText = "update DoorLockList set id = 001 where FPDL_ID=?"
cmm.CommandType = adCmdText
Set p = cmm.CreateParameter("FPDL_ID", adBSTR, adParamInput, 2)
cmm.Parameters.Append p
cmm.Parameters("FPDL_ID").Value = FPDLID
cnn.Errors.Clear
cmm.Execute

Answer 3

其实很简单：
cnn.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
         "\Test.mdb;Persist Security Info=False
cnn.execute "update DoorLockList set id = 001 where FPDL_ID = '" & FPDLID & "'"两句话搞定