怎么用vba删除ACCESS表中数据

怎么用vba删除ACCESS表中数据

访问ACCESS一般有DAO ,ADO 和SQL方法，
以DAO为例，先定义并实例化DAO对象。
（引用“Microsoft DAO 3.6 Object Library”项，一般默认不用设置）
代码如下：
Dim db As Database
Dim rs As RecordSet
Set db = OpenDatabase ("地址\数据库名称.mdb" )
Set rs = db.OpenRecordset("表名", dbOpenDynaset)
rs.Move n '移动到第n 条记录
rs.Edit '设置为修改状态
rs.Delete '删除当前记录
rs.Updata '把删除动作反映到数据库中
end sub

如果是删除整个字段用：rs. Fields.Delete("字段名")
替换掉"rs.Delete"

如果是只删除该纪录的某一字段的内容用: rs. Fields(n).value=""
替换掉"rs.Delete"

如果是删除整个表用：DoCmd.DeleteObject acTable, "表名"
（不是DAO方法，单独使用，其它代码都不用）

温馨提示：内容为网友见解，仅供参考

当前网址：https://22.t2y.org/zz/ci0is266s.html