设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1371|回复: 2
打印 上一主题 下一主题

[ADO/DAO] 【求助】可不可以在Excel里更改ACCESS里的数据?!

[复制链接]
跳转到指定楼层
1#
发表于 2008-10-8 09:14:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我能够在Excel里往ACCESS里添加数据。
但我想在Excel里更改ACCESS里的数据,请问能实现吗?如何实现?
如果在Exel里删除ACCESS里的数据,又是怎样实现的吗?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2008-10-13 01:17:12 | 只看该作者
自己顶一下。。
3#
发表于 2010-10-22 12:00:19 | 只看该作者
可以在excel中编写vba,先查询要更改的数据,然后删除,在excel中录入数据,重新添加到数据库中。下面给楼主个程序,是写在excel表vba中的,用于执行删除指定数据库中符合条件的行。当然要在excel表中设置和数据库中要执行操作的表一样格式的sheet表格。具体的条件设定楼主可以自己将下面的程序补全试用一下。
Sub ()
Dim CNN As New ADODB.Connection
  Dim RS As New ADODB.Recordset
  Dim pthStr As String
  Dim SQL As String
  pthStr = ThisWorkbook.Path & "\(数据库名).mdb"
  CNN.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & pthStr
    SQL = "select * from flb where (条件)
  RS.Open SQL, CNN, adOpenKeyset, adLockOptimistic, adCmdText
  RS.MoveLast
  Icount = RS.RecordCount
  Debug.Print Icount
  RS.MoveFirst
    For I = 1 To Icount
      RS.Delete
      RS.Update   '保存更改
      RS.MoveNext
    Next I
  Set RS = Nothing
  CNN.Close
end sub
当然肯定还有别的办法,我只是对excel比较熟,acc也是菜鸟一个,所以举得这个方法。也希望能看到真正的高手的解答,我也顺便学习下。呵呵
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-11 01:59 , Processed in 0.106293 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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