16,556
社区成员
发帖
与我相关
我的任务
分享
Dim n As Date = Now
table2 = dh.BackTable("select top 50000 * from 数据表1", DataType.AccessData) '这个函数是从自定义的类中提取数据,无问题
Debug.WriteLine("提取数据所需时间:" & (Now - n).Seconds)
n = Now
Dim fs As New FileStream(AppDomain.CurrentDomain.BaseDirectory & "\aa.aaa", FileMode.OpenOrCreate, FileAccess.ReadWrite)
Dim fr As New BinaryFormatter
fr.Serialize(fs, table2) '在这里提示system.outofmemoryexception的异常!
fs.Close()
Debug.WriteLine("序列化10万条数据所用时间:" & (Now - n).Seconds)
n = Now
fs = New FileStream(AppDomain.CurrentDomain.BaseDirectory & "\aa.aaa", FileMode.OpenOrCreate, FileAccess.Read)
table1 = CType(fr.Deserialize(fs), DataTable)
Debug.WriteLine("反序列化所需时间:" & (Now - n).Seconds)