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

jjww123

我想通过VB来更新数据库！
+ n! G) \: G/ [. s* N数据库如下：
: g# t& g0 A1 r9 ^1 [  rID 工资 税收
0 v' @9 u" a# H/ _1 100 50
2 200 100
税收是工资的*50%
1 A( R+ U: ~2 U  O3 u如果我要吧这个百分比改成*40%然后更新到税收中。。。如何实现？
, c+ H! O; V4 J- K+ l% S全部修改！

woaishuijia

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

1.     Const 百分比 = 0.4
   0 F5 A8 ~  W( Z' U) W8 ^1 E
2.     With UserForm1.Adodc1
   7 }' G4 s: T4 g" l& {3 L6 C
3.         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
   $ J* J' l; D# S4 Z. j; R4 `
4.         .RecordSource = "表1"
   + p6 a/ e! @6 a
5.         .Refresh
   ' a! z- z' Q* B5 h3 m0 L6 s( X
6.         With .Recordset
   
7.             Do Until .EOF
   & R( W% ^* J- v) v
8.                 .Fields("税收") = .Fields("工资") * 百分比
   0 P4 {( R/ H% }
9.                 .MoveNext
   
10.             Loop
    / j$ }  S+ m* ~$ U5 Z# {
11.         End With
    
12.     End With

复制代码

jjww123

perfect! :lol: :lol: