100分 问个asp操作 Excel 一列加序号的问题

haiyun365 2009-08-25 11:49:09
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''加ID编号
set conn4=CreateObject("ADODB.Connection")
conn4.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&Server.MapPath("Edit\"&ExcelFile)&""
exec="select id from [学生信息$]"
set rsa=server.createobject("adodb.recordset")
rsa.open exec,conn4,1,1
do while not rsa.eof
l=l+1
sql="update [学生信息] set id ='"&l&"' where id ='"&rsa(0)&"'"
'response.write sql&"<br>"
conn4.execute(sql)
rsa.movenext
loop
rsa.close
rs.close
conn4.close
conn.close
set rsa = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


代码如上,目的是对Excel里面的Id 列(为从数据库里面导出来的不连续的不规则的数字)改成从1往后递加的编号。
但是每次都是序号错位,大部分是正确的递增的。
问问高人指点一二
另response.write sql&"<br>" 是正确的 递增语句
...全文
242 7 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
toury 2009-08-25
解决了就好,呵呵
  • 打赏
  • 举报
回复
haiyun365 2009-08-25
找到原因了 它替换之后又一次寻找替换后的ID 然后循环替换,把新ID标识一下 就好了

i=i+1
y="A"&i
sql="update [学生信息$] set id ="&y&" where id ="&rsa(0)

  • 打赏
  • 举报
回复
toury 2009-08-25
看清楚,这里做了改动:sql="update [学生信息$] set id ="&i&" where id ="&rsa(0)
  • 打赏
  • 举报
回复
haiyun365 2009-08-25
加 i=0 是一样的,乱序任然出现
  • 打赏
  • 举报
回复
toury 2009-08-25

<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''加ID编号
set conn4=server.CreateObject("ADODB.Connection")
conn4.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&Server.MapPath("Edit\"&ExcelFile)&""
exec="select id from [学生信息$]"
set rsa=server.createobject("adodb.recordset")
rsa.open exec,conn4,1,1

i=0
do while not rsa.eof
i=i+1
sql="update [学生信息$] set id ="&i&" where id ="&rsa(0)
conn4.execute(sql)
rsa.movenext
loop
rsa.close
rs.close
conn4.close
conn.close
set rsa = Nothing
%>
  • 打赏
  • 举报
回复
haiyun365 2009-08-25
ID 里面没有 是从 数据库的自动增长列中导出来的 不可能有重复
  • 打赏
  • 举报
回复
hookee 2009-08-25
是不是数据库里id本身有重复的?
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
帖子事件
创建了帖子
2009-08-25 11:49
社区公告
暂无公告