OleDbDataAdapter 填充数据表

Question

关于填写OleDbDataAdapter的问题。

我有：

Dim cmd As OleDbCommand = New OleDbCommand(myQuery), myConnection)
Dim da As OleDbDataAdapter = New OleDbDataAdapter()
Dim dtDonnees As DataTable = New DataTable()
da.Fill(dtDonnees)

填充需要太多时间。
20 行需要 20 秒。
而对于 130 000，它需要更多的时间（但不是 130 000 秒）。
但无论如何，20 秒太长了。

为什么要花这么多时间？

---

问题第 2 部分：我可以跳过填充吗？

我的意思是，在填充数据表之后，我对数据表的每一行做一个并转换成一个实体：

Dim returnList As New List(Of myObject)(dtDonnees.Rows.Count)
For Each rowDonnee As DataRow In dtDonnees.Rows
   returnList.Add(New myObject(rowDonnee))'set every data of the row into my new object
Next

我可以通过OleDbDataAdapter的每一行吗？

Answer 1

如果你想尝试，你可以用这个方法跳过DataAdapter填充（假设不需要DataTable）。不确定您能否在性能上获得很大提升。

Dim cmd As OleDbCommand = New OleDbCommand(myQuery, myConnection) 
Dim reader As OleDbDataReader = cmd.ExecuteReader()
while reader.Read()
   returnList.Add(New myObject(reader))
end while  

当然，在你的对象的构造函数中，你应该读取数据并设置对象的内部状态

Public Class myObject

   Dim myData As String
   ' other internal var to keep state of this object instance

   Public Sub New(ByVal reader as OleDbDataReader)
       myData = reader.GetString(0)
       ' read and initialize other internal data.
   End Sub
End Class