db/RjClsMyYearDbAccess.vb

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

Public Class RjClsMyYearDbAccess
    Inherits ClsBaseDbAccess

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

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

    Public Function GetRjCompanyName() As String

        Dim tmpRetStr As String = Nothing

        Try
            Dim tmpDb As ClsDbAccessMdb = GetConnection()

            Dim tmpParas(0) As OleDb.OleDbParameter
            Dim tmpSql As String = "Select [Name] from  [" & Me.AppTableName & "] "

            '打开数据库
            tmpDb.DbOpen()

            '执行
            tmpRetStr = CType(tmpDb.ExecuteSqlReturnUniqueField(tmpSql, New OleDb.OleDbParameter() {}), String)

            '关闭数据库
            tmpDb.DbClose()

        Catch ex As OleDb.OleDbException

            mErrorCreater = "ClsTAccountDbAccess - GetRjCompanyName"
            mErrorMessage = ex.Message
            mErrorNumber = ex.ErrorCode

        End Try

        Return tmpRetStr

    End Function


    Public Overrides Function ConvertRecordToClass(reader As OleDb.OleDbDataReader) As Object
        Throw New NotImplementedException()
    End Function
End Class