小编Joh*_*ohn的帖子

我需要使用VBA清除Access数据库中多个表的内容.

下面是我试图使用的代码,但它会抛出"FROM子句中的语法错误".SQL语法(DELETE * FROM [table name];)在查询中起作用.

Dim tbl As TableDef
Dim sqlstr As String
DoCmd.SetWarnings False

For Each tbl In CurrentDb.TableDefs
    If tbl.Name Like "*_drop" Then
        sqlstr = "DELETE * FROM " & tbl.Name
        DoCmd.RunSQL sqlstr
    End If
Next tbl

我在这里找到了类似的问题和答案,但它没有解决我的问题.

我也尝试过没有sqlstr并收到同样的错误.

For Each tbl In CurrentDb.TableDefs
    If tbl.Name Like "*_drop" Then
        DoCmd.RunSQL "DELETE * FROM " & tbl.Name
    End If
Next tbl