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

jjww123

我想通过VB来更新数据库！
( r9 K1 O% ^2 K- z3 O数据库如下：
/ N3 A: x" Z3 ~- }1 E4 j+ ^ID 工资 税收
- t# P0 G8 A2 I1 J+ V4 H1 100 50
! C: L7 v4 {% Z2 D5 I2 200 100
税收是工资的*50%
如果我要吧这个百分比改成*40%然后更新到税收中。。。如何实现？
, ?4 ]8 \3 Z2 m6 u8 e2 H$ R9 c全部修改！

woaishuijia

以Access为例，在用户窗体放置一个adodc控件，在过程中写入如下代码

1.     Const 百分比 = 0.4
   : C8 n9 J# K% r+ A0 `
2.     With UserForm1.Adodc1
   6 T2 j+ v- B8 e6 [9 B: b/ q3 f, C  c
3.         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
   ( z) W7 X  V: u7 Z
4.         .RecordSource = "表1"
   
5.         .Refresh
   
6.         With .Recordset
   7 H1 a7 Q7 `* `8 Z4 Z
7.             Do Until .EOF
   & P- t" y$ a. N9 U. z, ?* J6 u2 W
8.                 .Fields("税收") = .Fields("工资") * 百分比
   
9.                 .MoveNext
   
10.             Loop
    
11.         End With
    
12.     End With

复制代码

jjww123

perfect! :lol: :lol: