db/clsAppDbAccess.vb

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

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

Imports System.Data.OleDb
''' <summary>
''' 表S_App数据访问类
''' </summary>
Public Class ClsAppDbAccess
    Inherits ClsBaseDbAccess

    'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\自写系统\rjcwxt\Rjcwxt\data\sys.mdb;Persist Security Info=True

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

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

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


    ''' <summary>
    ''' 返回S_App的程序信息
    ''' </summary>
    ''' <returns>类clsApp对象</returns>
    Public Function GetAppInfo() As ClsApp

        Try

            Dim tmpClsApp As ClsApp
            Dim tmpSql As String
            Dim tmpDbAccess = GetConnection()

            '打开数据库
            tmpDbAccess.DbOpen()
            '构造查询语句
            tmpSql = "select * from [" & TABLE_NAME_APP & "] "
            '将一行数据转为类对象
            tmpClsApp = CType(ConvertRecordToClass(tmpDbAccess.ExecuteSqlReturnDataSet(tmpSql)), ClsApp)
            '关闭数据库
            tmpDbAccess.DbClose()

            Return tmpClsApp

        Catch ex As OleDb.OleDbException

            mErrorNumber = ex.ErrorCode
            mErrorMessage = ex.Message
            mErrorCreater = "clsAppDbAccess - GetAppInfo"

            Return Nothing
        End Try

    End Function

    ''' <summary>
    ''' 更新App程序信息内容,
    ''' </summary>
    ''' <param name="tmpClsApp">clsApp类对象</param>
    ''' <returns>非0值成功</returns>