判断数据库中是否存在某个表

 

'----------------------------------------------------------
'Author: xmxoxo
'Update: 2006-11-28
'Version: 1.0.0
'----------------------------------------------------------
'参数：
'    Conn            已打开的数据库连接
'    strTableName    要查询的表名称
'返回
'    Boolean，True表示存在该表，False不存在.
'----------------------------------------------------------
'判断ACCESS数据库中是否存在某个表,VB语法
Function  ExistTable(Conn As ADODB.Connection , Byval strTableName As String)
    Dim blnRet As Boolean
    Dim rstSchema As ADODB.Recordset
    Const adSchemaTables = 20

    blnRet = False
    Set rstSchema = Conn.OpenSchema(adSchemaTables, Array(Empty, Empty, strTableName, "TABLE"))
    If Not rstSchema.EOF Then 
        blnRet = True
    End If
    rstSchema.Close
    Set rstSchema = Nothing

    ExistTable = blnRet
End Function
'----------------------------------------------------------
'判断ACCESS数据库中是否存在某个表,VBScript语法,用于ASP
Function  ExistTable(Conn , Byval strTableName )
    Dim blnRet
    Dim rstSchema
    Const adSchemaTables = 20

    blnRet = False
    Set rstSchema = Conn.OpenSchema(adSchemaTables, Array(Empty, Empty, strTableName, "TABLE"))
    If Not rstSchema.EOF Then 
        blnRet = True
    End If
    rstSchema.Close
    Set rstSchema = Nothing
    ExistTable = blnRet
End Function

 

说明: 可以把"TABLE"改成"VIEW",来查询是否存在某个视图