| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 460 人关注过本帖
标题:yms版主麻烦您一定给看看,谢谢了
只看楼主 加入收藏
zhangliwei1
Rank: 1
等 级:禁止访问
帖 子:129
专家分:0
注 册:2009-8-9
结帖率:87.5%
收藏
已结贴  问题点数:20 回复次数:8 
yms版主麻烦您一定给看看,谢谢了
我现在正在编写一个系统,就只剩下一个批量导入功能了就是实现不了,请教你帮我完成后,我就再好好学习一下ASP基础知识.
<!-- #include file="../include/conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<% dim xlsconn,xlsrs,sql,rs,sql1,sundx,connstr1
set xlsconn=server.CreateObject("adodb.connection")
sundx="../data/ygb.xls"                     
         Set xlsconn = Server.CreateObject("ADODB.Connection")
connstr1= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&sundxDB&"")
xlsconn.open connstr1
set xlsrs=server.CreateObject("adodb.recordset")
sql="select * from [ygjbxx$]"
xlsrs.open sql,xlsconn,3,3
set rs=server.CreateObject("adodb.recordset")
sql1="select * from info"
rs.open sql1,conn,3,3
do while not xlsrs.eof
      rs.addnew
      rs("员工号")=xlsrs("员工号")
      rs("单位")=xlsrs("单位")
      rs("姓名")=xlsrs("姓名")
      rs.update
xlsrs.movenext
loop
%>
</body>
</html>
当执行上述代码时总是提示:
搜索更多相关主题的帖子: yms 版主 麻烦 
2009-09-03 18:05
zhangliwei1
Rank: 1
等 级:禁止访问
帖 子:129
专家分:0
注 册:2009-8-9
收藏
得分:0 
执行上述语句时总是提示:数据库引擎找不到输入表或查询 'ygjbxx$'。 确定它是否存在,以及它的名称的拼写是否正确。
2009-09-03 18:06
zhangliwei1
Rank: 1
等 级:禁止访问
帖 子:129
专家分:0
注 册:2009-8-9
收藏
得分:0 
conn.asp内容为:<%
  Dim conn,sundxDB,connstr                                                                  
   sundxDB="../data/daxt.mdb"                       
         Set conn = Server.CreateObject("ADODB.Connection")
connstr= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&sundxDB&"")
conn.ConnectionString=connstr
    conn.open
%>
2009-09-03 18:07
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:4 
http://www.
ASP操作Excel的教程文档。
不一定非得使用ADODB的办法读取Excel
2009-09-03 19:24
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
http://www.
ASP操作Excel的教程文档。
不一定非得使用ADODB的办法读取Excel
2009-09-03 19:24
天上的星
Rank: 2
来 自:烟台
等 级:论坛游民
帖 子:57
专家分:21
注 册:2009-6-7
收藏
得分:4 
你要导入的excel表格的sheet1改为ygjbxx$,就是这个名字的错误
另外,如果你的数据不是很多的话,你这样会导入一些空行
if xlsrs("员工号")<>"" or xlsrs("员工号")<>null then
do while not xlsrs.eof
      rs.addnew
      rs("员工号")=xlsrs("员工号")
      rs("单位")=xlsrs("单位")
      rs("姓名")=xlsrs("姓名")
      rs.update
xlsrs.movenext
loop
end if
2009-09-04 08:39
zhangliwei1
Rank: 1
等 级:禁止访问
帖 子:129
专家分:0
注 册:2009-8-9
收藏
得分:0 
请问天上的星星,我的excel表格的sheet的名字就是ygjbxx,还是提示这个东西
2009-09-04 10:43
aspic
Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17
等 级:贵宾
威 望:51
帖 子:2258
专家分:8050
注 册:2008-2-18
收藏
得分:4 
sundx="../data/ygb.xls"
connstr1= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&sundxDB&"")
2009-09-04 10:49
zhangliwei1
Rank: 1
等 级:禁止访问
帖 子:129
专家分:0
注 册:2009-8-9
收藏
得分:0 
请问aspic,修改了后又提示:不可识别的数据库格式 'F:\临朐农信培训档案管理系统\data\ygb.xls'
2009-09-04 10:58
快速回复:yms版主麻烦您一定给看看,谢谢了
数据加载中...
 
   



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

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