DAO中刪除表和記錄及處理自動編號

刪除表：CurrentDb.Execute "DROP TABLE [表名] "

批量刪除指定記錄：

strSql = "DELETE * FROM [表名] WHERE [lngNodeId]<>1"

CurrentDb.Execute strSql

自動編號字段比較討厭，如果你刪除了記錄之後再添加，記錄編號會從刪除的 地方之後繼續增加。比如你有10001條記錄，刪掉最後10000條，然後添第2條記錄 ，記錄編號就會是10002.解決這個問題的辦法，就是造個一模一樣的新表，把原 始記錄拷過去，把老表刪了，把新表名改成老表名。下面這個例子的效果就把老 表刪的只剩一條記錄，而且自動編號的記憶也被清除了：

view plaincopy to clipboardprint？

'把表拷到臨時表，就刪掉了自動編號的記憶

strSql = "SELECT tblTestTree2.* INTO [tblTmp] FROM [老表] WHERE 

[lngNodeId]=1"

　　　 CurrentDb.Execute strSql

'刪掉原來的表

CurrentDb.Execute "DROP TABLE 老表"

'生成一個原來的表同名的表，把數據從臨時表拷回去

strSql = "SELECT * INTO [老表] FROM [tblTmp]；"

　　　 

CurrentDb.Execute strSql

　　　 CurrentDb.Execute "DROP TABLE 

[tblTmp] "