將SqlDataReader轉換成DataTable

 

 

參考地址：[url]http://weblogs.asp.net/rosherove/archive/2004/01/22/61541.aspx[/url]

 

Public Shared Function GetDataFromDatareader(ByVal reader As SqlClient.SqlDataReader) As DataTable

        Dim table As New DataTable

        Dim fieldCount As Integer = reader.FieldCount

        For iLoop As Integer = 1 To fieldCount
            table.Columns.Add(reader.GetName(iLoop - 1), reader.GetFieldType(iLoop - 1))
        Next

        table.BeginLoadData()

        Dim values(fieldCount - 1) As Object

        While reader.Read
            reader.GetValues(values)
            table.LoadDataRow(values, True)
        End While

        table.EndLoadData()

        Return table

    End Function

 

以上適用與1.1和2.0

 

另外，2.0的可以簡化爲

 

table.Load(reader)

 

這是2.0的新增功能