RecordSet轉DataSet

摘要:RecordSet轉DataSet

上一篇從DataSet轉Recordset後,接著就是另一個方向,從RecordSet轉DataSet

這個部份就沒有像上一篇那樣辛苦,可以直接透過DataAdapter的Fill來處理

程式需要Imports三個NameSpace
Imports ADODB
Imports System.Data
Imports System.Data.OleDb

相關的程式如下

    Private Function Rs2Ds(ByVal Rs As Recordset) As DataSet
        Dim Da As New OleDbDataAdapter
        Da.Fill(Ds, Rs, "Table1")
        Return Ds
    End Function

 

 


以下是簽名:


Microsoft MVP
Visual Studio and Development Technologies
(2005~2019/6) 
topcat
Blog:http://www.dotblogs.com.tw/topcat