clsdatabase.cls

物流管理系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsDataBase"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private DB As ADODB.Connection
Private DBConnect As String


Private Sub Class_Initialize()

    Set DB = New ADODB.Connection
End Sub

Private Sub Class_Terminate()

    Set DB = Nothing
End Sub

Public Function openDataBase(ByVal Connect As String)

    If DB.State = adStateOpen Then DB.Close
    DB.CursorLocation = adUseClient
    DB.Open Connect
    DB.CommandTimeout = 300
    DBConnect = Connect
    openDataBase = True
End Function

Public Sub ExecuteSQL(ByVal Sql As String, Optional RecordEffect As Long)

    DB.Execute Sql, RecordEffect, adCmdText
End Sub

Public Function OpenRecordSet(ByVal Sql As String, Optional ByVal _
CursorType As ADODB.CursorTypeEnum = adOpenDynamic) As ADODB.Recordset
    
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    
    rs.CursorLocation = adUseClient
    rs.Open Sql, DB, CursorType
    Set OpenRecordSet = rs
End Function

Public Property Get Connect() As String

    Connect = DBConnect
End Property

Public Property Get IsOpen() As Boolean

    IsOpen = (DB.State = adStateOpen)
End Property


Public Function closeDatebase()

    DB.Close
End Function