Version 1.0 Class
Begin
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
End
Attribute VB_Name = "ClsDatabaseSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Public Function In_DB(ByVal Table As String) As Boolean
    '連接數據庫
    MyDB.openDB
    
    '設置查詢語句
    SqlStmt = "SELECT * FROM " + Trim(Table) + ""
    
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsTable As ADODB.Recordset
    In_DB = MyDB.exeSql(SqlStmt, rsTable, False)
    
    '斷開與數據庫的連接
    MyDB.closeDB
    
End Function


Public Sub Delete(ByVal Table As String)
    '連接數據庫
    MyDB.openDB
    
    '設置Delete語句
    SqlStmt = "Delete FROM " + Trim(Table) + ""
    
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsTable As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsTable, True)
    
    '斷開與數據庫的連接
    MyDB.closeDB
End Sub