类似电话号码升位
我有个字段“档案编号”，有“1”“2”“3”“4”等，要自动改为“00001”“00002”“00003”“00004”，请问用ASP怎么来做，数据库用ACCESS，数据库表名为：dz 问题点数：80、回复次数：10Top
1 楼guodun（小天）回复于 2005-04-11 19:17:02 得分 0
有没有人会呀？？？我有一万条呀，我可不想一条条的改呀Top
2 楼guodun（小天）回复于 2005-04-11 19:19:38 得分 0
自动在前面加“0”
如：“3”--》“00003”
“23”--》“00023”
“423”--》“00423”
“5423”--》“05423”Top
3 楼lickies（雷君）回复于 2005-04-11 19:26:29 得分 20
遍历一次档案表
然后每执行一次就判断
例如
sql="select * from 表名"
rs.open sql,conn,1,1
do while not rs.eof
select case len(rs("档案编号"))
case 1
rs("档案编号")="0000"&rs("档案编号")
rs.update
case 2
rs("档案编号")="000"&rs("档案编号")
rs.update
case 3
rs("档案编号")="00"&rs("档案编号")
rs.update
case 4
rs("档案编号")="0"&rs("档案编号")
rs.update
end select
rs.movenext
loop
rs.closeTop
4 楼lickies（雷君）回复于 2005-04-11 19:26:53 得分 0
打这些打的不容易啊。。。。有用上的话记得给分啊。Top
5 楼dyshadow（棉毛衫）回复于 2005-04-11 19:34:08 得分 20
看看我的代码吧：
sql="select * from 表名"
rs.open sql,conn,1,1
dim iLen
iLen=5'*********************
dim sFill
do while not rs.eof
sFill=""
for i=len(rs("档案编号")) to iLen
sFill=sFill & "0"
next
rs("档案编号")=sFill & rs("档案编号")
rs.update
rs.movenext
loop
rs.close
这样更加好，因为，如果要多加几位，只要改注释有“*********************"一行iLen的值就好了Top
6 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2005-04-11 19:39:41 得分 10
right("00000" & x,5)Top
7 楼guodun（小天）回复于 2005-04-11 19:45:07 得分 0
rs.open sql,conn,1,1
这个要改吧Top
8 楼goodstuday（路漫漫）回复于 2005-04-11 19:56:48 得分 10
hhjjhjhj(大头)(想变胡萝卜^^)
right("00000" & x,5)
------------------------------
强！ 按这就可以解决了Top
9 楼zyddamon（狗尾巴草）回复于 2005-04-15 09:55:42 得分 10
hhjjhjhj(大头)(想变胡萝卜^^)
right("00000" & x,5)
的确是强Top
10 楼iuhxq（小灰）回复于 2005-04-15 10:00:57 得分 10
update dz set x=right("0000"&x,5)Top
