ASP:读取Excel并导入到access数据库中

来源：互联网发布：用visio画网络拓扑图编辑：程序博客网时间：2024/04/27 18:17

将Excel数据导入到access数据库中

<%'读取Excel并导入到access数据库中set Connn=Server.CreateObject("ADODB.Connection")set rs=Server.CreateObject("ADODB.Recordset")strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("XXX.xls")+";Extended Properties='Excel 8.0;HDR=yes;IMEX=1'"Connn.Open strConnsql="SELECT * FROM [表19$]"'Excel中的表命rs.Open sql,Connn,1,1if not rs.eof thenDo While Not rs.EOF rs.move x response.Write rs("姓名")&":"&rs("手机号")&"<br>"'读取Excel中的字段     '打开access数据库中存入的表    set rss=server.CreateObject("adodb.recordset")    sqls="select * from Booking where id=0"    rss.open sqls,conn,1,3    rss.addnew        rss("name")=rs("姓名")        rss("tele")=rs("手机号")    rss.update    rss.close    set rss=nothingRs.MoveNextLoop    end ifrs.CloseConnn.Closeset rs = Nothingset Connn = Nothing%>

0 0