Excel数据导入到Access,Sql Server中示例代码
发布时间：2007-10-07 12:03:00
标签：excel,导入,access
将Excel中的数据导入到Access中，前提是在Access中的表已经建好。
dim conn
dim conn2
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.mdb"
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls"
sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into xxx([a],[b],[c],[d]) values(’"& fixsql(rs(0)) &"’,’"& fixsql(rs(1)) &"’,’"& fixsql(rs(2)) &"’,’"& fixsql(rs(3)) &"’)"
conn.execute(sql)
rs.movenext
wend
conn.close
set conn = nothing
conn2.close
set conn2 = nothing
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"’","’’")
end if
fixsql = newstr
end function
导入到Sql Server数据库中时，如果Excel文件和数据库不在同一台服务器上时，请参考上面的代码。在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用Excel中的第一行数据做为表的字段名）：
dim conn
set conn=CreateObject("ADODB.Connection")
conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;")
sql = "SELECT * into newtable FROM OpenDataSource( ’Microsoft.Jet.OLEDB.4.0’,’Data Source=""c:\book1.xls"";User ID=Admin;Password=;Extended properties=Excel 5.0’)...[Sheet1$] "
conn.execute(sql)
conn.close
set conn = nothing
0
投稿猜你喜欢
- 完成asp语言对XML文档中指定节点文本的增加、删除、修改、查看 <％ '-------------------
- 代码如下:'************************************ '截取文字长度函数，支持UT
- iframe的背景颜色在IE下为window的当前窗口颜色（默认白色，可以在显示外观处对其进行设置），这导致在大幅背景上插入iframe时，
阅读上一篇：WEB2.0网页制作标准教程（11）不用表格的菜单辛苦了好多天，我们努力学习使用XHTML+CSS来重新设计我们的网站。那么我们- 面向对象的程序设计随着程序的设计的复杂性增加，结构化程序设计方法又不够用了。不够用的根本原因是“代码重用”的时候不方便。面向对象的方法诞生了
- 很多朋友想用SQL2000数据库的编程方法，但是却又苦于自己是学ACCESS的，对SQL只是一点点的了解而已，这里我给大家提供以下参考---
- 网站，(100-1)％的内容是导航1、Jesse James Garrett 在《用户体验要素》一书中提到了多重导航系统：全局导航、局部导航
- 今天淘到的，终于可以放心的使用IE7了，再也不用换回IE6做测试了！因为这个10M大小的软件已经包含了从IE3到IE6的版本，安装过程中可以
- “模板化”——这也许是视觉设计师通常最不愿意听到的概念，先入为主的会产生“批量生产”、“体力活儿”、“限制思维”等概念，总之都比较负面。但为
- <％ '****************************** '函数：Chec
- 如果是在Oracle10g之前，删除一个表空间中的数据文件后，其文件在数据库数据字典中会仍然存在，除非你删除表空间，否则文件信息不会清除。但
- Dreamweaver MX 2004新增加了表格宽度辅助线功能，让我们在编辑网页表格的时候能清楚地看到表格中各单元的宽度以及变化，很直观。
- 当一个页面上有一百个表单项，你是怎么获取上面的值勤的？这是一段简单的代码，你试试这段代码，试过后，欢迎留言说一下你的想法？index.asp
- 一些大型站点都有着非常一流的视觉外观，它们很可能在设计时使用了网格系统。网格可以是页面布局显得紧凑而且稳定，为设计师在设计站点时提供一个逻辑
- 一、Position1、语法：position:static/ absolute / fixed / relative2、参数：（1）sta
- 在应用系统中,尤其在联机事务处理系统中,对数据查询及处理速度已成为衡量应用系统成败的标准。而采用索引来加快数据处理速度也成为广大数据库用户所
- 一定要对用户可能输入的诸如引号，尖括号等特殊字符给予足够重视，它们可能引发严重的安全问题。SQL注入的基本手法之一，就是利用对单引号未加过滤
- 我使用“ Web 2.0设计”来形容目前占主导优势的网页设计风格， 很多人用这个词来形容：网络经济的复苏网站和用户之间更高水平的交互或一种社
- 我们平日办公时用得最多的软件是Execl、Word或WPS Office等，你的计算机中一定储存着大量的XLS、DOC、WPS文件吧！网页制
- 现在的垃圾留言越来越智能，并且从留言内容几乎看不出来是垃圾留言，而大量的垃圾留言会导致文章可读性下降，并可能会被搜索引擎惩罚，经过一段时间的
