安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access判断数据表是否存在

2017-11-16 16:05:00
cg1
转贴
3087

表是数据库最重要的东西,有时候因为程序的需要,会把表隐藏(Access?#27807;?#38544;藏表显示表。直观上也许我们不能马上发现。

那?#27425;?#20204;如何判定一个表是否存在于某个数据库?这里我们介绍两个方法


方法一:

'通过写循环读取所有表的名字来判定表是否存在
Function searchTable(TableName As String) As Boolean
    searchTable = False
    Dim tbl As DAO.TableDef
    For Each tbl In CurrentDb.TableDefs
        If tbl.Name = TableName Then
            searchTable = True
            Exit For
        End If
    Next
End Function

'调用,如要判断表名为“表2”的表是否存在: msgbox searchTable("表2")
'如果存在返回 True,不存在返回 False


方法二:
这?#22336;?#27861;就是使用陷阱,造成一个错误,通过系统错误来判定某个表是否存在
这是个少有人介绍,但是很实用的技巧。

Function test()
    MsgBox TableIsIn("表2")
End Function
Function TableIsIn(TableName As String)
    TableIsIn = True
    On Error Resume Next
    Dim strSQL As String
    strSQL = "select * from " & TableName
    CurrentDb.Execute strSQL
    If Err.Number = 3078 Then
        TableIsIn = False
    End If
    
End Function


    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:8.00MB
    PHP 执行时间:0.19
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    利物浦对富勒姆 ac米兰vs热那亚cntv 法国卡昂大学排名 德语诗人里尔克 上海二八杠游戏下载 汉诺威96vs门兴胜负彩 恩波利2-1弗罗西诺内 柏林赫塔vs云达不莱梅 安徽新快3走势图 热血传奇1.76客户端下载