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

[haiyun365]

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''加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>" 是正确的 递增语句

[hookee]

是不是数据库里id本身有重复的?

[haiyun365]

ID 里面没有 是从 数据库的自动增长列中导出来的 不可能有重复

[toury]

<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''加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]

加 i=0 是一样的，乱序任然出现

[toury]

看清楚，这里做了改动：sql="update [学生信息$] set id ="&i&" where id ="&rsa(0)

[haiyun365]

找到原因了 它替换之后又一次寻找替换后的ID 然后循环替换，把新ID标识一下 就好了

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

[toury]

解决了就好，呵呵