excel导入sql数据库方法.doc

excel导入sql数据库方法
在网上看到很多朋友在咨询excel导入sqlHYPERLINK"http://www.d7dd.com/Database/"数据库方法，前段时间做项目时客户有这个功能需求，所以今天给大家分享一下实现的方法。先介绍一个思路：将excel文件上传到服务器，然后预览数据，可以对数据进行筛选，点击“导入”后将选择的数据导入到sql数据库中，最后把上传的文件从服务器上删除，释放空间。好了，接下来我们就按步骤来讲解excel导入sql数据库方法。
1、excel文件上传到服务器
我们采用函数的实现，代码如下：
callUploadFile(fName,FilePath)
FunctionUploadFile(fName,FilePath)UpLoadFileType="xls|"//设置允许上传的文件类型FileTypeErr=Truesetupload=newupload_fileforeachformNameinupload.Filesetfile=upload.File(formName)fName=file.FileNameFileExt=file.FileExtiffile.filesize<100thenResponse.Write"<script>"Response.Write"alert('文件地址不能为空');"Response.Write"location.href='Request.asp';"Response.Write"</script>"Response.end()endifUpLoadFile_ID=split(UpLoadFileType,"|")fori=0toubound(UpLoadFile_ID)ifUpLoadFile_ID(i)=FileExtthenFileTypeErr=FalseexitforendifnextifFileTypeErr=TruethenResponse.Write"<script>"Response.Write"alert('文件类型错误');"Response.Write"location.href='Request.asp';"Response.Write"</script>"Response.end()endifmapurl=trim(fName)file.SaveToFileServer.mappath(mapurl)//保存文件setfile=nothingnextsetupload=nothingFilePath=Server.mappath(mapurl)//将上传的文件路径赋值给FilePathEndFunction
2、预览数据，选择数据导入到sql数据库中
我们采用函数的实现，代码如下：
callExcelToSql(fName,FilePath)
FunctionExcelToSql(ExName,FilePath,Mainbody)Dimconn_xlsDimStrConn_xlsDimRsDimSqlDimiExTName="Sheet1"OnErrorResumeNextSetconn_xls=Server.CreateObject("ADODB.Connection")StrConn_xls="Driver={MicrosoftExcelDriver(*.xls)};DBQ="&Server.MapPath(""&ExName)conn_xls.OpenStrConn_xlsSetrs_xls=Server.CreateObject("ADODB.HYPERLINK"http://www.d7dd.com/Code/ASP/7_331720090520164900.html"Recordset")Sql="select*from["&ExTName&"$]"rs_xls.OpenSql,conn_xls,3,3IfErrThenerr.ClearSetconn_xls=Nothingsetrs_xls=nothingDelete_UpLoadFile(FilePath)Response.Write"<script>"Response.Write"alert('文件格式有误');"Response.Write"location.href='Request.asp';"Response.Write"</script>"Response.end()EndIfifrs_xls.eofthenSetconn_xls=Nothingsetrs_xls=nothingDelete_UpLoadFile(FilePath)Response.Write"<script>"Response.Write"alert('E