最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
将excel中的数据批量导入到access
时间:2022-07-02 23:03:29 编辑:袖梨 来源:一聚教程网
<%
DB="db1.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")
'===========================================
' 函数功能:数据批量导入
' 作 者:wangsdong
' 文章为作者原创,转载请注明文章出处、保留作
' 者信息,谢谢支持!
' 原理:将excel中的数据导入到access
'===========================================
'连接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 "
<%=goods_name%> | <%=goods_images%> | <%=cat_id%> |
End If
xlsrs.close
Response.write "共导入" & i-1 & "条记录.
" & vbCrLf
set xlsconn=nothing
set objCmd=nothing
%>
access 结构
goods_name,goods_images cat_id
excel结构
商品名,图片,商品分类