Excel数据导入到Access,Sql Server中示例代码
时间:2007-10-07 12:03:00
将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
标签:excel,导入,access
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
CSS Hacks
2008-07-20 13:04:00
用Assets 面板为你的站点定做颜色
2007-02-03 11:39:00
asp如何准确地获得一个整数?
2010-07-07 12:25:00
Oracle 当前用户下所有表的记录总数
2009-07-14 21:34:00
低效的键盘和高效的登录框
2007-08-22 09:17:00
![](https://img.aspxhome.com/file/UploadPic/20078/22/200782291926838s.jpg)
如何利用SysOjects来获知数据库的信息?
2010-01-01 15:43:00
asp 防盗链代码(彻底屏蔽迅雷,旋风,快车下载站内资源)
2011-02-26 10:46:00
MySql节点管理安装步骤
2010-10-14 14:13:00
asp如何做一个只能从本站点才能访问的页面?
2010-07-12 19:00:00
常见系统中文字体的英文名
2008-03-03 12:44:00
关于window.opener的用法
2008-02-23 11:03:00
分享个asp文件缓存代码,使程序从缓存读数据
2011-03-09 19:47:00
双屏显示提升前端开发10%工作效率
2009-03-16 18:22:00
![](https://img.aspxhome.com/file/UploadPic/20093/16/screen-34s.jpg)
页面中 CSS 加载方式的优化
2008-03-26 12:36:00
深刻理解Oracle数据库的启动和关闭
2010-07-26 13:08:00
网页设计细节不能丢
2007-09-26 11:54:00
jquery中文手册上的一点错误--说说p标签失去焦点
2009-09-13 21:24:00
![](https://img.aspxhome.com/file/UploadPic/20099/13/c88879ae2c3bd9614bc01e7e8f79ce54-99s.jpg)
ie7空格的间距要比ie6/firefox/opera的都要大
2008-05-24 16:54:00
DBA应当了解的MySQL客户端程序启动选项
2009-01-04 13:00:00
![](https://img.aspxhome.com/file/UploadPic/20091/20091511658825.jpg)
卓越网的配送服务让我很不满意
2009-03-19 13:49:00
![](https://img.aspxhome.com/file/UploadPic/20093/19/dingdan-600x456-50s.jpg)