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> <%=a%></TD>

  <TD> <%=b%></TD>  

  <TD> <%=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

%>