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

jjww123

我想通过VB来更新数据库！
+ p- k8 i: z6 o8 w* ^数据库如下：
ID 工资 税收
) R5 e" S1 t$ V1 100 50
2 200 100
5 r- O( B3 N) B6 Q税收是工资的*50%
如果我要吧这个百分比改成*40%然后更新到税收中。。。如何实现？
全部修改！

woaishuijia

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

1.     Const 百分比 = 0.4
   
2.     With UserForm1.Adodc1
   
3.         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
   
4.         .RecordSource = "表1"
   * {8 s8 ~  p7 |# J% y, |) y
5.         .Refresh
   0 n# i& |1 M1 x* k8 R5 j
6.         With .Recordset
   & q0 A; |4 {# P% y+ D( {
7.             Do Until .EOF
   % k; g2 Y# @. U1 y
8.                 .Fields("税收") = .Fields("工资") * 百分比
   
9.                 .MoveNext
   0 C" t+ w, t+ L
10.             Loop
    4 r$ m  n3 K$ ~4 U1 b
11.         End With
    ; t+ x, t& k9 C- b) p
12.     End With

复制代码

jjww123

perfect! :lol: :lol: