摘要: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 
Private
Dim Da As New OleDbDataAdapter Da.Fill(Ds, Rs, "Table1") Return Ds 
End Function 以下是簽名：
- 歡迎轉貼本站的文章，不過請在貼文主旨上加上【轉貼】，並在文章中附上本篇的超連結與站名【topcat姍舞之間的極度凝聚】，感恩大家的配合。
- 小喵大部分的文章會以小喵熟悉的語言VB.NET撰寫，如果您需要C#的Code，也許您可以試著用線上的工具進行轉換，這裡提供幾個參考
| Microsoft MVP Visual Studio and Development Technologies (2005~2019/6) | topcat Blog:http://www.dotblogs.com.tw/topcat |
