通用 DataReader 代码示例 (.net)

Question

由于我对 .Net 的体验实际上是从为公司现有的内部应用程序工作开始的，所以我觉得我在没有意识到的情况下已经学到了很多糟糕的编码实践。我拼命想要摆脱的一个问题是数据集用于一切。 （我确实知道强类型数据集在那里，它们当然有一些用途......但不适用于大多数情况，例如选择数据）

我正在为通用数据库工作构建一个“帮助器”类......我'我有一个返回数据表（用于选择等）的方法，我想默认情况下（以及书籍/在线中的大多数示例）会使用 DataAdapter 的 Fill 方法，但当然作为性能增益，希望用数据读取器替换它读取所有行然后关闭...我猜这就是 Fill 方法在底层的工作原理...但如果大型结果集的性能可能会受到影响，我不希望简单地采用惰性方式。

无论如何，我一生都找不到用于一般填充数据表的 dataReader 的示例...我确信会有好的示例和坏的示例，因此就如何执行此类操作达成一致的最佳实践一项任务。此类代码的链接（甚至帖子）会很棒！我主要使用 VB.Net，但 c# 不是障碍。

注意：抱歉，如果这听起来也很懒，我只是想这种例子会到处张贴......不需要重新发明轮子等。谢谢！

Answer 1

您找不到用于一般填充 DataTable 的 DataReader 示例的原因是因为您可以使用 Fill()< /code> 方法在 DataSet 中，所以你只是重新发明轮子。

通过直接使用 DataReader 填充 DataTable 不会获得性能优势。

Answer 2

如果我不得不猜测，我认为与使用带有 Fill() 方法的 sqldataadapter 相比，使用 sqldatareader 填充数据表不会有任何性能优势。

真正验证该理论的唯一方法是编写自己的实现并进行比较。但您也可以查看 Fill() 正在执行的代码，以了解它到底在做什么。我建议下载 Reflector 来查看代码。

我刚刚自己做了这个。以下是调用 Fill() 后最终调用的内容：

Protected Overridable Function Fill(ByVal dataTables As DataTable(), ByVal dataReader As IDataReader, ByVal startRecord As Integer, ByVal maxRecords As Integer) As Integer
    Dim num3 As Integer
    Dim ptr As IntPtr
    Bid.ScopeEnter(ptr, "<comm.DataAdapter.Fill|API> %d#, dataTables[], dataReader, startRecord, maxRecords" & ChrW(10), Me.ObjectID)
    Try 
        ADP.CheckArgumentLength(dataTables, "tables")
        If (((dataTables Is Nothing) OrElse (dataTables.Length = 0)) OrElse (dataTables(0) Is Nothing)) Then
            Throw ADP.FillRequires("dataTable")
        End If
        If (dataReader Is Nothing) Then
            Throw ADP.FillRequires("dataReader")
        End If
        If ((1 < dataTables.Length) AndAlso ((startRecord <> 0) OrElse (maxRecords <> 0))) Then
            Throw ADP.NotSupported
        End If
        Dim num2 As Integer = 0
        Dim enforceConstraints As Boolean = False
        Dim dataSet As DataSet = dataTables(0).DataSet
        Try 
            If (Not dataSet Is Nothing) Then
                enforceConstraints = dataSet.EnforceConstraints
                dataSet.EnforceConstraints = False
            End If
            Dim i As Integer
            For i = 0 To dataTables.Length - 1
                If dataReader.IsClosed Then
                    goto Label_00DE
                End If
                Dim container As DataReaderContainer = DataReaderContainer.Create(dataReader, Me.ReturnProviderSpecificTypes)
                If (container.FieldCount > 0) Then
                    If ((0 < i) AndAlso Not Me.FillNextResult(container)) Then
                        goto Label_00DE
                    End If
                    Dim num4 As Integer = Me.FillFromReader(Nothing, dataTables(i), Nothing, container, startRecord, maxRecords, Nothing, Nothing)
                    If (i = 0) Then
                        num2 = num4
                    End If
                End If
            Next i
        Catch exception1 As ConstraintException
            enforceConstraints = False
            Throw
        Finally
            If enforceConstraints Then
                dataSet.EnforceConstraints = True
            End If
        End Try
    Label_00DE:
        num3 = num2
    Finally
        Bid.ScopeLeave((ptr))
    End Try
    Return num3
End Function

您会注意到，然后调用了 FillFromReader()：

Friend Function FillFromReader(ByVal dataset As DataSet, ByVal datatable As DataTable, ByVal srcTable As String, ByVal dataReader As DataReaderContainer, ByVal startRecord As Integer, ByVal maxRecords As Integer, ByVal parentChapterColumn As DataColumn, ByVal parentChapterValue As Object) As Integer
    Dim num2 As Integer = 0
    Dim schemaCount As Integer = 0
    Do
        If (0 < dataReader.FieldCount) Then
            Dim mapping As SchemaMapping = Me.FillMapping(dataset, datatable, srcTable, dataReader, schemaCount, parentChapterColumn, parentChapterValue)
            schemaCount += 1
            If (((Not mapping Is Nothing) AndAlso (Not mapping.DataValues Is Nothing)) AndAlso (Not mapping.DataTable Is Nothing)) Then
                mapping.DataTable.BeginLoadData
                Try 
                    If ((1 = schemaCount) AndAlso ((0 < startRecord) OrElse (0 < maxRecords))) Then
                        num2 = Me.FillLoadDataRowChunk(mapping, startRecord, maxRecords)
                    Else
                        Dim num3 As Integer = Me.FillLoadDataRow(mapping)
                        If (1 = schemaCount) Then
                            num2 = num3
                        End If
                    End If
                Finally
                    mapping.DataTable.EndLoadData
                End Try
                If (Not datatable Is Nothing) Then
                    Return num2
                End If
            End If
        End If
    Loop While Me.FillNextResult(dataReader)
    Return num2
End Function

在查看所有这些之后，我可能不得不改变主意。为所有这些编写自己的实现确实可能会带来显着的改进。这些函数中的逻辑比我预期的要多，并且一遍又一遍调用 FillNextResult() 时会产生一些函数调用开销。

Answer 3

下面是一个 dataReader 用于一般填充数据表的示例。您可以简单地使用 DataTable 的 Load 方法并将其传递给 DataReader：

DataTable dt= new DataTable();
dt.Load(cmd.ExecuteReader()); //cmd being declared as SqlCommand