Question

VB应用ado链接access数据库，addnew求救？

建立了一个adodc控件，用addnew添加新的记录，前提是text控件已经绑定
代码如下：
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("姓名").Value = Text1.Text
Adodc1.Recordset.Fields("年龄").Value = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh
运行中显示错误： 实时错误，操作必须使用一个可更新的查询！
请教各位大虾这个是怎么回事？

Answer 1

已经绑定Text 控件,就不需要在赋值语句:
Adodc1.Recordset.Fields("姓名").Value = Text1.Text
Adodc1.Recordset.Fields("年龄").Value = Text2.Text
了,...

Adodc1.Recordset.AddNew 后,在Text 中填写相应的值,然后直接 更新.
Adodc1.Recordset.Update

追问

兄弟，不行呀，还是那个错误？

追答

检查数据表，看看是否没有给“键值”，因为你只给“姓名”，“年龄”赋值了，还有没有需要赋值的字段？只有满足条件了，才能进行“更新”操作。

追问

我那个access数据表里只有三个键值，姓名，年龄和自动编号，没有其他需要赋值的了

追答

我做了个例子，你下载后仔细看看吧..

 

Access 数据库文件 userInfo.mdb

运行的时候需要调整 Form_Load() 事件中数据库文件的路径。

 

Private Sub Form_Load()
    With Adodc1
         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vbTemp\dbUsers.mdb;Persist Security Info=False"
         .RecordSource = "SELECT * FROM userInfo"
         .Refresh
    End With
   
    cmdAddNew.Enabled = True
    cmdDelete.Enabled = True
    cmdSave.Enabled = False
   
End Sub

 

其中：D:\vbTemp\dbUsers.mdb 是我存放数据文件路径....

 

追问

老师，想留个你联系方式，向你学习！
非常感谢你的帮助！