求教:如何删除表中指定的记录

风中漫步

假如有这么个表:有N行记录,重复记录有很多，分别在20,50,100,120,180.....,我想删除第120行的那条记录,该如何用ADO操作?

假如筛选不行,假如movenext可以但效率太低;有木有其他好方法?谢谢

风中漫步

purplerose 发表于 2015-8-4 22:30
漫步，您到底采用了哪种方法解决的呀，能说一下吗？

呵呵,吓我一跳,啥时候发过这个帖子
我忘了,你都试试吧

purplerose

漫步，您到底采用了哪种方法解决的呀，能说一下吗？{:soso_e183:}

roych

关键在In语句里。由于楼主是固定删除某个位置的记录，因此如果表中存在自动编号字段，用Dcount很容易获取这些记录的位置，再用In条件来删除即可。
而至于删除重复记录，其实也是类似的，用Dcount按固定条件来计算，把大于1的记录删除即可。

如果实在嫌Dcount效率低，则可以：
1、先按向导生成重复记录，导出到Excel备用。
2、删除Access中重复记录。
3、在Excel中Countif函数处理重复记录，或者用高级筛选获取不重复值（即重复记录只显示1条）。
4、不用多说了，把这些记录导入或者追加到原表中即可。

andymark

楼主的问题是删除指定的记录还是删除重复的记录呀

roych

是否可以考虑Dcount，然后用条件 In呢？例如：
DELETE Tbl_Train.*, DCount("bu","tbl_train","examscore<=" & [examscore]) AS 表达式1
FROM Tbl_Train
WHERE (((DCount("bu","tbl_train","examscore<=" & [examscore])) In (5,7,9)))

鱼儿游游

delete from 表  where <条件>   

注意：delete *  from 表  where <条件>   在 ACCESS+SQL 环境下会报错。

andymark

delete * from 表  where id=XX

todaynew

rs.Move  阁下打算从当前记录位置移动的记录数

如：

function DelRecord(rs as adodb.recordset, n as long)
    rs.move n
    rs.delete
    rs.update
end function