条件删除数据库记录

Question

有一个表,我在添加一条记录进去时,如果记录超过20000条的话,就把最旧的一条或多条删除掉(只剩下20000条).
我现在的做法是:先判断有多少条记录,如果超过了就删掉,随后再把那条新的记录添加进来.(每添加一条记录就判断一次,好烦呀)我想问:有什么更好的办法,比如说一个语句就可搞定

Answer 1

dim i as integer
rs.open "select count(*) as ll from table",conn,1,3
i=rs.fields("ll")
...这里进入插入的循环体内
if i>20000 then
   delete top 1 from table1 order by sj desc
   conn.execute "insert into..."
   i=i+1
else
   conn.execute "insert into..."
   i=i+1
end if这样避免了每次插入前判断，可能好一些