日期:2014-05-17  浏览次数:20752 次

求 asp把本地excel 导入服务器access数据库程序
1,不是用无组件上传   直接把本地excel内容导入服务器access
2,使用无组件上传excel文件后   再导入数据库也可以

从网站搜集了那么长时间   都很笼统   没有详细的答案

今天想     让各位高手   一块总结下   来个了解。
最好是有两个页面  
第一个,选择本地excel文件得页面
第二个,导入处理得页面
希望大家能给出详细的   程序代码     期待中...

------解决方案--------------------
首先上传这个东东就不讲了。你到GOOGLE里随便搜索下就有的,用的比较多的是化境无组件上传,那上传后将excel的东西导入到ACCESS里其实你搜索下也很多的,不知道你怎么会搜索不到。下面就贴一个
<%
accessconn=server.createobject( "adodb.connection ")
accessconn.open "dsn=temp1 "
'上面的是ACCESS数据库的数据连接

path=server.mappath( "example.xls ")
conn_txt= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "&path& ";Extended Properties= " "Excel 8.0;HDR=Yes;IMEX=1 " " "
set excelconn=server.createobject( "adodb.connection ")
excelconn.open conn_txt
'上面的是EXCEL的数据连接

set excelrs=server.createobject( "adodb.recordset ")
excelrs.open "select * from [Sheet1$] ",excelconn,1,1
do while not excelrs.eof
sql= "insert into xxfy_students(stu_num,stu_name,stu_sex,stu_class,stu_major,stu_xl,stu_info) values( ' "&excelrs(0)& " ', ' "&excelrs(1)& " ', ' "&excelrs(2)& " ', ' "&excelrs(3)& " ', ' "&excelrs(4)& " ', ' "&excelrs(5)& " ', ' "&excelrs(6)& " ') "
accessconn.execute(sql)
excelrs.movenext
loop
%>
------解决方案--------------------
那楼主可以结贴了。你可以另开一个讨论贴。这样挂在这里好难受……
------解决方案--------------------
导入 不需要一条条导,那样很慢,

excelrs.open "select * from [Sheet1$] ",excelconn,1,1
sql= "insert into xxfy_students(stu_num,stu_name,stu_sex,stu_class,stu_major,stu_xl,stu_info) select stu_num,stu_name,stu_sex,stu_class,stu_major,stu_xl,stu_info from Excel 8.0;HDR=Yes;IMEX=1 DATABASE= "URL "

这样就很方便了