Excel数据导入到Access

最新推荐文章于 2024-08-30 09:33:36 发布

原创最新推荐文章于 2024-08-30 09:33:36 发布 · 806 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#excel #access #database #sql #properties #数据库

ASP 专栏收录该内容

52 篇文章

订阅专栏

本文介绍了一个使用ASP将Excel数据导入Access数据库的例子。该程序通过ADO连接Excel与Access，并实现数据表Sheet1的数据导入到Access的tb_zhenya表中。

下面是asp的全部程序，需要做的是建一个test.mdb数据库和一个test.xls的Excel

<%
'此例子是由Excel数据导入到Access。注意的是Excel的第一行才是字段名，不然Excel的第一行就导不进来
dim conn     '定义一个Excel连接变量
dim conn2        '定义第二个Access连接变量
On Error Resume Next
Server.ScriptTimeOut = 999999       '超时时间
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider =Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source="&Server.MapPath ("test.mdb") '要导入的数据库名称，这里是test.mdb

set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider =Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties =Excel 5.0;Data Source="&Server.MapPath("test.xls") '要导入的EXCEL表名称 test.xls

'查询Excel准备导入到Access
sql = "SELECT * FROM [Sheet1$]" '要导入的Excel数据里面的表的名称，后面一定要加$
set rs = conn2.execute(sql)
while not rs.eof
sql2 = "insert into tb_zhenya(zhenya) values('"& rs(0) &"')" 'rs(0)是Excel的第几个字段。这里是第一个字段
conn.execute(sql2)
rs.movenext
Response.Write "正在插入 "&sql2&"<Br>"
Response.Flush
wend
conn.close
set conn = nothing
conn2.close
set conn2 = Nothing

If Err = 0 Then
Response.Write "导入成功"
Else
Response.Write "导入失败!"
End If
%>