dao_datasource.vb

通版开发平台

Imports System.Data.SqlClient

Public Class DAO_DataSource


    Public Shared Function findAll() As Dictionary(Of Integer, S_DataSource)
        Dim dataSourceDic As New Dictionary(Of Integer, S_DataSource)
        Using conn As New SqlConnection(DbOperate.csb.ToString)
            conn.Open()
            Using cmd As New SqlCommand("Select * From S_DataSource", conn)
                Using rdr As SqlDataReader = cmd.ExecuteReader
                    While rdr.Read
                        Dim S_DataSource As New S_DataSource
                        With S_DataSource
                            If Not rdr.IsDBNull(0) Then
                                .DataSourceID = rdr.GetInt32(0)
                            End If
                            If Not rdr.IsDBNull(1) Then
                                .FormID = rdr.GetInt32(1)
                            End If
                            If Not rdr.IsDBNull(2) Then
                                .FcTabName = rdr.GetString(2)
                            End If
                            If Not rdr.IsDBNull(3) Then
                                .KeyField = rdr.GetString(3)
                            End If
                            If Not rdr.IsDBNull(4) Then
                                .SelectedSql = System.Text.Encoding.UTF8.GetString(rdr.GetSqlBinary(4))
                            End If
                            If Not rdr.IsDBNull(5) Then
                                .FromSql = System.Text.Encoding.UTF8.GetString(rdr.GetSqlBinary(5))
                            End If
                            If Not rdr.IsDBNull(6) Then
                                .WhereSql = rdr.GetString(6)
                            End If
                            If Not rdr.IsDBNull(7) Then
                                .OrderBySql = rdr.GetString(7)
                            End If
                            If Not rdr.IsDBNull(8) Then
                                .GroupBySql = rdr.GetString(8)
                            End If
                            If Not rdr.IsDBNull(9) Then
                                .HavingSql = rdr.GetString(9)
                            End If
                            If Not rdr.IsDBNull(10) Then
                                .TopSelectedRecords = rdr.GetInt32(10)
                            End If
                            If Not rdr.IsDBNull(11) Then
                                .InitWhereSql = rdr.GetString(11)
                            End If
                            If Not rdr.IsDBNull(12) Then
                                .FbLoad = rdr.GetBoolean(12)
                            End If
                        End With
                        dataSourceDic.Add(S_DataSource.DataSourceID, S_DataSource)
                    End While
                End Using
            End Using
        End Using
        Return dataSourceDic
    End Function
End Class