将sqldatareader转变成datatable的vb.net代码
敬业的IT人
互联网
佚名
2008-5-23 17:35:14
Public Function GetTable(ByVal _reader As System.Data.SqlClient.SqlDataReader) As System.Data.DataTable
On Error Resume Next
Dim _dt As System.Data.DataTable = New System.Data.DataTable()
Dim _dc As System.Data.DataColumn
Dim _row As System.Data.DataRow
Dim _al As System.Collections.ArrayList = New System.Collections.ArrayList()
Dim i = 0
For i = 0 To _table.Rows.Count() - 1
_dc = New System.Data.DataColumn()
If (Not _dt.Columns.Contains(_table.Rows(i)("ColumnName").ToString())) Then
_dc.ColumnName = _table.Rows(i)("ColumnName").ToString()
_dc.Unique = Convert.ToBoolean(_table.Rows(i)("IsUnique"))
_dc.AllowDBNull = Convert.ToBoolean(_table.Rows(i)("AllowDBNull"))
_dc.ReadOnly = Convert.ToBoolean(_table.Rows(i)("IsReadOnly"))
_dc.ReadOnly = Convert.ToBoolean(_table.Rows(i)("IsReadOnly"))
_dc.ReadOnly = Convert.ToBoolean(_table.Rows(i)("IsReadOnly"))
_dc.ReadOnly = Convert.ToBoolean(_table.Rows(i)("IsReadOnly"))
_al.Add(_dc.ColumnName)
_dt.Columns.Add(_dc)
End If
Next
While _reader.Read()
_row = _dt.NewRow()
For i = 0 To _al.Count
_row(CStr(_al(i))) = _reader(CStr(_al(i)))
Next
_dt.Rows.Add(_row)
End While
Return _dt
End Function
- 最新文章
- 使用.NET2.0编写COM组件供VB调用[05-23]
- 如何在VB.NET中创建Windows应用程序(一)[05-23]
- 如何在VB.NET中创建Windows应用程序(五)[05-23]
- 使用 Visual Basic .NET 进行多线程编程（转..[05-23]
- 使用 Visual Basic .NET 访问注册表(微软)..[05-23]
- 使用 Visual Basic .NET 访问注册表(微软)..[05-23]
- 相关文章
- 如何在VB.NET中创建Windows应用程序(一)[05-23]
- 如何在VB.NET中创建Windows应用程序(五)[05-23]
- 使用vb.net加密和解密文件。（好象英文灵，中文不灵）[05-23]
- 托拽Explore中的文件到VB.net的窗口 40Star..[05-23]
- 我的推荐：在VB.NET中寻找App[05-23]
- 一个很有意思的爱情软件.是用VB.net开发的[05-23]
