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
0
投稿
猜你喜欢
Python混合使用同步和异步函数的方法
2021-07-19 05:01:05
如何HttpServletRequest文件对象并储存
2024-04-19 10:14:12
Python脚本Selenium及页面Web元素定位详解
2023-06-14 12:21:10
详解Python if-elif-else知识点
2022-02-23 16:06:23
python使用xlrd和xlwt读写Excel文件的实例代码
2021-08-30 08:43:55
MySql 8.0.16版本安装提示已经不使用“UTF8B3”而是使用“UTF8B4”问题
2024-01-23 12:43:57
asp如何防止计数器刷新计数?
2009-11-22 19:19:00
详解Python中的Descriptor描述符类
2021-10-16 10:10:35
JavaScript 防盗链的原理以及破解方法
2024-04-18 10:11:03
python如何实现单链表的反转
2023-05-11 12:44:10
vue中的input框点击后不聚焦问题
2024-05-02 16:33:12
MYSQL子查询和嵌套查询优化实例解析
2024-01-23 13:24:34
SQL解决未能删除约束问题drop constraint
2024-01-24 20:08:09
浅谈JavaScript中你可能不知道URL构造函数的属性
2024-04-17 10:03:03
Python常用内置函数总结
2022-06-06 06:02:43
Python中使用PDB库调试程序
2022-02-24 11:25:49
isset和empty的区别
2023-11-20 12:24:08
基于golang uint8、int8与byte的区别说明
2024-05-09 09:56:03
MySQL数据库innodb启动失败无法重启的解决方法
2024-01-25 13:29:12
详解python使用金山词霸的翻译功能(调试工具断点的使用)
2021-06-27 03:33:52