如何用SQL寫刪除整個表的記錄(保留原表的機(jī)構(gòu)）？

wangxy689

我這樣寫為什么不對？ DoCmd.RunSQL “delete * from 源數(shù)據(jù)表”  ，我發(fā)現(xiàn)能把新增的記錄刪除，以前的記錄卻刪除不了（也就是不能刪除真?zhèn)�表的記錄），這是為什么？應(yīng)該怎么寫才對?

roych

不可能啊。這里又沒有其它條件。。。傳上附件看看吧。

ttyu

應(yīng)該不會的

ttyu

數(shù)據(jù)源打開了嗎

wangxy689

打開了。就是新增加的數(shù)據(jù)能夠刪除，以前的數(shù)據(jù)不能刪除。

wangxy689

這是不是需要和FOXPRO 中的險select all 后再用刪除？

liaohk

Deleting all data from an Access database

Sometimes it may be necessary to delete all the data in a database
while retaining the table structure. If done manually, this job can
quickly become tedious. If your database has many tables, the
following code will clear all the data in a hurry.

Dim ctr As Container, doc As Document, db As Database
Set db = CurrentDB()
Set ctr = db.Containers!Tables
For Each doc in ctr.Documents
   If Left$(doc.Name, 4) <> "MSys" Then 注釋：Table is not a system table
        db.Execute "Delete [" & doc.Name & "].*" & _
           "From [" & doc.Name & "];"
   End If
Next doc

You might not want to delete data from linked tables. This can be easily
accommodated by checking the Connect property for each TableDef document.
The modified code reads:

Dim ctr As Container, doc As Document, db As Database
Set db = CurrentDb()
Set ctr = db.Containers!tables
For Each doc In ctr.Documents
   If Left$(doc.Name, 4) <> "MSys" And _
     db.TableDefs(doc.Name).Connect = "" Then
   注釋：Table is not a system table or a linked table
     db.Execute "Delete [" & doc.Name & "].*" & _
       "From [" & doc.Name & "];"
   End If
Next doc

You must also have cascading updates/deletes enabled for this procedure
to clear the data from all tables. As an alternative, run the code
multiple times. On the first pass through the database, the tables on
one side of the relationship are cleared, allowing the remaining tables
to be cleared on the next pass.

This tip was contributed by Dr. Michael S. Stoner, Henri Kover, and Stephen Bond