QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2233|回复: 2
收起左侧

[已解决] VBA更新数据库的问题~~高手指导!谢谢!

[复制链接]
发表于 2009-2-26 11:07:22 | 显示全部楼层 |阅读模式 来自: 中国福建福州

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
我想通过VB来更新数据库!
) J. h/ V. o# M2 k& b) S( r7 y数据库如下: : k$ n+ k- k5 }$ [' P) }$ c& A. o
ID 工资 税收 & }- t  F6 K$ P# f0 k
1 100 50 7 T. z3 E, z. `! r& R6 V7 @
2 200 100 : y# B7 |  d/ c! R; e. Z( o/ X
税收是工资的*50% 2 |( z7 j5 Q' M7 E; ]( {. }9 r* k1 `# E
如果我要吧这个百分比改成*40%然后更新到税收中。。。如何实现? # f% `# T+ K- A' _
全部修改!
发表于 2009-2-26 13:07:34 | 显示全部楼层 来自: 中国辽宁营口
以Access为例,在用户窗体放置一个adodc控件,在过程中写入如下代码
  1.     Const 百分比 = 0.4
    - d6 s& v6 t3 s# Z$ x
  2.     With UserForm1.Adodc11 Y6 s" R' ?0 F# d
  3.         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
    4 T) Z% R8 c- [9 _  j! l5 A- r( W
  4.         .RecordSource = "表1". B* i/ T( Q) E/ E
  5.         .Refresh
    2 |9 _, |% Z: i# J
  6.         With .Recordset
    + O1 s6 G% L' i1 i
  7.             Do Until .EOF
    9 z& Z+ z, c: \( L
  8.                 .Fields("税收") = .Fields("工资") * 百分比
    * C1 U9 z& k3 x( A% M
  9.                 .MoveNext
    / c% @. @1 [5 k* F
  10.             Loop, F+ J  o9 {# ~0 s0 U, ^  o) i& J
  11.         End With
    ( U/ X" Q, @$ @8 T+ Z: U3 ]. |
  12.     End With
复制代码

评分

参与人数 1三维币 +5 收起 理由
★新手★ + 5 应助

查看全部评分

 楼主| 发表于 2009-3-9 17:27:46 | 显示全部楼层 来自: 中国福建福州
perfect! :lol: :lol:
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表