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
1 Z5 Z7 ~+ d6 T x/ a% x. j
With UserForm1.Adodc1
" O% V" x0 A% y( W3 e0 W5 q$ q
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"# U! x2 J3 y" Q( O# x
.RecordSource = "表1"1 [; v0 Z- ` V5 v, l" T( |# N( @: G
.Refresh# K0 n1 ~' P+ q4 l& \
With .Recordset6 j% s! ?! J- O
Do Until .EOF6 k$ L/ v1 e3 a- ]( _; J
.Fields("税收") = .Fields("工资") * 百分比( B2 W$ V+ P/ B6 t0 l8 h' C: }
.MoveNext
7 p$ r" z: a1 R3 ~- G) H3 H; e
Loop% ^4 ]5 _, ], I, [( w3 V# j* P7 f! @
End With3 H7 x$ v, ? n: `9 y
End With

复制代码

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

perfect!

:lol: :lol:

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

通知