ASP实现导入Excel数据到数据库的方法

以下代码为转载，未经验证，仅供参考：

<% Response.CodePage=65001%>
<% Response.Charset="UTF-8" %>
<%
wenjian = request.Form("select")'获取文件扩展名
ext = FileExec(wenjian)
'判断文件扩展名
if ext <> "xls" thenresponse.Write("<script>alert('文件类型不对，请核实！');window.location.href='index.html';</script>")response.End()
end ifDim objConn,objRS
Dim strConn,strSqlset objConn=Server.CreateObject("ADODB.Connection")
set objRS=Server.CreateObject("ADODB.Recordset")excelFile = server.mappath(wenjian)
'针对excel 2007
strConn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & excelFile & ";" & "Extended Properties=Excel 8.0;"
objConn.Open strConnstrSql="SELECT * FROM [Sheet1$]"objRS.Open strSql,objConn,1,1
objRS.MoveFirst%><!--#include file="conn.asp"--><%
'循环excel中所有记录
while not objRS.eofset rs = Server.CreateObject("Adodb.Recordset")'查询语句sql_s = "select * from ceshi where lname='" & objRS(0) & "' and old='" & objRS(1) & "' and sex='" & objRS(2) & "' and guojia='" & objRS(3) & "' and QQ='" & objRS(4) & "'"rs.open sql_s, conn, 1, 1'重复的数据不做录入操作if rs.eof then'插入语句'****excel中第一条不会被录入****sql = "insert into ceshi (lname, old, sex, guojia, QQ)values ('" & objRS(0) & "', '" & objRS(1) & "', '" & objRS(2) & "', '" & objRS(3) & "', '" & objRS(4) & "')"'执行插入conn.execute(sql)end ifobjRS.MoveNext rs.closeset rs = nothing
wend'又到了各种关闭的时候
conn.close
set conn = nothing
objRS.Close
objConn.Close
set objRS = Nothing
set objConn = Nothingresponse.Write("<script>alert('导入成功');window.location.href='index.html';</script>")
response.End()Function FileExec(fileName)FileExec = Mid(fileName,Instr(fileName,".")+1,Len(fileName)-Instr(fileName,"."))
End Function
%>

下面这个是上面的简化版：

wenjian=request.Form("floor")fileext=mid(wenjian,InStrRev(wenjian,".")+1)if lcase(fileext)<>"xls" thenresponse.write "<script>alert ('文件格式不对，请上传Excel文件');window.location.href='updateFloor.asp';</script>"response.endend ifset conne=server.CreateObject("ADODB.Connection")connStre="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( ""&wenjian&"" )&";Extended Properties='Excel 8.0;HDR=YES;IMEX=1';"conne.open connStreSqle="select * from [sheet1$] " Set rse = Server.CreateObject("ADODB.Recordset")rse.open sqle,conne,1,1'验证hang=2do while not rse.eof'名称不能为空if trim(rse(0))<>"" thenelsemess="第"& hang &"行名称为空，请检查！"response.Write"<script>alert('"& mess &"').window.location.href='updateFloor.asp'</script>"response.End()end if rse.movenexthang=hang+1looprse.movefirstdo while not rse.eofset rst=server.CreateObject("adodb.recordset")sqlt="select * from Sellman"rst.open sqlt,conn,1,3rst.addnew()rst("CompanyName")=c2(rse(0))rst("CompanyInfo")=c2(rse(1))rst("address")=c2(rse(2))rst("tel")=c2(rse(3))&"&nbsp;&nbsp;"&c2(rse(7))rst("Fax")=c2(rse(4))rst("linkman")=c2(rse(5))rst("Homepage")=c2(rse(8))rst("Email")=c2(rse(6))rst.update()rst.closeset rst=nothingrse.movenextlooprse.closeset rse=nothingresponse.Write "<script>alert('导入成功!');location.href='updateFloor.asp';</script>"

其实简单的说象access 数据库一样，把excel文件打开，再进行读，再写到access中（更简化的版本？）。

dim conn
dim conn2
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.mdb" set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls" sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
while not rs.eof sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')" conn.execute(sql) rs.movenext
wend conn.close
set conn = nothing
conn2.close
set conn2 = nothing function fixsql(str) dim newstr newstr = str if isnull(newstr) then newstr = "" else newstr = replace(newstr,"'","''") end if fixsql = newstr
end function

ASP实现导入Excel数据到数据库的方法相关推荐

c 导入oracle数据库,c导入excel数据到数据库
报表工具如何实现多次导入Excel 很多人在开发报表的时候会遇到将多张表样相同的excel导入到模板,然后提交至数据库中.但问题是很多情况,在线导入不支持一次性选择多个excel,一次只能选择一个ex ...
利用Navicat导入Excel数据到数据库
一.工具准备 Navicat数据库管理工具. execl表格和数据,execl表格中的数据格式为:第一行表头为数据库字段,其余为数据二.数据导入 1.打开Navicat工具,并找到要导入的目标数据库 ...
ASP导入Excel数据提示：外部数据库驱动程序（1）中的意外错误解决办法
ASP导入Excel数据提示:外部数据库驱动程序(1)中的意外错误解决办法最近拿起很久以前写的ASP导入excel数据程序测试时,发现好好的程序出现运行问题,之前都是好好的.真是怪事. 怎么 ...
PostgreSQL数据库导入EXCEL数据表
气象监测数据下载(可下载最新及每日气象数据) NOAA气象日监测数据均值计算python代码整理 PostgreSQL数据库导入EXCEL数据表 PG数据库版本为10.14.1. 首先,需要在PG数据 ...
php导入excel先检查,php 如何在导入Excel数据时检查Mysql数据库内容是否存在，避免重复录入？：怎么样筛选excel表格重复的数据库...
php 如何在导入Excel数据时检查Mysql数据库内容是否存在,避免重复录入? 如果不想每询一次以提前做一个统询 $sql=mysql_query("select distinct Co ...
php修改excel表格数据,php修改excel表格数据-php怎么导入Excel表格到数据库，根据表格内的字段......
php怎么导入Excel表格到数据库,根据表格内的字段... 昨天项目里有个新知需求,客户希望把一些数据能导出成为Excel表格道,刚开始用PHP原生输入Excel表格,发现效果不是很理想,于是找到一 ...
matlab导入桌面excel数据库,matlab导入excel数据_excel怎么导入网络上的数据？_excel导入网络数据...
网络上的数据怎么导到excel中.有方法是直接复制然后粘贴到excel中,但是网络上直接复制过来的,可能不能直接进去下一步编辑.因为复制过来的每个词后面都有空格,是不能进行直接计算,连最基本的求和都不 ...
数据库：MySQL Workbench导入excel数据
使用MySQL Workbench给表格导入excel数据一般导入的数据excel表文件为csv格式. 选中要导入数据的数据库或表格,右键选择Table Data Import Wizard 选择要 ...
导入excel表格到数据库、导入excel表格到数据库代码、根据excel表格路径将数据导入到数据库、验证要导入的excel表格数据、根据路径获取MultipartFile、FileItem文件
导入excel表格到数据库.根据路径导入excel表格到数据库代码.根据excel表格路径将数据导入到数据库.验证要导入的excel表格数据.根据路径获取MultipartFile.FileItem文 ...

ASP实现导入Excel数据到数据库的方法

ASP实现导入Excel数据到数据库的方法相关推荐

最新文章

热门文章