clsdb.cls

一个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 = "clsdb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private Const CONN_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Public DB_PATH  As String
   
Public dbConn As New ADODB.Connection
Public dbStatus As Boolean

Public Function opendb() As Boolean

    Dim connstring As String
    
    connstring = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ERP"
    dbConn.Open connstring
    
    If Err.Number <> 0 Then
        opendb = False
    Else
        opendb = True
        Exit Function
    End If
   
End Function
    
Public Function closedb() As Integer
    dbConn.Close
    dbStatus = False
End Function

Public Function exesql(sqlstr As String, queryResult As ADODB.Recordset, Optional enableWrite As Boolean = True) As Boolean
    On Error GoTo errhandler:
    Dim ret
    
    Set queryResult = New ADODB.Recordset
    If enableWrite Then
        queryResult.Open sqlstr, dbConn, adOpenStatic, adLockOptimistic
    Else
        queryResult.Open sqlstr, dbConn, adOpenStatic, adLockReadOnly
    End If
    
    exesql = True
    Exit Function
errhandler:
    exesql = False
    Exit Function
    
End Function