Question

无法存储到数据库，报错'3251 当前记录集不支持更新

主要代码
Dim Ls_conn As String
Dim my_conn As ADODB.Connection
Dim my_recordset As ADODB.Recordset

Private Sub Getdata()
Dim Li_rowcount As Integer
Dim Li_i As Integer
If my_conn.State = adStateClosed Then my_conn.Open
my_recordset.Open "Select * From 章节", my_conn, adOpenStatic, adLockReadOnly
Li_rowcount = my_recordset.RecordCount - 1

For Li_i = 0 To Li_rowcount
ListView1.ListItems.Add , , Li_i + 1
ListView1.ListItems.Item(Li_i + 1).SubItems(1) = my_recordset.Fields(1).Value
ListView1.ListItems.Item(Li_i + 1).SubItems(2) = my_recordset.Fields(2).Value

my_recordset.MoveNext
Next
my_recordset.Close

End Sub

Private Sub Command6_Click()

If Len(Trim(Text2.Text)) = 0 Then
MsgBox "类型不能为空", vbInformation Or vbOKOnly, "系统提示"
Text2.SetFocus
Exit Sub
End If

If my_recordset.State = adStateClosed Then my_recordset.Open

my_recordset.AddNew？？？？这里报错
my_recordset.Fields(2) = Trim(Combo1.Text)
my_recordset.Fields(3) = Trim(Text2.Text)
my_recordset.Update

ListView1.ListItems.Clear
Getdata

End Sub

Private Sub Form_Load()

Ls_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"

Text2.Text = ""
Combo1.AddItem "第一章"
Combo1.AddItem "第二章"
Combo1.AddItem "第三章"
Combo1.AddItem "第四章"
Combo1.ListIndex = 0
ListView1.ColumnHeaders.Add , , "编号"
ListView1.ColumnHeaders.Add , , "类型"
ListView1.ColumnHeaders.Add , , "章节"

ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.LabelEdit = lvwManual
ListView1.View = lvwReport
ListView1.HideSelection = False

Set my_conn = New ADODB.Connection
Set my_recordset = New ADODB.Recordset
my_conn.ConnectionString = Ls_conn

Getdata
End Sub

Answer 1

my_recordset.Open "Select * From 章节", my_conn, adOpenStatic, adLockReadOnly
这里你指定了adOpenStatic,不支持AddNew动态更新，要用adOpenDynamic

追问

my_recordset.Open "Select * From 章节", my_conn, adOpenDynamic, adLockReadOnly
这样之前也改过，问题还是一样

追答

你是操作的表吗，如果是表，那是权限（包括这个文件的读写权）问题，如果是视图（就是MDB中的查询），那就是这个视图不支持动态更新。另外，你可以用adOpenDynamic, adLockOptimistic，配合试试
这个 From 章节 的“章节”如果是个表名，有二种情况导致不能更新
（1）你的MDB文件，当前没有写权限；
（2）存在独占打开它的进程，或你的ODBC配置中，没有用可以写的方式打开它
你可以仔细检查下上面的原因，如果“章节”不是表，则不能写是可能的，主要看你的定义

追问

这样改了，也没用。
对数据库进行删除可以，就是无法保存，my_recordset.AddNew都是这里报错

追答

能delete 只需要CanUpdate为真， 但Addnew 同时需要CanUpdate， CanAppend是true，你看看你的Recordset的CanUpdate及CanAppend属性是否是true。你要告诉我“章节”到底是个表还是你定义的View，我可以帮你分析。

追问

看了半天书，才明白RS全局只能打开一次
If my_recordset.State 0 Then my_recordset.Close
my_recordset.Open "Select * From 章节", my_conn, adOpenDynamic, adLockOptimistic
my_recordset.AddNew
......
my_recordset.Update
my_recordset.Close
ListView1.ListItems.Clear
Getdata
感觉有些累赘，但还好解决了，谢谢你的帮助啊

追答

打开多次不是导致你问题的根本原因，我看了下你的代码，代码本身是CLOSE再OPEN这是正常的， 如：If my_recordset.State = adStateClosed Then my_recordset.Open
出现这个问题的原因是，这里Open你用了无参数的调用，这无参数的Open 除了第一参数使用以前保存的，后面的参数不保存，它使用缺省的只读打开了(可参阅MSDN)，这是你问题的根本原因。
问题解决了就好。