您当前的位置:首页 > 网络编程 > Asp编程 > 正文

ASP中将Excel数据导入到Access

【字体大小: 2009-04-20 14:50 来源:站长中国 作者:编辑整理 
以下为引用的内容:

<%
dim conn     ’定义一个连接变量 
dim conn2        ’定义第二个连接变量 
’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("Fang.mdb")  ’要导入的数据库名称,这里是Fang.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("Fang.xls") ’要导入的EXCEL表名称Fang.xls 
’----------------------------------------------------------------------------------------------------------------- 
’这里要说明的是,数据库和Excel表和该文件必须在网站同一目录里 
’----------------------------------------------------------------------------------------------------------------- 
sql = "SELECT * FROM [Sheet1$]"      ’要导入的Excel数据里面的表的名称,后面一定要加$ 
set rs = conn2.execute(sql) 
while not rs.eof 
sql = "insert into zhenya([country],[mobile]) values(’"& fixsql(rs(0)) &"’,’"& fixsql(rs(1)) &"’)" 
’其中的zhenya是要导入的目标表,其后的country,mobile是zhenya表中的字段名,但是要和后面的fixsql(rs(数字))要对应! 
’response.write sql 
’response.end 
conn.execute(sql) 
rs.movenext 
Response.Write "正在插入 "&sql&"<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 

function fixsql(str) 
dim newstr 
newstr = str 
if isnull(newstr) then 
newstr = "" 
else 
newstr = replace(newstr,"’","’’") 
end if 
fixsql = newstr 
end Function 
%> 

    顶一下
    (2)
    66.7%
    踩一下
    (1)
    33.3%
    【责任编辑:绝口不提】 标签:
    最新评论 查看所有评论
    发表评论 查看所有评论
    请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
    评价:
    表情:
    用户名:密码:验证码: