会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > Access技巧 > DAO/ADO/ADP > 正文

怎样判断一个表是否存在于数据库中? (DAO方法)

时间:2009-08-20 08:34 来源:www.office-faq.cn 作者:Dev Ashi… 阅读:

一个简单的方法就是通过穷举数据库中的 TableDefs 集合。例如,通过下面的函数,将返回数据库中指定的表是否存在,如果存在,则返回真值 True,否则,返回假值 False。

正    文:

    一个简单的方法就是通过穷举数据库中的 TableDefs 集合。例如,通过下面的函数,将返回数据库中指定的表是否存在,如果存在,则返回真值 True,否则,返回假值 False。


'******************** Code Start ************************


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
            ' 表存在
            fExistTable = True
            Exit For
        End If
    Next i
    Set db = Nothing
End Function

'******************** Code End ************************


注:在ACCESS 2000和access XP中需要引用 DAO


信息来源:http://www.office-faq.cn/office/5/office153.htm

(责任编辑:admin)

顶一下
(0)
0%
踩一下
(0)
0%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: