以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问：数据合并是否有更快的方法？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25541)
--  作者：lyfxybc
--  发布时间：2012/11/11 18:22:00
--  请问：数据合并是否有更快的方法？

请问：数据合并是否有更快的方法？

本人试了一下，导入和导出数据时，130000条记录大约各运行1-2秒，而合并时45000条记录合并到85000条的记录中大约120秒-150秒。

 

另外：130000条记录统计时间大约15秒，时间是否太长，如何才能减少统计时间。

[此贴子已经被作者于2012-11-11 18:29:46编辑过]
--  作者：客家阿哥
--  发布时间：2012/11/11 18:37:00
--  
我看参考书里面说导入的效率比合并高，可是一个文件里面的多个文件文件导入，因为没有例子，所以不会做
--  作者：gzdw
--  发布时间：2012/11/11 19:03:00
--  
导入速度快得多。但导入的表名不能与原有表重复。如果能增加一个“追加”功能就好了，就是导入的记录可以添加到现有的表。
[此贴子已经被作者于2012-11-11 22:13:43编辑过]
--  作者：客家阿哥
--  发布时间：2012/11/11 19:04:00
--  
是啊！！！
--  作者：sgs
--  发布时间：2012/11/11 19:17:00
--  
追加不就是合并吗
--  作者：客家阿哥
--  发布时间：2012/11/11 19:20:00
--  

怎么实现追加啊？？？
--  作者：lyfxybc
--  发布时间：2012/11/11 20:05:00
--  

我用的是下列代码，放在按钮中，使用还可以，烦请各位老师再看一下有何不足之处。

 

\'导出当天数据
Dim ex As New Exporter
ex.SourceTableName = "坯布信息" \'指定导出表
ex.filepath = "C:\\foxtable\\Trial\\坯布管理\\Reports\\坯布信息.mdb" \'指定目标文件
If FileSys.FileExists(ex.FilePath) Then \'如果目标文件已经存在
    FileSys.DeleteFile(ex.FilePath) \'则删除之
End If
ex.Export() \'开始导出

 

 

\'合并access文件:

Dim mg As New Merger
mg.SourcePath = "C:\\foxtable\\Trial\\坯布管理\\Reports\\坯布信息.mdb"
mg.SourceTableName = "坯布信息"  \'坯布信息.mdb中的表
mg.DataTableName = "坯布输入"
mg.Merge


 \'合并后删除access文件:

Filesys.DeleteFile("C:\\foxtable\\Trial\\坯布管理\\Reports\\坯布信息.mdb") \'合并后删除文件
--  作者：sgs
--  发布时间：2012/11/11 20:27:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=17564&page=5

 

看看这个有木有帮助
--  作者：czy
--  发布时间：2012/11/11 22:21:00
--  
以下是引用lyfxybc在2012-11-11 18:22:00的发言：

请问：数据合并是否有更快的方法？

本人试了一下，导入和导出数据时，130000条记录大约各运行1-2秒，而合并时45000条记录合并到85000条的记录中大约120秒-150秒。

 

另外：130000条记录统计时间大约15秒，时间是否太长，如何才能减少统计时间。

[此贴子已经被作者于2012-11-11 18:29:46编辑过]

 

这个时间似乎并不能说明问题。

先排除合并数据时是不是触发了表事件，这很重要。
--  作者：lyfxybc
--  发布时间：2012/11/13 17:17:00
--  
谢谢