本文介绍了一个使用SQLDataReader填充DataTable的方法。此方法通过遍历读取器获取的数据来填充DataTable，确保了数据列名和类型的一致性。适用于需要将数据库查询结果转换为内存中表格形式的场景。
Public Function Fill()Function Fill(ByVal dataReader As SqlDataReader) As DataTable 
Dim dataTable As DataTable Dim dataRow As DataRow dataTable = New DataTable Dim schemaTable As DataTable = dataReader.GetSchemaTable For Each myRow As DataRow In schemaTable.Rows For Each myCol As DataColumn In schemaTable.Columns dataTable.Columns.Add(myCol.ColumnName, myCol.DataType) Next Next While dataReader.Read dataRow = dataTable.NewRow For Each myRow As DataRow In schemaTable.Rows For Each myCol As DataColumn In schemaTable.Columns dataRow(myCol.ColumnName) = dataReader(myCol.ColumnName) Next Next dataTable.Rows.Add(dataRow) End While dataReader.Close schemaTable.Rows.Clear Return dataTable 
End Function
扫一扫
24
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
