求教一句查询语句

SonicX 2004-01-11 02:06:26

让系统自动删除30条之后的查询记录该如何写？

...全文

34 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

Unending 2004-01-12

打赏
举报

delete from 表 where id not in(select top 5 id from 表 order by id desc)
其中id是表中的递增自动编号

叮咚叮咚叮叮咚 2004-01-11

打赏
举报

记录太多的话不如选择首先取出前30条另外存一个表然后把原表删除```否则效率降低``

aoeiuvcom 2004-01-11

打赏
举报

sql = "select top 30 * from message where username='aaa' order by [time] Desc"
set rs = conn.Execute(sql)

do while not rs.Eof
'其他操作
s = rs("time")
rs.MoveNext
loop

sql = "delete form message where [time]<#" & s & "#"
call conn.Execute(sql)

其中：
sql = "delete form message where [time]<#" & s & "#"

这一句可能会有问题，因为时间格式好像跟系统有关：（

从你的sql语句里，我建议一点：字段名不要跟关键字一样！

否则，你会发现为什么那么多的sql不能执行

oneway888 2004-01-11

打赏
举报

来个倒排序

SonicX 2004-01-11

打赏
举报

aoeiuvcom(密码) 兄帮忙写一下
查询是这样的
select * from message where username='aaa' order by time Desc

aoeiuvcom 2004-01-11

打赏
举报

要删除呀，容易

既然是取前30条，那么肯定是要根据某关键字排序的了（别告诉我你的表不需要排序也没有唯一项）

然后取第30条

然后把关键字大于第30条的（如果是顺序取）删掉

或者，把关键字小于第30条的（如果是倒序取）删掉

SonicX 2004-01-11

打赏
举报

查询前30条是没问题啊，关键是要把后面的删除掉,看来1句是解决不掉了……
more000(登陆中) 的办法未免太麻烦了吧 -_-

yeno 2004-01-11

打赏
举报

con="数据库连接字符串"
set cn=server.createobject("adodb.connection")
cn.open con
set rs=server.createobject("adodb.recordset")
sql="select * from table"
rs.open sql,cn,1,3
numtt=rs.recordcount
if numtt>30 then
i=1
do while not rs.eof
if i>30 then
sql="delete from table where ID=rs("id")"
cn.execute(sql)
end if
rs.movenext
i=i+1
loop
end if