dao_sqlcommand.vb

通版开发平台

Imports System.Data.SqlClient

Public Class DAO_S_SqlCommand


    Public Shared Function findAll() As Dictionary(Of Integer, S_SqlCommand)
        Dim sqlCommandDic As New Dictionary(Of Integer, S_SqlCommand)
        Using conn As New SqlConnection(DbOperate.csb.ToString)
            conn.Open()
            Using cmd As New SqlCommand("Select * From S_SqlCommand", conn)
                Using rdr As SqlDataReader = cmd.ExecuteReader
                    While rdr.Read
                        Dim s As New S_SqlCommand
                        With s
                            If Not rdr.IsDBNull(0) Then
                                .SqlCommandID = rdr.GetInt32(0)
                            End If
                            If Not rdr.IsDBNull(1) Then
                                .CommandTypeID = rdr.GetInt32(1)
                            End If
                            If Not rdr.IsDBNull(2) Then
                                .CommandText = System.Text.Encoding.UTF8.GetString(rdr.GetSqlBinary(2))
                            End If
                            If Not rdr.IsDBNull(3) Then
                                .CommandName = rdr.GetString(3)
                            End If
                            If Not rdr.IsDBNull(4) Then
                                .FcUpdatesTable = rdr.GetString(4)
                            End If
                            If Not rdr.IsDBNull(5) Then
                                .FcUpdateField = rdr.GetString(5)
                            End If

                        End With
                        sqlCommandDic.Add(s.SqlCommandID, s)
                    End While
                End Using
            End Using
        End Using
        Return sqlCommandDic
    End Function
End Class