一、有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
%>