把Excel导入Access源程序

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

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

技术资讯

kafkaUI-lite v1.0 发布，轻便好用的 kafka UI 界面工具

史上最轻便好用的kafka ui界面工具，提供了对kafka的界面化操作。 kafkaUI-lite v1.0 已经发布，此版本更新内容包括： 1、可以实现kafak/zookoo…

Vedu
2021-01-08
技术资讯

Win10太阳谷更新界面猜想：圆角弹窗，开始菜单可居中显示

微软计划于今年发布 Windows 10 21H1 更新，但下一代 21H2“太阳谷”将会带来更多的 UI 界面变化。国外设计师 Addy Visuals 根据此前传言，制作了 W…

Vedu
2021-03-16
技术资讯

WordPress市场份额为39.5%，占CMS的64.1％

在我们还在纠结使用 ZBlogPHP 还是 WordPress 或其他建站系统时，根据 W3techs 最新数据统计显示，截至 2021 年 1 月 3 日，在全球使用内容管理系统…

Vedu
2021-01-04
技术资讯

MacBook Pro 2019 2020款安装windows10双系统详解教程

尽管macOS 的功能已经非常完善，但在一些场景下，或许我们还需要一个 Windows 系统。要在 macOS Sierra 上安装 Windows 10 其实并不困难，只不过有点…

Vedu
2021-01-16
技术资讯

Chrome88发布，新终结者三大变化

新“终结者” Chrome 88 发布，三大终结性变化据 zdnet 报道，刚刚发布的 Chrome 88 中带来了三个重要的终结性变化：正如之前一直宣传的，它取消了 Flas…

Vedu
2021-01-20
技术资讯

黑客以60万美元出售Windows10源代码

黑客以 60 万美元出售 Windows 10 源代码在对 SolarWinds 事件的深入调查中，微软发现部分内部帐号被黑客获取，并访问了公司的部分源代码。而现在，有一名黑客以…

Vedu
2021-01-14
flutter在windows和linux上运行IOS UI模拟器

我一般用的是device_preview这个插件，这个插件的闲置是只能做UI上的模拟，并没有真正的运行环境。近似您的应用程序在另一台设备上的外观和性能。插件名称 device_…

Vedu
技术资讯 2021-10-19
vue-element-admin 登陆详解

vue-element-admin 登陆引言 vue-element-admin是vue生态圈中，最火的一个后台管理框架。基于vue和element-ui实现。这篇文章主要会讲…

Vedu
技术资讯 2020-08-25
技术资讯

TypeScript4.2 发布

TypeScript 4.2 已经发布。TypeScript是一种开源语言，它通过添加静态类型定义在 JavaScript（全球最常用的工具之一）的基础上构建。主要更新内容更智…

Vedu
2021-02-27
技术资讯

网络开发的最强大框架Netty快速入门

Netty是个很强大的框架，但是网络开发本就是一件比较复杂的事情，接下来我会用Netty做一些简单的应用出来，通过这些应用会让Netty更加容易理解一些。

Vedu
2021-07-14

发表评论

登录后才能评论