mdlisexisttable.bas

一个用VB写的财务软件源码

Attribute VB_Name = "mdlIsExistTable"
Option Explicit

Public Function IsExistTable(ByVal sName As String) As Boolean
Dim rSt As New Recordset
Dim sSql As String
Select Case g_FLAT
Case "ORACLE"
    sSql = "select TABLE_NAME from sys.user_tables where TABLE_NAME='" + UCase(sName) + "'"
Case "SQL"
    sSql = "select TABLE_NAME from INFORMATION_SCHEMA.TABLES where TABLE_TYPE='BASE TABLE' and TABLE_NAME='" + UCase(sName) + "'"
End Select
rSt.Open sSql, glo.cnnMain, adOpenKeyset, adLockOptimistic
IsExistTable = Not rSt.EOF
rSt.Close
End Function