IBM Rational 系统开发最佳实践工具包	WebSphere MQ 最佳实践 TOP 15

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

楼主solotarn（）2006-03-14 10:40:18 在 VB / 基础类提问

如题，可不要跟我说，用记录集循环删除哦！问题点数：20、回复次数：12Top

1 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2006-03-14 11:05:28 得分 0

执行SQL语句删除啊！

DELETE FROM TABLENAME

╭════════════════════════════╮
║　　　　　　　　　　　　　　　　　　　　　　　　　　　　║
║　　免费的学习、交流、源码、工具网站，欢迎大家访问！　　║
║　　http://www.j2soft.cn/ 　　　　　　　　　　　　　　　║
╰════════════════════════════╯Top

2 楼solotarn（）回复于 2006-03-15 10:21:57 得分 0

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

3 楼jobs002（Oh! Office）回复于 2006-03-15 10:23:24 得分 0

adodb.connectionTop

4 楼Leftie（左手,为人民币服务）回复于 2006-03-15 10:25:11 得分 0

delete from tablename
truncate table tablenameTop

5 楼of123（）回复于 2006-03-15 11:04:05 得分 10

Dim db As DAO.Database

Set db = OpenDatabase("数据库路径和文件名"）
db.Execute "DELETE FROM 表名"
db.Close
Set db = NothingTop

6 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-15 11:04:40 得分 10

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

7 楼solotarn（）回复于 2006-03-15 20:44:41 得分 0

楼上的两位正解！

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

8 楼changechange（http://access911.net 是我的个人网站，欢迎光临）回复于 2006-03-16 09:15:27 得分 0

直接用 ADODB.CONNECTION 来操作

ADODB.CONNECTION.EXECUTE "DELETE FROM TABLENAME"
Top

9 楼of123（）回复于 2006-03-16 09:28:04 得分 0

Dim rs As DAO.Recordset

Set rs = db.OpenRecordset("SELECT * FROM 表名")
Top

10 楼solotarn（）回复于 2006-03-16 13:49:11 得分 0

区区的20分。

楼上的各位太令我感动了。

of123() ：你怎么也这么粗心，我是希望在删除所有记录的“同时”返回一个记录集，有可能实现吗？Top

11 楼of123（）回复于 2006-03-16 13:55:32 得分 0

呵呵，没有理解。

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

不过我不推荐这么做。Top

12 楼solotarn（）回复于 2006-03-17 17:19:53 得分 0

呵呵，可能是。

是不是因为：
1、无法判断错误
2、不能定义字段
Top