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

jjww123

我想通过VB来更新数据库！
) J. h/ V. o# M2 k& b) S( r7 y数据库如下：
ID 工资 税收
1 100 50
2 200 100
税收是工资的*50%
如果我要吧这个百分比改成*40%然后更新到税收中。。。如何实现？
全部修改！

woaishuijia

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

1.     Const 百分比 = 0.4
   - d6 s& v6 t3 s# Z$ x
2.     With UserForm1.Adodc1
   
3.         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
   4 T) Z% R8 c- [9 _  j! l5 A- r( W
4.         .RecordSource = "表1"
   
5.         .Refresh
   2 |9 _, |% Z: i# J
6.         With .Recordset
   + O1 s6 G% L' i1 i
7.             Do Until .EOF
   9 z& Z+ z, c: \( L
8.                 .Fields("税收") = .Fields("工资") * 百分比
   * C1 U9 z& k3 x( A% M
9.                 .MoveNext
   / c% @. @1 [5 k* F
10.             Loop
    
11.         End With
    ( U/ X" Q, @$ @8 T+ Z: U3 ]. |
12.     End With

复制代码

jjww123

perfect! :lol: :lol: