excel导入sql数据库方法

导读：在网上看到很多朋友在咨询excel导入sql数据库方法，那么今天就给大家分享一下实现的方法。先介绍一个思路：将excel文件上传到服务器，然后预览数据，可以对数据进行筛选，点击“导入”后将选择的数据导入到sql数据库中，最后把上传的文件从服务器上删除，释放空间。好了，接下来我们就按步骤来讲解excel导入sql数据库方法。

创新互联专注于企业营销型网站建设、网站重做改版、八宿网站定制设计、自适应品牌网站建设、H5开发、商城网站建设、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为八宿等各大城市提供网站开发制作服务。

1、excel文件上传到服务器

我们采用函数的实现，代码如下：

call UploadFile(fName,FilePath)

Function UploadFile(fName,FilePath)

UpLoadFileType="xls|" //设置允许上传的文件类型
FileTypeErr=True
set upload=new upload_file
for each formName in upload.File
set file=upload.File(formName)
fName=file.FileName
FileExt=file.FileExt

if file.filesize<100 then
Response.Write ""
Response.end()
end if

UpLoadFile_ID=split(UpLoadFileType,"|")
for i=0 to ubound(UpLoadFile_ID)
if UpLoadFile_ID(i)=FileExt then
FileTypeErr=False
exit for
end if
next

if FileTypeErr=True then
Response.Write ""
Response.end()
end if

mapurl=trim(fName)
file.SaveToFile Server.mappath(mapurl) //保存文件
set file=nothing
next
set upload=nothing
FilePath=Server.mappath(mapurl) //将上传的文件路径赋值给FilePath
End Function

2、预览数据，选择数据导入到sql数据库中

我们采用函数的实现，代码如下：

call ExcelToSql(fName,FilePath)

Function ExcelToSql(ExName,FilePath,Mainbody)
Dim conn_xls
Dim StrConn_xls
Dim Rs
Dim Sql
Dim i

ExTName = "Sheet1"
On Error Resume Next
Set conn_xls =Server.CreateObject("ADODB.Connection")
StrConn_xls="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath(""&ExName)
conn_xls.Open StrConn_xls

Set rs_xls = Server.CreateObject("ADODB.Recordset")
Sql="select * from ["&ExTName&"$]"
rs_xls.Open Sql,conn_xls ,3,3

If Err Then
err.Clear
Set conn_xls = Nothing
set rs_xls=nothing
Delete_UpLoadFile(FilePath)

Response.Write ""
Response.end()
End If

if rs_xls.eof then
Set conn_xls = Nothing
set rs_xls=nothing
Delete_UpLoadFile(FilePath)

Response.Write ""
Response.end()
else
i=1
mainbody=mainbody & "

"
mainbody=mainbody & ""
do while not rs_xls.eof

'由于excel在处理数据类型时，前面无法带0，补0操作
if len(Rs_xls(0))<10 then
cc=""
aa=10-len(Rs_xls(0))
for c=1 to aa
cc=cc & "0"
next
end if
payrollcode=cc & Rs_xls(0)

'如果导入的excel数据列有变化，请对程序做适当的修改

mainbody=mainbody & "

"
mainbody=mainbody & ""
mainbody=mainbody & ""
mainbody=mainbody & ""
mainbody=mainbody & ""
mainbody=mainbody & ""
mainbody=mainbody & ""

i = i +1
rs_xls.Movenext
Loop
end if
rs_xls.close
set rs_xls=nothing
conn_xls.close
set StrConn_xls=nothing
mainbody=mainbody & "

"
mainbody=mainbody & "

	编号	姓名	性别	省份
	"&payrollcode&"	"&Rs_xls(1)&"	"&Rs_xls(2)&"	"&Rs_xls(3)&"
总数:"&i-1&"

"
mainbody=mainbody & ""

End Function

3、删除上传的excel文件

利用FSO组件删除

call Delete_UpLoadFile(FilePath)

Function Delete_UpLoadFile(FilePath)
Set Fso=server.createobject("scripting.filesystemobject")
If Fso.FileExists(FilePath) then
Fso.DeleteFile FilePath,true
End If
End Function

4、完整的excel导入sql数据库方法

if request("Action")="upload" then

call UploadFile(fName,FilePath)

call ExcelToSql(fName,FilePath)

call Delete_UpLoadFile(FilePath)

response.redirect "Request.asp"
Response.End

end if

需要注意的几个地方：

1、请参照example.xls文件的格式进行数据导入，如果excel数据列有增加，可以对程序做适当的修改
2、如果在导入数据时，提示“文件格式有误”，请检查ExTName指定的名称和excel文件里的sheet名称是否一致；excel文件是否是标准的excel文件格式。
3、确保FilePath在几个函数之间传输时，值不会丢失
4、该程序文件和excel文件在同一目录下，如果不在同一目录，在上传的路径地方做适当的修改
5、确保everyone对该目录有读写权限，这样在上传和删除文件时不会报错
6、在导入中文数据时，可能会出现乱码，中文变问号等情况，可以在读取数据的页面头加入下面的编码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>

好了，上面就是excel导入sql数据库方法，对于一些初学者，看到这么多代码可能就晕，不要怕，找到规律之后，这些代码也就不难啦，希望大家通过我的介绍能对excel导入sql数据库有更多的了解。

分享标题：excel导入sql数据库方法
当前地址：http://www.shufengxianlan.com/qtweb/news26/96626.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联