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

jjww123

我想通过VB来更新数据库！
- C( U$ d; q& H) b数据库如下：
ID 工资 税收
& |8 q! I% u, s" S# F% u+ R1 100 50
2 200 100
5 E& ~1 _) E# @! u) W  G3 r" ^税收是工资的*50%
% D* U5 ^. w7 I9 [如果我要吧这个百分比改成*40%然后更新到税收中。。。如何实现？
全部修改！

woaishuijia

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

1.     Const 百分比 = 0.4
   5 o# x) a4 Y  V0 c" J  D1 G5 {  y) z1 ^
2.     With UserForm1.Adodc1
   9 _' `& _4 E5 P8 R) I
3.         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
   + q  f: R* G5 a
4.         .RecordSource = "表1"
   
5.         .Refresh
   4 W; u- }* p, ?
6.         With .Recordset
   
7.             Do Until .EOF
   ; z9 ^& K% ~, ^4 q: j+ o! z3 X1 V
8.                 .Fields("税收") = .Fields("工资") * 百分比
   + J, P% f/ x; p* `  Y' a5 t
9.                 .MoveNext
   
10.             Loop
    1 ~1 N4 l- S  E1 H0 H' e
11.         End With
    6 }8 C2 p( A5 T
12.     End With

复制代码

jjww123

perfect! :lol: :lol: