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

jjww123

我想通过VB来更新数据库！
* n* v; o5 i3 ^0 ^数据库如下：
ID 工资 税收
1 100 50
5 i5 X5 |2 x8 I& S& V2 200 100
税收是工资的*50%
如果我要吧这个百分比改成*40%然后更新到税收中。。。如何实现？
2 D, N3 u9 ]1 M* j# \7 b全部修改！

woaishuijia

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

1.     Const 百分比 = 0.4
   1 ]9 y& E8 {! z6 a; ]1 ]& Y
2.     With UserForm1.Adodc1
   6 ?, T/ N) Z1 M
3.         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
   - r: n2 n# N5 N! I; X% z( ~
4.         .RecordSource = "表1"
   
5.         .Refresh
   
6.         With .Recordset
   . o; Z- B% c; x- g
7.             Do Until .EOF
   
8.                 .Fields("税收") = .Fields("工资") * 百分比
   ; O- T2 N- S: H% L* c' Y& R: z
9.                 .MoveNext
   $ I, z% \* {5 n4 b% q3 `
10.             Loop
    
11.         End With
    . ?5 `# p% G2 Z5 a6 T) A$ i; N
12.     End With

复制代码

jjww123

perfect! :lol: :lol: