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$ e5 n. Z& Y G* L+ g' U, l
With UserForm1.Adodc1" z; J3 T# Y! b
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"3 m+ f1 v/ S0 d/ b" \ Z
.RecordSource = "表1"" i. y. x# |/ |4 I# w: \
.Refresh
6 N' O1 ]" V; i- W/ s g: ]8 e6 L
With .Recordset
. ?4 x& a5 T; Q. t; I7 E5 t0 C
Do Until .EOF: ~, [0 w3 M" |' c
.Fields("税收") = .Fields("工资") * 百分比
, Y: F5 `2 h; X
.MoveNext
9 H# h8 D" V) y1 J+ J8 ?# a
Loop- {4 M; @5 T( R% q2 p$ d: f9 Q5 h( J( Y
End With1 D$ f/ s2 q8 H. ~& }
End With

复制代码

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

perfect!

:lol: :lol:

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

通知