db/clsUserDbAccess.vb

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

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

''' <summary>
''' clsUser类的数据库读取类
''' 对应表S_User
''' Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\自写系统\rjcwxt\Rjcwxt\data\sys.mdb;Persist Security Info=True
''' </summary>
Public Class ClsUserDbAccess
    Inherits ClsBaseDbAccess

    'Private mConnectionString As String '数据库连接字符串
    'Private mUserTableName As String 'S_User在库中的表名 S_User

    'Public Sub New(ByVal connString As String)
    '    mConnectionString = connString
    'End Sub

    'Public Sub New(ByVal connString As String, ByVal tableName As String)
    '    mConnectionString = connString
    '    mUserTableName = tableName

    'End Sub

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

    'Public Property UserTableName As String
    '    Get
    '        Return mUserTableName
    '    End Get
    '    Set(value As String)
    '        mUserTableName = value
    '    End Set
    'End Property

    Public Sub New(ByVal s As String)
        MyBase.New(s, TABLE_NAME_USER)
    End Sub

    Public Sub New(ByVal s As String, ByVal n As String)
        MyBase.New(s, n)
    End Sub

    ''' <summary>
    ''' 指定名称的用户
    ''' </summary>
    ''' <param name="name">登录名称</param>
    ''' <returns>集合列表</returns>
    Public Function GetUserByName(ByVal name As String) As List(Of ClsUser)
        Try

            Dim tmpSql As String
            Dim tmpDbAccess = GetConnection() 'New ClsDbAccessMdb(mConnectionString)
            Dim tmpParas(0) As OleDb.OleDbParameter
            Dim tmpList As List(Of ClsUser)
            '打开数据库