请教一个判断语句的问题

sjm　发表于：2013-10-03 21:45:27 　

复制

想用SQL语句判断数据库中是否存在某个指定的表，如果存在，则删除他，如果不存在则无操作。

Top

竹笛发表于：2013-10-03 23:04:49

参考文章：http://www.accessoft.com/article-show.asp?id=1440

Top

sjm 发表于：2013-10-03 23:42:17

不会用啊，能不能解释下怎么用啊！？

Top

54.℡80後2oO 发表于：2013-10-04 11:11:15

Function fExistTable(strTableName As String) As Integer
Dim db As Database
Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)
    fExistTable = False
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
        If strTableName = db.TableDefs(i).Name Then
            'Table Exists
            fExistTable = True
            Exit For
        End If
    Next i
    Set db = Nothing

End Function

====================================

把上面那段代码保存在模块里，然后写入以下类似的代码：

if fExistTable("你要判断是否存在的表名")=true then '意思就当这个表存在时

docmd.DeleteObject acTable "你要判断是否存在的表名"

end if

Top

煮江品茶发表于：2013-10-04 15:19:43

sub 删除指定表(byval tbname as string)

if dcount("*","MSysObjects","Name='" & tbname & "'")>0 then

docmd.DeleteObject acTable,tbname

end if

调用时：

call 删除指定表("学生表")

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

请教一个判断语句的问题