asp代码实现EXCEL数据导入到SQL数据库

来源：百度文库 编辑：神马文学网 时间：2024/04/27 00:05:29


上传文件

















--------------------------------------
-------上传并且写入库-----------
readxls.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>





EXECL数据导入



<%
session.CodePage=936
Server.ScriptTimeOut=600000
set upload=new upload_5xsoft
set file=upload.file("file1")
if file.fileSize>120000 then
%>

<% end if
if file.fileSize>0 then
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
filename=filename+"."
filenameend=file.filename
filenameend=split(filenameend,".")
if filenameend(1)="xls" then
filename=filename&filenameend(1)
file.saveAs Server.mappath("uploadfile/"&filename)
else
response.write "数据格式不对！"
response.write "返回"
response.end()
end if
set file=nothing
else
response.write "文件不能为空！"
response.write "返回"
response.end()
End if
set upload=nothing
'上传XLS文件结束，下面从上传的XLS文件中读取数据写入到SQL数据库
strAddr=server.MapPath("uploadfile/"&filename)
set excelconn=server.createobject("adodb.connection")
excelconn.open "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = "+strAddr+";Extended Properties='Excel 8.0;HDR=NO;IMEX=1'"
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
sql="select * from [Sheet1$]"
rs.open sql,excelconn,1,1
if not(rs.bof and rs.eof) then
rs.movenext
do while not rs.eof
sql1="select * from [Fees_Asse_T] where id is null"
rs1.open sql1,conn,1,3
rs1.addnew
rs1("Cate_Code")=rs(0)
rs1("Asse_Code")=rs(1)
rs1("Asse_Name")=rs(2)
rs1("Categories")=rs(3)
rs1.update
rs1.close
rs.movenext
loop
end if
rs.close()
set rs=nothing
set rs1=nothing
excelconn.Close()
set excelconn=nothing
conn.close()
set conn=nothing
%>


asp代码实现EXCEL数据导入到SQL数据库 asp代码实现EXCEL数据导入到 Excel 数据导入到 Access、Sql Server 中示例代码 VB 实现 数据快速导入EXCEL VB 实现 数据快速导入EXCEL ASP连接SQL数据库 谈谈数据从sql server数据库导入mysql数据库的体验章,在线教程,电脑教... HOW TO：将数据从 Microsoft SQL Server 导入 Microsoft Excel SQL SERVER数据库中实现快速的数据提取和数据分页 SQL SERVER数据库中实现快速的数据提取和数据分页 从SQL Server备份文件导入现存数据库 ASP连接SQL服务器代码 VB 实现数据快速导入EXCEL - 软件开发网 - 提供编程开发资料的编程网 asp调用数据库代码1 将excel数据导入oracle中- - 将excel数据导入oracle中- - 在SQL Server中谨慎导入导出大容量数据 通过xalan实现关系型数据库到XML的数据交换 用DLL实现把数据库的记录导出到EXCEL中(VB) - 应用程序 - VB教程 用ASP.NET/C#连接Access和SQL Server数据库 ASP.NET2.0连接SQL Server数据库详解 ASP.NET2.0连接SQL Server数据库详解 ASP.NET2.0连接SQL Server数据库详解 ASP.NET2.0连接SQL Server数据库详解