Datatable转换成 Recordset

最新推荐文章于 2023-12-01 16:14:21 发布

zhao8954

最新推荐文章于 2023-12-01 16:14:21 发布

阅读量570

点赞数

CC 4.0 BY-SA版权

文章标签： function integer each

本文链接：https://blog.youkuaiyun.com/zhao8954/article/details/5639189

本文介绍了一个使用Visual Basic .NET编写的示例程序，该程序演示了如何将DataSet中的数据填充到Recordset对象中，并实现了两种不同数据集之间的相互操作。通过对每一步的详细解析，帮助读者理解ADO.NET与ADO之间的数据转换过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Imports System
Imports System.Data
Imports ADODB
Imports System.Array
Imports System.Reflection

    Private Sub frmYDZB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim dr As DataRow
            Dim rs As Recordset
            Dim i As Integer

            rs = New Recordset
            For Each col As DataColumn In MainDT.Columns
                rs.Fields.Append(col.ColumnName, colGetType(col.DataType), -1, FieldAttributeEnum.adFldIsNullable)
            Next

rs.Open(Missing.Value, Missing.Value, CursorTypeEnum.adOpenUnspecified, LockTypeEnum.adLockUnspecified, -1)

            For Each dr In MainDT.Rows
                rs.AddNew(Missing.Value, Missing.Value)
                For i = 0 To MainDT.Columns.Count - 1
                    rs.Fields(i).Value = dr(i).ToString
                Next
            Next
    End Sub

''' <summary>
    ''' 系统类型转换成 ADO类型
    ''' </summary>
    ''' <param name="typeval"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function colGetType(ByVal typeval As Type) As DataTypeEnum
        Select Case typeval.ToString
            Case "System.Int32"
                Return DataTypeEnum.adInteger
            Case "System.String"
                Return DataTypeEnum.adVarChar
        End Select
    End Function