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.44 D8 L# C9 U% r b
With UserForm1.Adodc1
/ E$ u/ [. k4 |1 P; o9 x1 T. O1 o
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"& ]6 Y9 @6 H/ y: i, `/ e: p6 Q
.RecordSource = "表1": H) i- z% `3 O7 d, I7 W9 E6 z8 M
.Refresh
- |! a. e# t( S3 O9 d* X; \
With .Recordset
3 r- H8 ~$ h; b$ {
Do Until .EOF u2 S0 S' L) q1 D+ Q& g2 z
.Fields("税收") = .Fields("工资") * 百分比+ s* o1 B. K4 X. F: k7 [! _
.MoveNext) ^: \1 y9 |9 ^! f( ?
Loop
0 }% o) n) z0 r! b8 k" l
End With
, f2 P, x3 Z. {9 m
End With

复制代码

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

perfect!

:lol: :lol:

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

通知