connect.cls

vb开发的合同管理系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Connect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "SavedWithCOMExpress" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Private m_IsConnected As Boolean
Private m_DefaultConnectionString As String

Private Sub Class_Initialize()
  Set Conn = Nothing
  Set Conn = New ADODB.Connection
  DefaultConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & App.Path & "\Time and Billing.mdb;Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=4;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
End Sub

Public Property Set ConnnectionObject(ByRef vData As ADODB.Connection)
  On Error GoTo Err_ConnnectionObject
  Set Conn = Nothing
  Set Conn = New ADODB.Connection
  Set Conn = vData
  Exit Property
Err_ConnnectionObject:
  ErrNum = Err.Number
  ErrMsg = Err.Description
  Call ErrHandler(ErrNum, ErrMsg, "DOConnect", "ConnnectionObject")
End Property

Public Property Get ConnnectionObject() As ADODB.Connection
  Set ConnnectionObject = Conn
End Property

Public Property Get IsConnected() As Boolean
  IsConnected = mvarIsConnected
End Property

Public Property Let DefaultConnectionString(ByVal ConnectionString As String)
  m_DefaultConnectionString = ConnectionString
End Property

Public Property Get DefaultConnectionString() As String
  DefaultConnectionString = m_DefaultConnectionString
End Property

Public Function Connect(Optional ByVal m_ConnectString As String, Optional ByVal CursorLocation As CursorLocationEnum = adUseServer) As Boolean
  On Error GoTo Err_Connect

  Conn.CursorLocation = CursorLocation
  If m_ConnectString = "" Then
    Conn.Open m_DefaultConnectionString
  Else
    Conn.Open m_ConnectString
  End If
  mvarIsConnected = True
  Connect = True
  Exit Function
Err_Connect:
  ErrNum = Err.Number
  ErrMsg = Err.Description
  Call ErrHandler(ErrNum, ErrMsg, "DOConnect", "Connect")
End Function

Public Function Disconnect() As Boolean
  On Error Resume Next
  Conn.Close
  Set Conn = Nothing
  Set Conn = New ADODB.Connection
End Function

Private Sub Class_Terminate()
  On Error Resume Next
  Conn.Close
  Set Conn = Nothing
End Sub