当前位置:首页 > 网站维护 > 列表

asp中导入excel表中多条数据,但需避免重复数据

来源:浦一科技点击:时间:2016-10-21 关键词:asp批量导入数据 重复
'下面的[sheet1$],book.xls,abc.mdb根据实际改setconn=server.createobject("adodb.connection")connstr="driver={microsoftexceldriver(*.xls)};db
<% '下面的[sheet1$],book.xls,abc.mdb根据实际改set conn=server.createobject("adodb.connection")connstr="driver={microsoft excel driver (*.xls)};dbq="& server.mappath("book.xls")conn.open connstrset conn2=server.createobject("adodb.connection")connstr2="driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("abc.mdb")conn2.open connstr2Set rs=Server.CreateObject("ADODB.Recordset")sql="Select * From [sheet1$]"rs.Open sql,conn,1,1Set dbrs=Server.CreateObject("ADODB.Recordset") Do While Not rs.eofsql="select * from xuesheng where [学号]=" & rs("学号")dbrs.Open sql,conn2,1,3If dbrs.eof Then dbrs.addnew dbrs("学号")=rs("学号") dbrs("姓名")=rs("姓名") dbrs("导入时间")=Date dbrs.update dbrs.closeEnd Ifrs.MoveNextLooprs.close%>

'下面的[sheet1$],book.xls,abc.mdb根据实际改

set conn=server.createobject("adodb.connection")
connstr="driver={microsoft  excel  driver (*.xls)};dbq="&  server.mappath("book.xls")
conn.open  connstr set conn2=server.createobject("adodb.connection")
connstr2="driver={Microsoft Access Driver (*.mdb)};dbq="&  server.mappath("abc.mdb")
conn2.open  connstr2 Set  rs=Server.CreateObject("ADODB.Recordset")
sql="Select * From [sheet1$]" rs.Open sql,conn,1,1
Set dbrs=Server.CreateObject("ADODB.Recordset")  
Do While Not rs.eof
sql="select * from xuesheng where [学号]=" & rs("学号")
dbrs.Open sql,conn2,1,3
If dbrs.eof Then     
dbrs.addnew    
dbrs("学号")=rs("学号")     
dbrs("姓名")=rs("姓名")     
dbrs("导入时间")=Date
dbrs.update     
dbrs.close
End If
rs.MoveNext
Loop rs.close


看来楼主真的该先学学asp了 基础啊。。。
这个只需要在我3楼的基础上改一句就行:
If dbrs.eof Then
dbrs.addnew
dbrs("学号")=rs("学号")
dbrs("姓名")=rs("姓名")
dbrs("导入时间")=Date
dbrs.update
dbrs.close
Else
response.write rs("学号") & " " & rs("姓名") & "已存在<br />"
End If

EexcelDB = server.mappath("..")&"\"&replace(request("path"),"/","\")

set conn2 =server.createobject("adodb.connection")
conn2.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &EexcelDB& ";Extended Properties=Excel 8.0"
sql = "select * from [sheet1$]"
set rs = conn2.execute(sql)
strsql = "select * from userinfo"
while not rs.eof
set rs1 = server.createobject("adodb.recordset")
rs1.open strsql,conn,1,3
rs1.addnew  
rs1("username") = fixsql(rs(0))
rs1("password") = fixsql(rs(1))
rs1("mz")=request("mz")
rs1("fl")=request("fl")
rs1("lock")=0
rs1.update
num=num+1  
rs1.close
set rs1 = nothing
rs.movenext
wend
conn2.close
set conn2 = nothing

response.write "<script language='javascript'>" & chr(13)
response.write "alert('导入成功,共导入"& num &" 条数据,点击返回');" & Chr(13)
response.write "window.document.location.href='index.asp';"&Chr(13)
response.write "</script>" & Chr(13)

function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end function

服务项目

网站建设

网站建设

通过SEO优化技术,提供更多的展示机会,带来大量精准流量和询盘,每月意向客户增长20%。

手机网站建设

手机网站建设

手机网站的时代强势来袭,赢在全网营销时代,手机+电脑双剑合璧,把握商机滴水不漏。

网站维护

网站维护

一个好的网站需要定期或不定期地更新内容,才能不断地吸引更多的浏览者,增加访问量。

整合网络营销

整合营销

为了建立、维护和传播品牌,以及加强客户关系,而对品牌进行计划、实施和监督的一系列营销

预约建站
免费提供网站优化
领取关键词