| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 569 人关注过本帖
标题:[求助]asp导入Excel 表到数据库问题
只看楼主 加入收藏
zhy589
Rank: 1
等 级:新手上路
帖 子:42
专家分:0
注 册:2007-7-2
结帖率:100%
收藏
 问题点数:0 回复次数:0 
[求助]asp导入Excel 表到数据库问题

这是添加的Excel表到数据库的addu.asp 文件 我在本机测试可以运行 为什么 上传到FTP上就出错啊 请大家帮忙看一下啊!谢谢各位!


Server.scriptTimeout="10"
connstr="DBQ="+server.mappath("#data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr


dim conn,connstr,time1,time2,db
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串"
Response.End
End If

sub closedb()
conn.close
set conn=nothing
end sub

dim aa
aa=request.form("bbb") '获取传递过来的值
Dim StrConnect,cc
Dim objConn
Dim rs
Dim Sql
cc=0
'Excel连接驱动
aaa="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&aa&";Extended Properties=Excel 8.0"
set StrConnect=CreateObject("ADODB.Connection")
StrConnect.Open aaa
Set objConn=CreateObject("ADODB.Connection")
objConn.Open StrConnect

'注意 表名一定要以下边这种格试 "[表名$]" 书写
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [sheet1$]"
rs.Open Sql,StrConnect,2,2
IF rs.Eof And Rs.Bof Then
response.Write("<script>alert('没有资料可以导入!');history.go(-1)</script>")
else
response.write"excel数据为: <br>"

Do While Not rs.EOF
'列出表内信息
response.write ""&rs(0)&"-"&rs(1)&"-"&rs(2)&"-"&rs(3)&""
cc=cc+1
response.write"<br>"

set rssql=server.CreateObject("adodb.recordset")
sql="select * from [wx]"
'sql = "insert into [] (xm,tel,jx,sj) values ('"&rs(0)&"',"&rs(1)&",'"&rs(2)&"','"&rs(3)&"')"
rssql.Open sql,conn,3,3
rssql.AddNew
if rs(0)<>"" then
rssql(1)=rs(0)
end if
if rs(1)<>"" then
rssql(2)=rs(1)
end if
if rs(2)<>"" then
rssql(3)=rs(2)
end if
if rs(4)<>"" then
rssql(4)=rs(3)
end if

rssql.Update
rssql.close
set rssql=nothing
Rs.MoveNext
Loop
end if
--------------------------------------------------
显示错误如下:
Microsoft JET Database Engine 错误 '80004005'

'C:\Documents and Settings\zhouyong\桌面\Book1.xls'不是一个有效的路径。 确定路径名称拼写是否正确,以及是否连接到文件存放的服务器。

/1xs/addu.asp,行 28

28行是StrConnect.Open aaa

[此贴子已经被作者于2007-8-17 17:56:42编辑过]

搜索更多相关主题的帖子: 数据库 Excel asp 
2007-08-17 16:37
快速回复:[求助]asp导入Excel 表到数据库问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.037160 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved