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$ v% V' d/ x B5 g) s1 k* B' L
With UserForm1.Adodc11 S B; E2 B3 Z5 q: E( w
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
6 Q$ ?; M" l! {/ @; g# F3 ?
.RecordSource = "表1"
: u/ U' D6 U1 d/ E6 W1 a
.Refresh! p7 }4 P* [4 F. _: x% e
With .Recordset# Y0 I, _. U0 y
Do Until .EOF
I8 W! ?7 _( E% j
.Fields("税收") = .Fields("工资") * 百分比0 d% E( z. ~4 X1 a x
.MoveNext
( n* r8 W" p& `+ T; N4 z" @1 c$ I
Loop
9 O7 T7 U. A/ H1 u
End With& R8 X6 j# `8 F7 m
End With

复制代码

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

perfect!

:lol: :lol:

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

通知