急，为什么我的当前记录集不支持更新

Question

rslqk.CursorLocation = adUseServer
rslqk.Open "select * from lqk", database, , , adCmdText
Do While Not rslqk.EOF
Dim newstu As String
newstu = Trim(rslqk.Fields("ksh").Value)
rsbyk.CursorLocation = adUseServer
rsbyk.Open "select * from byk where ksh='& newstu &'", database, , , adCmdText
If rsbyk.EOF = True Then
rslqk.Fields("bz").Value = "无此毕业生" 'Trim(rslqk.Fields("bz").Value) +
rslqk.Update
rsbyk.Close
Else
rsbyk.Close
End If
rslqk.MoveNext
Loop

Answer 1

rsbyk.Open "select * from byk where ksh='" & newstu & "'", Database, , , adCmdText

Answer 2

我主要是想更新lqk这个表里面的bz字段.

Answer 3

debug.print  你得sql再检查时候正确

Answer 4

rslqk.CursorLocation = adClient试试！

Answer 5

我的sql没有学好，问题已经解决，谢谢各位

Answer 6

打开记录集时要注意各个参数的设置即可，如下：rslqk.Open "select * from lqk", oConnection, adOpenKeyset, adLockOptimistic一般使用这两个参数 adOpenKeyset, adLockOptimistic 后，记录集可以完成大部分的操作，包括更新、前后移动等等。