excel导入sql数据库方法

《excel导入sql数据库方法》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、excel导入sql数据库方法在网上看到很多朋友在咨询excel导入sql数据库方法，前段时间做项目时客户有这个功能需求，所以今天给大家分享一下实现的方法。先介绍一个思路：将excel文件上传到服务器，然后预览数据，可以对数据进行筛选，点击“导入”后将选择的数据导入到sql数据库中，最后把上传的文件从服务器上删除，释放空间。好了，接下来我们就按步骤来讲解excel导入sql数据库方法。1、excel文件上传到服务器我们采用函数的实现，代码如下：callUploadFile(fName,FilePath)FunctionUploadFile(fName,FilePath)    

2、      UpLoadFileType="xls

3、"  //设置允许上传的文件类型    FileTypeErr=True   setupload=newupload_file foreachformNameinupload.File   setfile=upload.File(formName)      fName=file.FileName FileExt=file.FileExt   iffile.filesize<100then     Response.Write""   Response.end()     endif     UpLoadFile_ID=split(UpLoadFileType,"

5、")  fori=0toubound(UpLoadFile_ID)         ifUpLoadFile_ID(i)=FileExtthen   FileTypeErr=False   exitfor  endif        next    ifFileTypeErr=Truethen 

6、  Response.Write""   Response.end()  endif    mapurl=trim(fName)  file.SaveToFileServer.mappath(mapurl)//保存文件 setfile=nothing   next   setupload=nothing   FilePath=Server

7、.mappath(mapurl) //将上传的文件路径赋值给FilePathEndFunction2、预览数据，选择数据导入到sql数据库中我们采用函数的实现，代码如下：callExcelToSql(fName,FilePath)FunctionExcelToSql(ExName,FilePath,Mainbody)    Dimconn_xls DimStrConn_xls DimRs DimSql Dimi    ExTName="Sheet1" OnErrorResumeNext  Setconn_xls=Server.CreateObject("ADODB.Connec

8、tion") StrConn_xls="Driver={MicrosoftExcelDriver(*.xls)};DBQ="&Server.MapPath(""&ExName) conn_xls.OpenStrConn_xls   Setrs_xls=Server.CreateObject("ADODB.Recordset") Sql="select*from["&ExTName&"$]"  rs_xls.OpenSql,conn_xls,3,3   IfErrThen    err.Clear  Setconn_xls=Nothing  setrs_xls=nothing  

9、Delete_UpLoadFile(FilePath)    Response.Write""      Response.end() EndIf  ifrs_xls.eofthen  Setconn_xls=Nothing  setrs_xls=nothi