ADO修改表中某一字段时出现的错误提示！

Question

If Rec.State <> 0 Then Rec.Close '关闭记录对像
set rec=new recordset
Rec.Open ("登录信息表")
……………………

Answer 1

CityBird(鹰扬九州) 我的记录集以前己经定义了，不然得话我就不会If Rec.State <> 0 Then Rec.Close这一句了。。

Answer 2

rec.CursorLocation = adUseClient
    rec.CursorType = adOpenDynamic
    rec.LockType = adLockOptimistic關於各參數的意義你到msdn里去查

Answer 3

原来如此，，，找出原因了我检查我的代码发现：
Rec.Open ("SELECT * FROM 用户信息表 " _
            & "ORDER BY [PKuserName], " _
            & "[Password]"), Con, adOpenStatic,
注：Con为Connection对象、adOpenStatic（游标类型)---这个时候后面应该注明‘记录集的锁定类型'，我在这里没有设置，而系统就采用了默认值(adLockReadOnly,只读锁定)
所以才造成了上面的问题，语句是没有错的，然而出错的原因就错在OPEN定义上。
改为：Rec.Open ("SELECT * FROM 用户信息表 " _
            & "ORDER BY [PKuserName], " _
            & "[Password]"), Con, adOpenStatic, adLockPessimistic
后一切正常。。注：adLockPessimistic（开放式记录锁定（逐条）。提供者使用开放式锁定，只在调用UPDATE方法时锁定记录。

Answer 4

If Not (Rec.EOF And Rec.BOF) Then
   Rec.MoveLast  '这句有问题，
   Rec.Fields("IKexitDate") = Now
   Rec.Update
End If