■15568 / inTopicNo.4) |
Re[3]: DataReaderをDataTableへ |
□投稿者/ やじゅ (247回)-(2008/03/15(Sat) 22:16:32)
|
■No15567 (トルネコ さん) に返信
> データ自体は入っていないものと思われます。
>
失礼しました。
http://naoko.wankuma.com/designpatterns/designpatterns_C001.html
'DataReader→DataTable
Dim dt As DataTable = New DataTable
'DataTableに列を追加
For i As Integer = 0 To sqlDataReader.GetSchemaTable.Rows.Count - 1
dt.Columns.Add(DirectCast(sqlDataReader.GetSchemaTable.Rows(i).Item("ColumnName"), String), _
GetType(String))
Next
Do While sqlDataReader.Read
Dim row As DataRow = dt.NewRow()
For i As Integer = 0 To sqlDataReader.FieldCount - 1
row(i) = MyBase.NullConvert(sqlDataReader.Item(i))
Next
dt.Rows.Add(row)
Loop
Return dt
|
|