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.47 i! S$ m+ H8 C+ v q
With UserForm1.Adodc1
+ R J4 k: i: x" @* r) X: k
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"" x: b+ O- }: Y- b' I# `5 e
.RecordSource = "表1"$ N. r- ?& \ N1 x! C1 |0 p
.Refresh
. [+ v& w# Z! ^7 W6 T* k6 O' d
With .Recordset
9 c7 q% N* P# y" W
Do Until .EOF
7 o4 V: I# j# M: i/ h8 ]. C
.Fields("税收") = .Fields("工资") * 百分比1 d) I9 h: d/ z
.MoveNext+ Y6 @& }/ w! [' f8 R
Loop7 @4 i- n& }0 C1 I0 R- q% k
End With
# l7 D, j! j7 O/ B: E7 z; v
End With

复制代码

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

perfect!

:lol: :lol:

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

通知