clsdatabaseset.cls

这是一个利用VB编写的中小企业ERP。功能比较全

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