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
) j3 S8 ^. r' W- u# h6 H
With UserForm1.Adodc1" ~- R' e( S) v+ ]
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
5 b" g4 D: ?4 q
.RecordSource = "表1"& Q/ z1 {4 m& P9 S$ b k
.Refresh
3 R0 x0 P8 L2 Z& E2 y
With .Recordset
! `6 `7 ^" Z0 Y) H8 u* L
Do Until .EOF
/ D$ {! ~) l4 F' S9 y" F% }9 @# x& b9 t
.Fields("税收") = .Fields("工资") * 百分比
$ U0 E0 e( u K. [( n1 l
.MoveNext2 W5 j# D3 E/ o5 s1 P. S0 ?
Loop
4 R W I4 s; F1 Y8 \* G
End With( X: c/ N# K; C( q$ X7 |4 o
End With

复制代码

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

perfect!

:lol: :lol:

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

通知