把Excel导入Access源程序

Vedu • 2010-06-09 18:57 • 技术资讯 • 阅读 1626

Excel导入Access执行文件 xlstomdb.asp ，代码如下：

cel导入Access执行文件 xlstomdb.asp ，代码如下：
<% <br />dim conn,data <br />dim conn2,data2 <br />data=”data.mdb” <br />data2=”data.xls” <br /> <br />set conn=CreateObject(“ADODB.Connection”) <br />conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & Server.MapPath(data) <br /> <br />set conn2=CreateObject(“ADODB.Connection”) <br />conn2.Open “Provider=Microsoft.Jet.OLEDB.4.0;Extended properties=<span class="wpcom_tag_link"><a href="http://www.yixao.com/tag/excel" title="Excel" target="_blank">Excel</a></span> 5.0;Data Source=” & Server.MapPath(data2) <br /> <br />sql = “SELECT * FROM [Sheet1$]” <br />set rs = conn2.execute(sql) <br />while not rs.eof <br /> sql = “insert into info([公司名称],[公司地址],[联系人],[电话],[传真]) values(‘”& fixsql(rs(0)) &”‘,'”& fixsql(rs(1)) &”‘,'”& fixsql(rs(2)) &”‘,'”& fixsql(rs(3)) &”‘,'”& fixsql(rs(4)) &”‘)” <br /> conn.execute(sql) <br /> rs.movenext <br />wend <br /> <br />conn.close <br />set conn = nothing <br />conn2.close <br />set conn2 = nothing <br />Response.Write “<div style=’margin:100px;font-size:14px;text-align:center’>操作成功！</div>” <br /> <br />function fixsql(str) <br /> dim newstr <br /> newstr = str <br /> if isnull(newstr) then <br /> newstr = “” <br /> else <br /> newstr = replace(newstr,”‘”,”””) <br /> end if <br /> fixsql = newstr <br />end function <br />%>

需要数据库data.mdb，表info；Excel文件data.xls；

附上实例下载：右键另存

内容出处：，

声明：本网站所收集的部分公开资料来源于互联网，转载的目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。如果您发现网站上有侵犯您的知识产权的作品，请与我们取得联系，我们会及时修改或删除。文章链接：http://www.yixao.com/tech/217.html

Access Excel 导入源程序

赞 (0)

打赏

微信扫一扫

支付宝扫一扫

0 0

企业网站建设一定要考虑的因素

上一篇 2010-06-07 18:35

只需五步塑造你网站的可信度就这么简单

下一篇 2010-06-11 19:26

技术资讯

Flutter在流式场景下的架构设计与应用

目前，闲鱼的主要业务场景都是基于流式场景构建的。在闲鱼的主要几个业务场景下存在两种类型的页面：一种是复杂交互的页面，如发布页面、商品详情页；另一种是轻交互、需要一定动态化能力满足千…

Vedu
2021-01-27
技术资讯

b站崩了成热搜，B站PC网站、App与小程序都无法使用

昨日晚间，哔哩哔哩服务器疑似崩溃，主站、App 以及小程序都无法使用。目前“b站崩了”话题已登上热搜。

Vedu
2021-07-14
技术资讯

使用pyinstaller将python文件打包成exe程序的步骤方法

使用pyinstaller将python文件打包成exe程序，打包步骤如下：一、安装pyinstaller (1)win R输入cmd，打开命令窗口 2020最新python学习…

Vedu
2020-10-23
技术资讯

Node.js 15.6.0 发布

Node.js 15.6.0 发布，Node.js 是一个基于 Chrome V8 引擎的 JavaScript 运行时。此版本主要更新内容包括：一、child_process…

Vedu
2021-01-19
技术资讯

Yahoo 电子信箱也迎接改版，还有新的 Pro 付费版本可升级

看来最近真的是很多网络服务选择改头换面的好日子，继今天 Google 针对自家新闻平台的改版，刚刚正式加入 Oath 品牌的 Yahoo，也宣布他们最新的电子邮件服务改版即将登场 …

Vedu
2017-06-29
技术资讯

Google基于Flutter的Windows 10的UWP应用界面首曝

Flutter跨平台UI框架是GitHub上增长最快的语言之一，它适用于移动应用、Web应用甚至桌面应用。谷歌在2018年12月首次宣布Flutter用于移动平台，然后将框架扩展到…

Vedu
2020-09-23
技术资讯

基于DevOps生命周期的容器安全最佳实践

虽然云和容器的崛起,容器成了日常。容器的安全要求也随之而来，如何确定一个最适合业务的容器安全保障是大家最关注的问题。本文我们就来通过DevOps生命周期来全面考虑容器安全和各阶段的…

Vedu
2020-11-23
技术资讯

KindEditor上传图片弹出白屏的无反应问题的解决方法

KindEditor是一款非常不错的富文本编辑器，可是这两年常有客户反馈上传图片有问题，不显示选择图片的弹出，也不显示关闭的按钮，只有空白背景，重复刷新也无效。这个bug我们一…

Vedu
2021-10-08
技术资讯

Ubuntu Touch 2021版刷机教程：支持57款设备

Ubuntu Touch，最早亮相于2013年，由Canonical公司与Ubuntu社区共同研发的智能手机操作系统，该系统在UI设计和系统交互方面都非常的超前，更是最早一批采用全…

Vedu
2021-03-09
技术资讯

Home Assistant + 树莓派智能家居系统安装教程

最近少数派掀起了一阵树莓派热潮，各色教程涌出水面。将 Pi 接入智能家居控制系统并不新鲜，现有教程本身已经非常全面，但是由于 Homebridge 插件（下称「HB」）的局限性，使…

Vedu
2017-07-21

发表评论

登录后才能评论