VB更新数据库的问题~~高手指导！谢谢！

来源：百度知道 编辑：UC知道 时间：2024/06/25 03:04:32
我想通过VB来更新数据库！
数据库如下：
ID 工资 税收
1 100 50
2 200 100
税收是工资的*50%
如果我要吧这个百分比改成*40%然后更新到税收中。。。如何实现？
全部修改！

UPDATE Data SET Data.税收 = "40"
WHERE (((Data.税收)="50"));

你首先需要通过“工程”菜单选择“引用”，在列表中找到“Microsoft ActiveX Data Object 2.6 Object”,并且选中它前面的复选框；
然后编写代码如下：

Dim DB As Connection

Private Sub Form_Load()
Set DB = New Connection
DB.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\xxx\aa.mdb" 'D:\xxx 是假设的数据库路径
End Sub

Private Sub command1_Click()
DB.Execcute "Update 税收表 Set 税收 = 工资*0.4" '假定表名是“税收表”
End Sub

UPDATE Table
SET [税收] = [工资]*0.4