dao_treenode.vb

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

Imports System.Data.SqlClient

Public Class DAO_TreeNode


    Public Shared Function findAll() As Dictionary(Of Integer, S_TreeNode)
        Dim TreeNodeDic As New Dictionary(Of Integer, S_TreeNode)
        Using conn As New SqlConnection(DbOperate.csb.ToString)
            conn.Open()
            Using cmd As New SqlCommand("Select * From S_TreeNode", conn)
                Using rdr As SqlDataReader = cmd.ExecuteReader
                    While rdr.Read
                        Dim S_TreeNode As New S_TreeNode
                        With S_TreeNode
                            If rdr.IsDBNull(0) Then
                                .ID = rdr.GetInt32(0)
                            End If
                            If rdr.IsDBNull(1) Then
                                .ComponentID = rdr.GetInt32(1)
                            End If
                            If rdr.IsDBNull(2) Then
                                .FieldName = rdr.GetString(2)
                            End If
                        End With
                        TreeNodeDic.Add(S_TreeNode.ID, S_TreeNode)
                    End While
                End Using
            End Using
        End Using
        Return TreeNodeDic
    End Function
End Class