d_typeguestinfo.vb

本人收集到的流水帐软件!小巧实用,希望对大家有说帮助.

Public Class D_TypeGuestInfo
    Private Conn As MdbConnObj
    Public Sub New()
        Conn = New MdbConnObj
    End Sub

#Region "过程函数说明： 添加一条类别"
    Public Function AddTypeName(ByVal S As S_TypeGuestInfo, ByRef StrError As String) As Boolean
        Try
            '检查数据连接对象是否成功
            If Not Conn.Connect Then
                StrError = Conn.LastError
                Return False
            End If

            '创建命令对象
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand   '为命令对象设置Sql字符串
            With OleDbComm
                .CommandText = "INSERT INTO TypeGuest (Type_AdminName,Type_Name) VALUES (?,?)"
                .Connection = Conn.ConnObj
                .Parameters.Add(New System.Data.OleDb.OleDbParameter("Type_AdminName", CType(130, System.Data.OleDb.OleDbType), 50, "Type_AdminName")).Value = S.Type_AdminName '添加参数并为参数设置值：Type_AdminName
                .Parameters.Add(New System.Data.OleDb.OleDbParameter("Type_Name", CType(130, System.Data.OleDb.OleDbType), 50, "Type_Name")).Value = S.Type_Name '添加参数并为参数设置值：Type_Name
                .ExecuteNonQuery()
            End With
            AddTypeName = True
        Catch ex As Exception
            StrError = ex.Message
            AddTypeName = False '如果遇到错误，就返回Nothing
        Finally
            Conn.ConnObj.Close() '管理数据连接
        End Try
    End Function
#End Region

#Region "过程函数说明： 选择所有类别 "
    Public Function ListType(ByVal S As S_TypeGuestInfo, ByRef StrError As String) As System.Data.DataSet
        '利用Select命令返回包含结果的DateSet
        Try
            If Not Conn.Connect Then '检查数据连接对象是否成功
                StrError = Conn.LastError '这个消息保存了数据库连接的错误消息
                Return Nothing '如果数据库连接不正常的话，就返回Nothing
            End If
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand '创建命令对象
            Dim OleDbAdap As New System.Data.OleDb.OleDbDataAdapter
            Dim OleDataSet As New System.Data.DataSet 'Dataset
            OleDbAdap.SelectCommand = OleDbComm '关联OleDbCommand 和 OleDbDataAdapter
            OleDbComm.CommandText = "Select * from TypeGuest  Where Type_AdminName =? "
            OleDbComm.Connection = Conn.ConnObj
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("Type_AdminName", CType(130, System.Data.OleDb.OleDbType), 50, "Type_AdminName")).Value = S.Type_AdminName
            OleDbAdap.Fill(OleDataSet)
            ListType = OleDataSet
        Catch ex As Exception
            StrError = ex.Message '保存的错误消息
            ListType = Nothing
        Finally
            Conn.ConnObj.Close()
        End Try
    End Function
#End Region


#Region "过程函数说明： 删除一条类别"
    Public Function DelTypeName(ByVal S As S_TypeGuestInfo, ByRef StrError As String) As Boolean
        Try
            '检查数据连接对象是否成功
            If Not Conn.Connect Then
                StrError = Conn.LastError
                Return False
            End If
            '创建命令对象
            Dim OleDbComm As New System.Data.OleDb.OleDbCommand
            '为命令对象设置Sql字符串
            OleDbComm.CommandText = "Delete From TypeGuest  Where Type_AdminName =? And Type_Name = ? "
            OleDbComm.Connection = Conn.ConnObj
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("Type_AdminName", CType(130, System.Data.OleDb.OleDbType), 50, "Type_AdminName")).Value = S.Type_AdminName
            OleDbComm.Parameters.Add(New System.Data.OleDb.OleDbParameter("Type_Name", CType(130, System.Data.OleDb.OleDbType), 50, "Type_Name")).Value = S.Type_Name
            OleDbComm.ExecuteNonQuery()
            DelTypeName = True
        Catch ex As Exception
            StrError = ex.Message
            DelTypeName = False '如果遇到错误，就返回Nothing
        Finally
            Conn.ConnObj.Close() '管理数据连接
        End Try
    End Function
#End Region

End Class