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 ?+ D& x1 Z" U
With UserForm1.Adodc1% a. w& F9 n+ L5 K" v' g
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
' y9 J1 e4 C+ K1 c9 Q% N8 s+ a# e# p
.RecordSource = "表1"' l6 |! L7 M' Q
.Refresh
4 [3 ~- a) a; ]5 R1 {
With .Recordset% `2 ?) [ G6 Y, N- ~0 v6 D2 E8 X
Do Until .EOF2 Z- I7 ^& F; K0 ~* B1 d+ x, T, L
.Fields("税收") = .Fields("工资") * 百分比
# t2 i4 y4 H, L; i6 k
.MoveNext, l" a; `' M% e; V. z
Loop1 ^5 ~! S5 ~2 q5 \6 j
End With
( \! T; X/ x9 i' S; V2 ~
End With

复制代码

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

perfect!

:lol: :lol:

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

通知