<< Click to Display Table of Contents >> 判断表是否存在(gf_ExistTable函数) |
函数说明
该函数可以判断一个表是否存在。
函数原型
|
Public Function gf_ExistTable(strTableName As String) As Integer |
语法
gf_ExistTable(strTableName)
参考:gf_ExistTable("tblTest") ‘判断tblTest表是否存在
参数
参数名 |
必需/可选 |
数据类型 |
参数说明 |
---|---|---|---|
strTableName |
必需 |
String |
要检查的表名 |
返回值
返回一个整型(Integer)的值。如果对应的表存在,则返回-1。不存在,则返回0。
示例
|
Sub subTest() Dim intReturn As Integer '定义整型变量,保存返回的结果 intReturn = gf_ExistTable("tblTest") '判断表 tblTest 是否存在 '显示结果 If intReturn = 0 Then Msgbox "表 tblTest 不存在" Else Msgbox "表 tblTest 存在" End If End Sub |