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

jjww123 · 发表于 2009-2-26 11:07:22

您需要登录才可以下载或查看，没有帐号？注册

x

我想通过VB来更新数据库！
数据库如下：
ID 工资税收
1 100 50
2 200 100
税收是工资的*50%
如果我要吧这个百分比改成*40%然后更新到税收中。。。如何实现？
全部修改！

woaishuijia · 发表于 2009-2-26 13:07:34

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

Const 百分比 = 0.4
5 I. d' E* e- Z! @
With UserForm1.Adodc1
$ ?3 k# K6 ?. E) o/ H. `/ N
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"6 A( | Q4 A4 }* j* K$ U5 g6 j1 I3 P* X
.RecordSource = "表1"7 k6 h6 p: f2 e8 V; a) B4 f
.Refresh8 m1 g! H3 B7 v( b
With .Recordset: d8 S% S+ K9 G
Do Until .EOF6 @7 Y m0 ]4 A
.Fields("税收") = .Fields("工资") * 百分比
V' [0 d1 F5 x0 T
.MoveNext2 s1 R" n8 q' _3 t& J1 A
Loop8 v' M3 i! j' a- a, X1 }
End With) P3 S7 q' f3 R1 z2 l4 j2 O+ ^
End With

复制代码

jjww123 · 发表于 2009-3-9 17:27:46

perfect!

:lol: :lol:

		自动登录	找回密码
密码			注册

通知