dao_tool.vb

通版开发平台

Imports System.Data.SqlClient

Public Class DAO_Tool


    Public Shared Function findAll() As Dictionary(Of Integer, S_Tool)
        Dim toolDic As New Dictionary(Of Integer, S_Tool)
        Using conn As New SqlConnection(DbOperate.csb.ToString)
            conn.Open()
            Using cmd As New SqlCommand("Select * From S_Tool", conn)
                Using rdr As SqlDataReader = cmd.ExecuteReader
                    While rdr.Read
                        Dim S_Tool As New S_Tool
                        With S_Tool
                            If Not rdr.IsDBNull(0) Then
                                .ToolID = rdr.GetInt32(0)
                            End If
                            If Not rdr.IsDBNull(1) Then
                                .ToolCode = rdr.GetString(1)
                            End If
                            If Not rdr.IsDBNull(2) Then
                                .ToolName = rdr.GetString(2)
                            End If

                        End With
                        toolDic.Add(S_Tool.ToolID, S_Tool)
                    End While
                End Using
            End Using
        End Using
        Return toolDic
    End Function
End Class