asp:将excel中的数据导入到access

一、有ACCESS数据库book,其中有表book1

 

二、有excel数据book2,其中有表book2

 

注意：excel表中有数字和字母的内容（例：5fdfd），ACCESS字段类型一定要为备注类型

代码：

 

<%
DB="book.mdb"
path=Server.MapPath(DB)
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source="&path
conn.Open connstr
Set rs=server.CreateObject("adodb.recordset")
 %>
<TABLE border=1>
<%

'连接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="Book2" 'excel名称
file2="book2" 'excel中的表名称
'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 "<TABLE border=1>"
 Do While not xlsrs.eof '
' a=xlsrs("名称")
' b=xlsrs("姓名")
' c=xlsrs("地址")
 a=xlsrs("发运日期")'excel表中的字段名称
 b=xlsrs("在途跟踪")
 c=xlsrs("到达日期")
 %>
 
 <TR>
  <TD>&nbsp;<%=a%></TD>
  <TD>&nbsp;<%=b%></TD>  
  <TD>&nbsp;<%=c%></TD> 
 </TR>

 <% 
  
  sql="insert into book1(a,b,c) values('"&a&"','"&b&"','"&c&"')"
  conn.execute(sql)
 i=i+1
 xlsrs.MoveNext
    Loop 
 'response.write "</table>"
   %>
      </table>
      <%
End If
xlsrs.close

Response.write "共导入<font color='red'>" & i-1 & "</font>条记录.<br>" & vbCrLf

set xlsconn=nothing
set objCmd=nothing
%>