如何用DAO 删除一个表的所有记录？

Question

如题，可不要跟我说，用记录集循环删除哦！

Answer 1

执行SQL语句删除啊！DELETE FROM TABLENAME╭════════════════════════════╮
║　　　　　　　　　　　　　　　　　　　　　　　　　　　　║
║　　免费的学习、交流、源码、工具网站，欢迎大家访问！　　║
║　　http://www.j2soft.cn/ 　　　　　　　　　　　　　　　║
╰════════════════════════════╯

Answer 2

用recordset对象，还是其它对象。

Answer 3

delete from tablename
truncate table tablename

Answer 4

Dim db As DAO.DatabaseSet db = OpenDatabase("数据库路径和文件名"）
db.Execute "DELETE FROM 表名"
db.Close
Set db = Nothing

Answer 5

Private Sub Form_Load()
    Dim db As Database
    Set db = OpenDatabase(App.Path & "\Test.mdb")
    db.Execute ("delete from table1")
End Sub

Answer 6

楼上的两位正解！呵呵，得寸进尺一下，有没有可能用RECORDSET对象，在删除表中所有记录的同时返回一个可插入记录的RECORDSET对象？

Answer 7

直接用 ADODB.CONNECTION 来操作ADODB.CONNECTION.EXECUTE "DELETE FROM TABLENAME"

Answer 8

Dim rs As DAO.RecordsetSet rs = db.OpenRecordset("SELECT * FROM 表名")

Answer 9

呵呵，没有理解。Private Sub Form_Load()
    Dim db As Database
    Dim rs As DAO.Recordset
    Set db = OpenDatabase(App.Path & "\Test.mdb")
    Set rs = db.OpenRecordset("DELETE * FROM 表名")End Sub不过我不推荐这么做。