如何随机删除一个表中的若干条记录？

Question

理由删除100条
delete 表 where 条件 and rownum<=100;

Answer 1

假定表中有500条记录，要随机删除50条DECLARE
  v_RandomKey integer;
BEGIN
FOR v_Key IN 1..50 LOOP
  v_RandomKey := Random.RandMax(500);
  delete from employ where rownum=v_RandomKey;
END LOOP;
  COMMIT;
END;
/

Answer 2

更正一下假定表中有500条记录，要随机删除50条DECLARE
  v_RandomKey integer;
BEGIN
FOR v_Key IN 1..50 LOOP
  v_RandomKey := round(dbms_random.value(1,500),0);
  delete from employ where rownum=v_RandomKey;
END LOOP;
  COMMIT;
END;
/