VBA数据库解决方案第十二讲：如何判断数据库中数据表是否存在

《VBA数据库解决方案》教程（版权10090845）是我推出的第二套教程，目前已经是第二版修订了。这套教程定位于中级，是学完字典后的另一个专题讲解。数据库是数据处理的利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，教程第一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是：VBA数据库解决方案第十二讲：如何判断数据库中某个数据表是否存在

【分享成果，随喜正能量】 心静者高，高者俯瞰世界 心和者仁，仁者包容万物 心慈者深，深者淡对冷暖 心慧者安，安者笑对人生 。

第十二讲 如何判断数据库中某个数据表是否存在

大家好，今天给继续讲解VBA数据库解决方案，今天讲第12讲：如何判断数据库中的表是否存在。

1 应用场景的具体分析

为什么要讲这讲的内容呢？如我在上一讲讲的内容中有这段代码：
Set catADO = CreateObject("ADOX.Catalog")

strPath = ThisWorkbook.Path & "\mydata2.accdb" '此处是一个完整的路径

strTable = "员工记录" '表名称

If Dir(strPath) <> "" Then Kill strPath '如果有一个名称相同的表，那么删除

catADO.Create "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath '创建数据库并连接。

当我要创建一个数据库的时候，要首先判断一下这个数据库是否是存在，如果没有存在才能创建，如果已经存在，那么先要删除这个数据库才能创建，不然会出错的。对于关系表也是如此，如果我们要新建一个表，那么判断这个表是否存在是必须的。如何做到呢？

2 判断数据表是否存在的代码及代码解读

我们看下面的代码：

Sub myna_12() '判断数据表是否存在

Dim cnADO As Object

Dim strPath As String

Set cnADO = CreateObject("ADODB.Connection")

strPath = ThisWorkbook.Path & "\mydata2.accdb"

cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath

If cnADO.OpenSchema(20, Array(Empty, Empty, "员工记录", Empty)).EOF Then

MsgBox "[员工记录] 表" & "不存在"

Else

MsgBox "[员工记录] 表" & "已存在"

End If

End Sub

代码截图：

代码解读：

1） Set cnADO = CreateObject("ADODB.Connection")

strPath = ThisWorkbook.Path & "\mydata2.accdb"

cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath

上面的语句是建立ADO对象，及打开连接，就不再过多的讲解了

2） If cnADO.OpenSchema(20, Array(Empty, Empty, "员工记录", Empty)).EOF Then

上面的语句中用到了cnADO.OpenSchema（）方法:

OpenSchema方法是从提供者获取数据库模式信息，返回包含模式信息的 Recordset 对象。

语法：

OpenSchema (QueryType, Criteria, SchemaID)

参数：

• QueryType 所要运行的模式查询类型，可以选择的常量，由于值较多，我们只是给出文中所用到的值 adSchemaTables = 20 表示请求有关表的信息
• Criteria 可选。每个QueryType 选项的查询限制条件数组，比如 QueryType是adSchemaTables，Criteria可用的就是TABLE_CATALOG（表的目录），TABLE_SCHEMA（表的模型），TABLE_NAME（表的名字），TABLE_TYPE(表的类型)，由于在我们的代码中我们要求的是表明是“员工记录”，所以我们给出的数组是：Array(Empty, Empty, "员工记录", Empty))　　
• 第三个参数SchemaID极少用到。如果 QueryType 设置为 adSchemaProviderSpecific = -1请求提供者特定的信息，则需要该参数，否则不使用它.

EOF它是end of file（End of File就是文件的结束,也即EOF,通常用来判断文件的操作是否结束的标志 ）的缩写，表示"文字流"（stream）的结尾。

这样，代码If cnADO.OpenSchema(20, Array(Empty, Empty, "员工记录", Empty)).EOF then 代表的意思：如果到了文件的操作结束，意思是说也没有找到表名称为“员工记录”的表，那么就是没有找到。

好了，我们运行一下上面的代码：

今日内容回向：

1. 如何判断一个数据表是否存在？

2 对OpenSchema的语法，是否了解呢？

本讲内容参考程序文件：VBA与数据库操作（第一册）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：