db/clsIndustryAccountDbAccess.vb

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

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

Imports System.Data.OleDb
''' <summary>
''' 行业科目
''' 对应表-S_IndustryAccount
''' </summary>
Public Class ClsIndustryAccountDbAccess
    Inherits ClsBaseDbAccess

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

    ''' <summary>
    ''' 返回指定行业编号 和 科目编号 的科目对象
    ''' </summary>
    ''' <param name="industryId"></param>
    ''' <param name="acct"></param>
    ''' <returns></returns>
    Public Function GetAcctByIdCode(ByVal industryId As Integer, ByVal acct As String) As ClsIndustryAccount
        Dim tmpCls As ClsIndustryAccount = Nothing

        Try

            Dim tmpSql As String
            Dim tmpDbAccess = GetConnection()
            Dim tmpList As List(Of ClsIndustryAccount)
            Dim tmpParas(1) As OleDb.OleDbParameter

            '打开数据库
            tmpDbAccess.DbOpen()

            '构造查询语句
            tmpSql = "select * from [" & TABLE_NAME_INDUSTRY_ACCOUNT & "] "
            tmpSql &= "where [IndustryId]=@IndustryId "
            tmpSql &= " and  [AcctCode]=@AcctCode "

            tmpParas(0) = New OleDbParameter("", OleDb.OleDbType.Integer)
            tmpParas(1) = New OleDbParameter("", OleDb.OleDbType.VarWChar)
            tmpParas(0).Value = industryId
            tmpParas(1).Value = acct

            '查询并将返回数据解析为List对象
            tmpList = TryCast(ConvertRecordToClass(tmpDbAccess.ExecuteSqlReturnDataSet(tmpSql, tmpParas)), List(Of ClsIndustryAccount))

            If tmpList.Count > 0 Then
                tmpCls = tmpList.Item(0)
            End If

            '关闭数据库
            tmpDbAccess.DbClose()


        Catch ex As OleDb.OleDbException

            mErrorNumber = ex.ErrorCode
            mErrorMessage = ex.Message
            mErrorCreater = "ClsIndustryAccountDbAccess - GetAllAcctByIndustryId"