搜索
写经验 领红包
 > 家居

vba判断数据类型(vba判断是否为数字的方法小集)

导语:VBA数据库解决方案第12讲:如何判断数据库中某个数据表是否存在

大家好,今天给继续讲解VBA与数据库解决方案,今天讲第12讲:如何判断数据库中的表是否存在。为什么要讲这讲的内容呢?如我在上一讲讲的内容中有这段代码: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 '创建数据库并连接。

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

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

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

代码截图:

代码讲解:

①Set cnADO = CreateObject("ADODB.Connection")

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

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

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

②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也就是20的话,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的语法,是否了解呢?

本文内容由小萱整理编辑!