如何excel调用accesss

来源：蜘蛛抓取(WebSpider) 时间：2017-08-04 08:51 标签： access调用模块
8149人阅读
解决开发问题（15）
1、打开一个Access数据库文件
2、点击“创建”标签中的“查询设计”，会弹出一个“显示表”的对话框，点击“关闭”将其关闭
3、这时会有一个名为“查询*”的窗口，还不能输入SQL语句
4、点击左上角的“SQL视图”，这时就可在查询窗中输入SQL语句了
5、SQL语句编辑完成后，点击左上角的红色感叹号即可执行SQL语句
&&相关文章推荐
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：1771612次
积分：17916
积分：17916
排名：第528名
原创：331篇
转载：18篇
评论：744条
思想决定高度，
态度决定成败！
文章：14篇
阅读：142104
(6)(2)(1)(7)(6)(5)(1)(1)(1)(1)(2)(1)(6)(24)(18)(18)(15)(16)(25)(11)(24)(51)(50)(21)(32)(1)(2)(1)查看: 5827|回复: 10
Excel 如何调用后台Access数据库里的过程
阅读权限30
在线时间 小时
& & & & & & & &
本帖最后由 xiaoangel 于
17:32 编辑
我在Access数据库创建了一个窗体FORM1,并且在FORM1上建立了一个按钮Command1.
按下按钮Command1. 执行一个过程Private Sub Command1_Click()。这一切已经成功完成。
现在，我想在前台的Excel表直接调用后台的Access数据库的这个过程Private Sub Command1_Click()。该如何去做呢？
阅读权限95
在线时间 小时
把access文件中的主程序放在模块中，假设程序名是&bbb&，Access程序及数据库文件要处在打开状态，否则有个打开数据库过程，就不是后台了Sub aaa()
& & Dim myAccess As Object
& & mydata = ThisWorkbook.Path & &\数据库.mdb&
& & Set myAccess = CreateObject(mydata)
& & myAccess.Run &bbb&
& & Set myAccess = Nothing
End Sub
复制代码建议把Access中的程序移植到Excel中，这样就能实现不打开Access后台处理了
阅读权限30
在线时间 小时
zhaogang1960 发表于
把access文件中的主程序放在模块中，假设程序名是&bbb&，Access程序及数据库文件要处在打开状态，否则有个打 ...
噢，原来Access程序及数据库文件要处在打开状态呀。学习了。
阅读权限30
在线时间 小时
把access文件中的主程序放在模块中，假设程序名是&bbb&，Access程序及数据库文件要处在打开状态，否则有个 ...
关于Excel控制后台Access数据库，遇到一个问题。 查了一些资料也没有搞成。
我想通过Excel的VBA，把后台Access数据库里的某几个表（table1，table2）里的数据清空。（不是删除表）
怎么实现呢？谢谢
阅读权限95
在线时间 小时
关于Excel控制后台Access数据库，遇到一个问题。 查了一些资料也没有搞成。
SQL = &DELETE [数据表名.*] FROM 数据表名 [WHERE 条件]
cnn.Execute SQL
方括号内为可选
阅读权限30
在线时间 小时
SQL = &DELETE [数据表名.*] FROM 数据表名 [WHERE 条件]
cnn.Execute SQL
赵老师，请帮我看看。
Sub cclean()
& & Dim cat As Object, mytable As Object
& & Dim SQL$, a$, b$, mydata$
& & Set cat = CreateObject(&ADOX.Catalog&)
& & mydata = ThisWorkbook.Path & &\OK.mdb&
& & cat.ActiveConnection = &Provider = microsoft.ACE.oledb.12.0 ; data source=& & mydata & &;jet oledb:database password=123456;&
& & On Error Resume Next
& & For Each mytable In cat.Tables
& && &&&If mytable.Type = &TABLE& Then
& && && && &''clean and clear records for all tables
& && && && &SQL = &DELETE FROM & & mytable & &&
& && && && &cnn.Execute SQL
& && &&&End If
& & Set mytable = Nothing
& & Set cat = Nothing
阅读权限30
在线时间 小时
本帖最后由 xiaoangel 于
12:05 编辑
请看附件，请看附件，没有成功
12:01 上传
点击文件名下载附件
22.56 KB, 下载次数: 133
阅读权限20
在线时间 小时
稍微修改即可实现你的需求。
Sub cclean()
& & Dim cat As Object, mytable As Object
& & Dim cnn As Object
& & Dim SQL$, a$, b$, mydata$
& & Set cat = CreateObject(&ADOX.Catalog&)
& & Set cnn = CreateObject(&ADODB.Connection&) '设置连接
& & mydata = ThisWorkbook.Path & &\OK.mdb&
& & cat.ActiveConnection = &Provider = microsoft.ACE.oledb.12.0 ; data source=& & mydata & &;jet oledb:database password=123456;&
& & cnn.Open cat.ActiveConnection '打开连接
& & 'On Error Resume Next
& & For Each mytable In cat.Tables
& && &&&If mytable.Type = &TABLE& Then
& && && && &''clean and clear records for all tables
& && && && &SQL = &DELETE FROM & & mytable.Name & &&
& && && && &cnn.Execute SQL '执行脚本
& && &&&End If
& & Next
& & cnn.Close '关闭连接
& & Set cnn = Nothing
& & Set mytable = Nothing
& & Set cat = Nothing
End Sub
复制代码
阅读权限20
在线时间 小时
支持一下，正如所愿
阅读权限10
在线时间 小时
我正为这代码发愁的呢，太帮啦
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 access调用模块 的文章

 

随机推荐