db/ClsBaseDbAccess.vb

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

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

''' <summary>
''' 数据表操作基类
''' </summary>
Public MustInherit Class ClsBaseDbAccess
    '用户表 ： data/l_xxx.mdb库中 T_LedgerSetting表
    'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\自写系统\rjcwxt\Rjcwxt\data\l_xxx.mdb;Persist Security Info=True
    Private m_ConnectionString As String '数据库连接字符串
    Private m_AppTableName As String '在库中的表名 T_LedgerSetting

    Shared m_BaseDbAccess As ClsDbAccessMdb '保存数据库操作变量

    Public Sub New()

    End Sub
    Public Sub New(ByVal connString As String)
        '判断一下，value是否等于当下的m_connectionstring

        Dim currentConnectionString As String

        If m_BaseDbAccess IsNot Nothing Then
            '如果当下的连接串不等于给定的，则注销当下的数据库操作对象
            currentConnectionString = m_BaseDbAccess.ConnectionString
            If Not connString.Equals(currentConnectionString) Then
                m_BaseDbAccess = Nothing
            End If
        End If

        Me.ConnectionString = connString
    End Sub

    Public Sub New(ByVal connString As String, ByVal tableName As String)
        '判断一下，value是否等于当下的m_connectionstring

        Dim currentConnectionString As String

        If m_BaseDbAccess IsNot Nothing Then
            '如果当下的连接串不等于给定的，则注销当下的数据库操作对象
            currentConnectionString = m_BaseDbAccess.ConnectionString
            If Not connString.Equals(currentConnectionString) Then
                m_BaseDbAccess = Nothing
            End If
        End If

        Me.ConnectionString = connString
        Me.AppTableName = tableName

    End Sub


    Public Property ConnectionString As String
        Get
            Return m_ConnectionString
        End Get
        Set(value As String)
            m_ConnectionString = value
        End Set
    End Property

    Public Property AppTableName As String
        Get