db/clsUserLedgerDbAccess.vb

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

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

''' <summary>
''' 用户管理的账套数据操作类clsUserLedgerDbAccess
''' 对应表S_UserLedger
''' Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\自写系统\rjcwxt\Rjcwxt\data\sys.mdb;Persist Security Info=True
''' </summary>
Public Class ClsUserLedgerDbAccess
    Private mConnectionString As String '数据库连接字符串
    Private mUserLedgerTableName As String 'S_User在库中的表名 S_UserLedger

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

    Public Sub New(ByVal connString As String, ByVal tableName As String)
        mConnectionString = connString
        mUserLedgerTableName = 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 UserLedgerTableName As String
        Get
            Return mUserLedgerTableName
        End Get
        Set(value As String)
            mUserLedgerTableName = value
        End Set
    End Property

    ''' <summary>
    ''' 删除指定账套相关的用户记录：ClsUserLedger
    ''' </summary>
    ''' <param name="lId">账套编号</param>
    ''' <returns>非0成功，0值失败</returns>
    Public Function DeleteByLedgerId(ByVal lId As Integer) As Int32

        Try
            Dim tmpSql As String
            Dim tmpDbA As ClsDbAccessMdb = New ClsDbAccessMdb(mConnectionString)
            Dim tmpParas(0) As OleDb.OleDbParameter
            Dim tmpRet As Int32

            '打开数据库
            tmpDbA.DbOpen()

            tmpSql = "Delete From [" & TABLE_NAME_USERLEDGER & "] "
            tmpSql &= " where [LedgerId]=@LedgerId "


            tmpParas(0) = New OleDb.OleDbParameter("@LedgerId", OleDb.OleDbType.Integer)

            tmpParas(0).Value = lId