以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  高速合并问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186748)

--  作者:xnsiwei
--  发布时间:2023/5/26 11:20:00
--  高速合并问题
d:\\文件路径.xls文件里面有30万条记录需要合并到现有的表中
存在问题:
1、手动合并,选择无条件合并,最后只能合并65535条记录,文件路径.xls文件里面的内容也消失了
2、用代码:
If DataTables.Contains("各部门文档汇总") = False Then \'如果表没有加载
    DataTables.Load("各部门文档汇总") \'加载表"
End If
MainTable = Tables("各部门文档汇总") \'切换表
DataTables("各部门文档汇总").DeleteFor("[序号] is null") \'如果系列号为空,清空所有行,准备新的加载
Dim Book As New XLS.Book("d:\\文件路径.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("各部门文档汇总").StopRedraw()
\'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"文件名", "文件类型", "最后修改时间", "创建时间", "路径"}
\'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count - 1 
    Dim r As Row = Tables("各部门文档汇总").AddNew()
    For m As Integer = 0 To nms.Length - 1
         r(nms(m)) = Sheet(n, m).Value
    Next
Next
Tables("各部门文档汇总").ResumeRedraw()

最后只能合并65535条记录,文件路径.xls文件里面的内容也只剩65535条记录


请版主解惑!!!!

--  作者:有点蓝
--  发布时间:2023/5/26 11:27:00
--  
xls文件绝对不可能会存储超过65535条记录。应该是xlsx文件,是不是改了扩展名了
--  作者:xnsiwei
--  发布时间:2023/5/26 11:30:00
--  
另存为xls文件,有办法吗?
--  作者:有点蓝
--  发布时间:2023/5/26 11:33:00
--  
直接导入xlsx文件不行吗,为什么要另存为xls文件!存为xls文件数据肯定会丢失
--  作者:xnsiwei
--  发布时间:2023/5/26 11:35:00
--  
直接合并xlsx文件错误提示

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:
详细错误信息:
未在本地计算机上注册“Microsoft.ACE.OLEDB.12.0”提供程序。

--  作者:有点蓝
--  发布时间:2023/5/26 11:42:00
--  
下载安装下面的数据访问组件:
http://www.foxtable.com/download/AccessDatabaseEngine.exe

--  作者:xnsiwei
--  发布时间:2023/5/26 11:48:00
--  
错误


有关调用实时(JIT)调试而不是此对话框的详细信息,
请参见此消息的结尾。

************** 异常文本 **************



启用 JIT 调试后,任何未经处理的异常
都将被发送到在此计算机上注册的 JIT 调试程序,
而不是由此对话框处理。



--  作者:xnsiwei
--  发布时间:2023/5/26 11:50:00
--  
我的是SQL   2014
--  作者:有点蓝
--  发布时间:2023/5/26 11:55:00
--  
和SqlServer什么版本没有关系。做什么操作出现的错误?
--  作者:xnsiwei
--  发布时间:2023/5/26 11:58:00
--  
手动高速合并