象牙塔的案例和资讯已经很多年没有更新了,实在没有精力更新,需要最新案例请联系客服!
--- 我们没有销售只有技术,不善于也不需要宣传,服务好已有客户足以!---
asp实现将excel中的数据批量导入到access
发布时间:2009年12月04日  |  编辑:象牙塔 技术部  |  点击率:2133次
asp数据批量导入的原理是使用excel保存许多数据,然后将这个excel使用无组件上传到服务器上,然后打开excel,将里面的数据写入到数据库中。
这里我写的是将excel中的数据读出来,然后写入到数据库中
具体代码:

< %

’连接excel数据库
path="./"
Dim xlsconn,strsource,xlbook,xlsheet,i
Dim myConn_Xsl,xlsrs,sql,objCmd  
Set xlsconn = server.CreateObject("adodb.connection") 
Set xlsrs = Server.CreateObject("Adodb.RecordSet")
filename="商品" 
file2="商品列表" 
source=server.mappath(path&filename&".xls")
myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &source& ";Extended Properties=Excel 8.0"
xlsconn.open myConn_Xsl 
sql = "Select * from ["&file2&"$]"
xlsrs.open sql,xlsconn,1,1 
If xlsrs.eof Then
else
i=1
response.write ""
Do While not xlsrs.eof 
goods_name=xlsrs("商品名")
goods_images=xlsrs("图片")
cat_id=xlsrs("商品分类")
%>


    <%=goods_name%>
    <%=goods_images%>  
    <%=cat_id%> 

<% 
sql="insert into goods(goods_name,goods_images,cat_id) values(’"&goods_name&"’,’"&goods_images&"’,"&cat_id&")"
conn.execute(sql)
i=i+1 
xlsrs.MoveNext
    Loop 
response.write ""
End If
xlsrs.close
Response.write "共导入" & i-1 & "条记录.
" & vbCrLf
set xlsconn=nothing 
set objCmd=Nothing
% >
  •   上一篇: ASP批量导入Excel到或者Acces
  •   下一篇: 网站建设-SQL 求和技巧