sql - 如何等待执行控制从删除表中返回？

Question

我有以下代码:

CurrentDb.Execute "DROP TABLE [" & DatabaseName & "].[" & TableName & "];"

将从 MS Access 数据库中删除一个表。通常这是使用共享网络上的数据库来完成的。

如何确保 DROP 方法在允许控件移动到代码中的下一行之前完成？

这是在 VBA MS Access 2003 中完成的；但如果版本影响答案，我会很感兴趣。

Answer 1

这是我对 Loop 方法的看法:

Public Function DeleteTable(DatabaseName as String, TableName as String) as Boolean
     DeleteTable = False

        CurrentDb.Execute "DROP TABLE [" & DatabaseName & "].[" & TableName & "];"
        Do
        Loop Until TableExists(TableName, DatabaseName) = False     

     DeleteTable = True
End Function

Public Function TableExists(TableName As String, DatabaseName As String) As Boolean   

        If 0 = CurrentDb.OpenRecordset("SELECT COUNT(*) As Count FROM [" &   DatabaseName & "].[MSysObjects] WHERE [Name] = '" & TableName & "';").Fields("Count").Value Then
             TableExists = False
        Else
             TableExists = True
        End If
End Function