科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道SQL语句判断已知表是否存在

SQL语句判断已知表是否存在

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

仔细研究,发现fExistTable缺少参数,即已知表名没有在代码中反应。仔细分析,其实是用 ”已知表名” 通过Dao判断数据库中是否存在,如果fExistTable的值为True就是存在,否则就是不存在。

作者:21tx 来源:21tx 2007年11月19日

关键字: 应用 技术 数据库 SQL SQL Server

  • 评论
  • 分享微博
  • 分享邮件

  问:怎样用SQL语句来判断已知表是否存在?

  答:具体解决方法如下:

  注释:以下代码为通常的引用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数据库也有系统表,存放有对象名,是否做一查询来判定呢?

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

  以下为引用的内容:

  SELECT Count(*) AS Qty

  FROM MSysObjects

  WHERE (((MSysObjects.Name) Like "需判断的已知表名"));

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章