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

jjww123

我想通过VB来更新数据库！
: M$ ?1 j" H3 F6 {/ |0 K数据库如下：
ID 工资 税收
1 100 50
2 200 100
税收是工资的*50%
% ?  _4 j2 P" T0 X; x2 T& k" f如果我要吧这个百分比改成*40%然后更新到税收中。。。如何实现？
: o$ [; d$ k3 z+ o" d" ~& j全部修改！

woaishuijia

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

1.     Const 百分比 = 0.4
   1 D( `3 C5 A" E. p
2.     With UserForm1.Adodc1
   * L% f: @! y6 Y4 e( m
3.         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
   , a- j: y; R+ x7 i; ?& Z, A+ `$ k
4.         .RecordSource = "表1"
   # j9 R1 X* V8 x0 Y. D0 q( S3 _
5.         .Refresh
   
6.         With .Recordset
   # E" \- Y: X6 a( m6 y7 B
7.             Do Until .EOF
   
8.                 .Fields("税收") = .Fields("工资") * 百分比
   
9.                 .MoveNext
   
10.             Loop
    
11.         End With
    5 c- B9 R3 I2 U
12.     End With

复制代码

jjww123

perfect! :lol: :lol: