Question

用access制作数据表。一个文本框，一个按钮，想要按下按钮后更新表格中的某个数据，怎么弄（最好是vba）

用access制作数据表。一个文本框，一个按钮，想要按下按钮后更新数据库表格中的某个数据，怎么弄（最好是vba）

Answer 1

用ADO控件做。
第一种是加载方法加载一个指定数据库数据。
指定数据连接，指定数据源，更新加载就行了
Private Sub 按钮名称_Click()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=文件路径"
Adodc1.RecordSource="SQL更新查询语句"
Adodc1.Refresh
End Sub
第二种是用ACCESS直接更新查询数据表或者插入查询数据表。方法比上面简单多了，直接调用窗体数据源成员，用窗体来操作整个记录集。

追问

刚接触。。第二种方法简单多了，那我想知道比如说我在access数据库中有sheet1，，我想要给sheet1的（a,b)格赋值Text中的数据，怎么写？

追答

不用指定数据连接，省一步，直接操作数据库
Private Sub Command1_Click()
Me.RecordSource = "SELECT * FROM dbo_人员 WHERE 姓名='张三"
Me.Refresh
Text1 = Me.Recordset.张三
End Sub
这样就算是指定Text1为表找符合条件的数据

追问

很谢谢，，不过我想要赋值，而不是查找，另外我的sheet1 已经是在access中了

追答

那就直接把Text1绑定到记录就好了
Me.RecordSource = "SELECT * FROM dbo_人员 WHERE 姓名='张三"
Me.Refresh
这俩句不写了，加语句：
me.Recordset.AddNew
me.Recordset.Fields("姓名") = Trim(Text1.Text)
整个添加过程应该是：
If Not me.Recordset.EOF Then
......连接成功如何操作
else
.....连接失败如何提示
END If

Answer 2

用VBA更新数据表的数据很简单，但数据表的一条记录往往有多个数据，你要求“一个文本框，一个按钮，想要按下按钮后更新数据库表格中的某个数据，”究竟更新哪个数据，应该再的问题说详细一点

追问

第一次接触access。。就比如说。。
我制作了一个类似于词典一样的，就是选中某一个，在右侧出现解释
Private Sub Form_Load()
Set Me.sub.Form.Recordset = Me.Recordset
End Sub
然后，我现在想要自己输入解释，并修改，所以，我想要更新sheet1中我现在选中的一行的某个值，代码怎么写？