Question

关于vb数据库addnew的问题

Private Sub cmd2_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db1.mdb;" & _
"Persist Security Info=False"
conn.Open
rs.Open "select * from jbzl", conn
rs.AddNew
rs.Fields(0) = txt1.Text
rs.Fields(1) = txt2.Text
rs.Fields(2) = txt3.Text
rs.Fields(3) = txt4.Text
rs.Update
rs.Fields(0) = ""
rs.Fields(1) = ""
rs.Fields(2) = ""
rs.Fields(3) = ""
txt1.SetFocus
rs.Close
conn.Close
End Sub
提示记录集不支持更新，错误3251。
高分求助，在线等！！！

Answer 1

rs.Open "select * from jbzl", conn前面加一行：
rs.locktype=2'即adLockPessimistic，即可读写，默认为adLockReadOnly即只读
或改为：rs.Open "select * from jbzl", conn, 1,2
另外，rs.Fields(0) = ""是否为txt1=""，其他雷同？

Answer 2

rs.Fields(0) = ""
rs.Fields(1) = ""
rs.Fields(2) = ""
rs.Fields(3) = ""
是什么意思？为什么赋值后又清空了？
还有，你在addnew前加上rs.edit试试

Answer 3

如果是绑定的，根本不需要Data1.Recordset.Fields(0).Value = TxtID.Text 类似的语句。一般情况，只有文本框不与数据库绑定，才会用到类似的赋值语句。

建议你再加一个 update 的按钮。
CmdAdd_Click的代码只需要一句：Data1.Recordset.AddNew
此时，当你点击CmdAdd后，6个文本框的内容都变成空了 。
再由用户在6个文本框中输入数据。
之后再点击update按钮，确定保存。
update_Click的代码只需要一句：Data1.Recordset.update

Answer 4

你的文本框的datafield和datasource ,有没有设置。必须与数据库对应上才能添加。