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
+ l, n. d) l4 i7 S1 E
With UserForm1.Adodc1
8 C8 g' y) t+ x m# L
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False" o' }% A7 q0 Q% d- ^
.RecordSource = "表1"* H: r7 ^% P, K7 C$ ]( B
.Refresh9 M4 i% u5 \7 Z3 \
With .Recordset
, i! Y; [) K T' r% V% @: K$ l
Do Until .EOF4 q# W0 v0 \" p( ? H6 r, k
.Fields("税收") = .Fields("工资") * 百分比: `- `5 J" U5 H* Z( J
.MoveNext
/ Q% f3 d% ]+ Q
Loop
! G8 g" M- W4 k2 j
End With5 j9 S u0 g$ R5 `$ r
End With

复制代码

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

perfect!

:lol: :lol:

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

通知