dao_event.vb

来自「通版开发平台」· VB 代码 · 共 31 行

Imports System.Data.SqlClient

Public Class DAO_SEvent
    Public Shared Function findAll() As Dictionary(Of Integer, SEvent)
        Dim sEventDic As New Dictionary(Of Integer, SEvent)
        Using conn As New SqlConnection(DbOperate.csb.ToString)
            conn.Open()
            Using cmd As New SqlCommand("Select * From S_Event", conn)
                Using rdr As SqlDataReader = cmd.ExecuteReader
                    While rdr.Read
                        Dim sEvent As New SEvent
                        With sEvent
                            If Not rdr.IsDBNull(0) Then
                                .EventID = rdr.GetInt32(0)
                            End If
                            If Not rdr.IsDBNull(1) Then
                                .EventTypeID = rdr.GetInt32(1)
                            End If
                            If Not rdr.IsDBNull(2) Then
                                .Remark = rdr.GetString(2)
                            End If
                        End With
                        sEventDic.Add(sEvent.EventID, sEvent)
                    End While
                End Using
            End Using
        End Using
        Return sEventDic
    End Function
End Class