db/ClsTVoucherDetailDbAccess.vb

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

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

Public Class ClsTVoucherDetailDbAccess
    Inherits ClsBaseDbAccess

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

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

    ''' <summary>
    ''' 根据指定科目编码修改分录中科目信息
    ''' </summary>
    ''' <param name="tmpCls"></param>
    ''' <param name="oldAcctCode"></param>
    ''' <returns></returns>
    Public Function UpdateAcctInEntry(ByVal tmpCls As ClsTAccount, ByVal oldAcctCode As String) As Integer
        Try

            Dim tmpSql As String
            Dim tmpDbAccess = GetConnection()

            Dim tmpParas(2) As OleDb.OleDbParameter
            Dim tmpReturn As Integer

            '打开数据库
            tmpDbAccess.DbOpen()

            '构造查询语句
            tmpSql = "update [" & Me.AppTableName & "] "
            tmpSql &= " set [AccountCode]=@AccountCode, [AccountCodeName]=@AccountCodeName "
            tmpSql &= " where [AccountCode]=@OldCode "

            '构造参数集合
            tmpParas(0) = New OleDb.OleDbParameter("@AccountCode", OleDb.OleDbType.VarWChar)
            tmpParas(1) = New OleDb.OleDbParameter("@AccountCodeName", OleDb.OleDbType.VarWChar)
            tmpParas(2) = New OleDb.OleDbParameter("@OldCode", OleDb.OleDbType.VarWChar)
            '为查询参数赋值
            tmpParas(0).Value = tmpCls.AccountCode
            tmpParas(1).Value = tmpCls.FullName
            tmpParas(2).Value = oldAcctCode

            '执行更新查询(插入、修改、删除)
            tmpReturn = tmpDbAccess.UpdateRecord(tmpSql, tmpParas)

            '关闭数据库
            tmpDbAccess.DbClose()

            Return tmpReturn

        Catch ex As OleDb.OleDbException

            mErrorNumber = ex.ErrorCode
            mErrorMessage = ex.Message
            mErrorCreater = "ClsTVoucherDetailDbAccess - InsertEntry"

            Return 0
        End Try
    End Function