db/clsDbAccessMdb.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Public Class ClsDbAccessMdb
    '*******************************
    '* 数据库存取类 - mdb数据库
    '* 提供最基本的增 删 改查
    '*******************************
    '数据库连接对象
    Private mConnection As System.Data.OleDb.OleDbConnection  'SqlClient.SqlConnection
    '数据库连接字符串
    Private mConnectionString As String
    '当前连接是否正在事务中
    Private mInTransaction As Boolean
    '保存开启的事务
    Private mCurrentTransaction As System.Data.OleDb.OleDbTransaction

    Public Sub New()
        ' 如果存在
    End Sub

    ''' <summary>
    ''' 类构造函数
    ''' </summary>
    ''' <param name="mConnString">数据库连接字符串</param>
    Public Sub New(ByVal mConnString As String)
        If String.IsNullOrEmpty(mConnString) Then
            Exit Sub
        End If

        '将值直接赋值给mConnectionString
        mConnectionString = mConnString

        '判断当前的mConnection是否存在,如果不存在，则创建
        If mConnection Is Nothing Then
            Try
                '创建sqlConnection对象
                mConnection = New System.Data.OleDb.OleDbConnection(mConnectionString) 'New SqlClient.SqlConnection(mConnectionString)
            Catch ex As System.Data.OleDb.OleDbException  'SqlClient.SqlException  'Exception
                modError.mErrorNumber = ex.ErrorCode 'ex.Number
                modError.mErrorMessage = ex.Message
                modError.mErrorCreater = "clsDbAccessMdb-New"
            End Try

        End If
    End Sub

    ''' <summary>
    ''' 属性：数据库连接字符串
    ''' </summary>
    ''' <returns>连接字符串</returns>
    Public Property ConnectionString As String
        Get
            Return mConnectionString
        End Get
        Set(value As String)
            If Not String.IsNullOrEmpty(value) Then
                mConnectionString = value
            End If
        End Set
    End Property

    Public Property InTransction As Boolean