如何判断数据中是否存在某一表或查询

页面导航:首页 > 软件编程 > vb.net > 如何判断数据中是否存在某一表或查询

如何判断数据中是否存在某一表或查询

来源: 作者: 时间:2016-02-05 12:32 【

在设计数据库程序时,经常会需要先判断一个表或一个查询是否在数据库中,以避免错误的发生。要做到这一点非常简单,我们只需要捕捉VB返回的错误号就行了。首先打开一个新的工

 

 

在设计程序时,经常会需要先判断一个表或一个查询是否在数据库中,以避免错误的发生。要做到这一点非常简单,我们只需要捕捉VB返回的错误号就行了。

 

首先打开一个新的工程,添加对DAO引用。然后添加一个标准模块到工程中,在模块的声明段写入下面的语句:

 

Public Const NameNotInCollection = 3265

 

将下面这个判断表或查询是否存在的子程序添加到窗体的声明段中:

 

Option Explicit

Dim DB As Database

 

Private Function ExistsTableQuery(TName As String) As Boolean

    Dim Test As String

    On Error Resume Next

 

         数据库表集合中是否存在要查询的表的名称

         Test = DB.TableDefs(TName).Name

         If Err <> NameNotInCollection Then

            ExistsTableQuery = True

            重置error变量

            Err = 0

            数据库查询集合中是否存在要查询的查询的名称

            Test = DB.QueryDefs(TName$).Name

            If Err <> NameNotInCollection Then

               ExistsTableQuery = True

            End If

         End If

      End Function

最后在窗体的Load事件中加入下述代码:

 

Private Sub Form_Load()

Set DB = DBEngine.Workspaces(0).OpenDatabase("Biblio.mdb")

      Debug.Print "BadTable "; IIf(ExistsTableQuery("BadTableName"), _

         "确实", "不"); " 存在."

      Debug.Print "Authors "; IIf(ExistsTableQuery("Authors"), _

         "确实", "不"); " 存在."

      End Sub

 

F5运行程序,在立即窗口中就会显示出程序运行的结果。

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <