您现在的位置:主页 > 技术中心 > 数据库技术

如何用SQL语句来判断已知表是否存在

来源:网络整理 责任编辑:admin 发表时间:2013-07-01 08:13 点击:

如何判断库中已知表是否存在今日受人之托,帮他解决这个问题,代码为通常的引用Dao做的一模块:

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 

Private Sub 命令0_Click()
fExistTable
End Sub

用该事件出现‘参数不可选’的错误。仔细研究,发现fExistTable缺少参数,即已知表名没有在代码中反应。

修改为:

Private Sub 命令0_Click()
fExistTable(”需判断的已知表名”)
End Sub

End Sub不再报错。仔细分析,其实是用 ”已知表名” 通过Dao判断数据库中是否存在,如果fExistTable的值为True就是存在,否则就是不存在。

解决问题之余,想起Access数据库也有系统表,存放有对象名,可否做一查询来判定?

经验证:

SELECT Count(*) AS Qty
FROM MSysObjects
WHERE (((MSysObjects.Name) Like "需判断的已知表名"));

可以实现需求。如果Qty>0,就表示表已存在,否则就不存在。

    发表评论
    请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
    评价:
    表情:
    用户名: 验证码:点击我更换图片

    推荐热点

    • SQL注入攻击及其防范检测技术研究
    • Sql-Server应用程序的高级Sql注入
    • 学生信息管理系统数据库原理课程设计报告
    • 经验总结:登录和优化IBM DB2的执行速度
    • MySQL服务器的启动与停止
    • 浅谈数据库的接口技术
    • 学习数据库知识之 SQL 操作标记
    • 如何在SQL Server和MySql中创建临时表
    • 有关Sybase系统的数据同步与复制问题
    ?? - ?? - ÝřŝžľŘÝź - TAGąęÇŠ - RSSśŠÔÄ - ??
    Copyright © 2004-2024 上海卓卓网络科技有限公司