当前记录集不支持更新 这可能是提供程序的限制,也可能是选定锁定类型的限制

[xxd88]

错误提示：当前记录集不支持更新 这可能是提供程序的限制,也可能是选定锁定类型的限制

错误行用红色代码表示，错误代码：
Private Sub Timer1_Timer()
Label1.Caption = Time

Dim tag_agin, tag_end As Date
tag_agin = #7:30:00 PM#
tag_end = #9:30:00 PM#
If Time = tag_agin Then


Dim i As Long
Dim gz As String
gz = "高职"

Dim s_Conn As New ADODB.Connection
Dim rss As New ADODB.Recordset
Dim s_Sql As String
s_Conn.CursorLocation = adUseServer
'连接SQL数据库
s_Conn.ConnectionString = "driver={sql server};server=61.233.62.178;uid=sa;pwd=questioncexovjai;Database=kq"
s_Conn.ConnectionTimeout = 50
s_Conn.Open
Set rss.ActiveConnection = s_Conn
'设置游标类型
rss.CursorType = adOpenDynamic
'构造mssql sql语句
s_Sql = "Select * From sjinfo"

Dim a_Conn As New ADODB.Connection
Dim rsa As New ADODB.Recordset
Dim a_Sql As String
a_Conn.CursorLocation = adUseClient
'连接access数据库
a_Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\万象2004 935免验证版\2004rec.mdb;Persist Security Info=False;Jet OLEDB:Database Password=zhrmghg1949jgqz"
'a_Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\万象2004 935免验证版\sc\cs.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456"

a_Conn.Open
'构造access sql语句
a_Sql = "Select * From tLogs Where dtTime2 is null and sMemo Like '%" & gz & "%'"
rsa.Open a_Sql, a_Conn, adOpenStatic, adLockOptimistic

'Set rsa = a_Conn.Execute(a_Sql)
MsgBox (rsa.RecordCount)
For i = 1 To rsa.RecordCount
rss.Open s_Sql
rss.AddNew
rss("sjkid") = rsa("sCardID")
rss("sjtime") = "19:30:00"
rss("sjdate") = rsa("dtTime1")
rss("roomname") = "电算中心"
rss("stuname") = rsa("sName")
rss("stuclass") = rsa("sMemo")
rss.Update
rss.Close
rsa.MoveNext
Next i
Set rsa = Nothing
'MsgBox ("OK!")
End If
End Sub

[parksunming]

rss.CursorType = adOpenDynamic '看看是不是选择其他的游标类型可以开启更新权限
s_Conn.ConnectionString = "driver={sql server};server=61.233.62.178;uid=sa;pwd=questioncexovjai;Database=kq" '看看61.233.62.178这个电脑的SQL服务器开放的是那些权限，看你的登陆名是SA所以理论上是管理员身份。但如果是远程的登陆可能会有些权限被OS给关闭。建议在OS的设备管理中查看SERVER服务是不是全部开启的。

[tongnaifu]

rsa.Open a_Sql, a_Conn, adOpenStatic, adLockOptimistic
修改为
rsa.Open a_Sql, a_Conn, adOpenDynamic, adLockPessimistic

[aohan]

rsa.Open a_Sql, a_Conn, 1,3