| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]excel表内容导入问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184937) |
| -- 作者：xiaochongsm97 -- 发布时间：2023/1/18 11:33:00 -- [求助]excel表内容导入问题 请问怎样将一个excel表里的内容导入到现有的数据表里去？？ |
| -- 作者：有点蓝 -- 发布时间：2023/1/18 11:50:00 -- 参考：http://www.foxtable.com/webhelp/topics/0187.htm |
| -- 作者：sanny -- 发布时间：2023/1/18 12:01:00 -- 使用了如下代码，可是不快，帮忙看看可否优化一下，谢谢。 Dim fx As New Filler fx.SourceTable = DataTables("表B“） fx.SourceCols = "BomId,SortSeq,ComponentId,BaseQtyN,BaseQtyD,ParentId,Version,cInvName,VersionDesc,PN,FNumber,CreateDate,Category,Customer,Sales,EAU" fx.DataTable = DataTables("表A") fx.DataCols = "BomId,SortSeq,ComponentId,BaseQtyN,BaseQtyD,ParentId,Version,cInvName,VersionDesc,PN,FNumber,CreateDate,Category,Customer,Sales,EAU" fx.ExcludeExistValue = True fx.Distinct = False fx.Fill() \'填充数据 |
| -- 作者：有点蓝 -- 发布时间：2023/1/18 12:13:00 -- 以下是引用sanny在2023/1/18 12:01:00的发言：
这个代码没有什么可以优化的余地。批量插入数据的话，建议使用SqlServer的sqlBulkCopy。使用了如下代码，可是不快，帮忙看看可否优化一下，谢谢。 Dim fx As New Filler fx.SourceTable = DataTables("表B“） fx.SourceCols = "BomId,SortSeq,ComponentId,BaseQtyN,BaseQtyD,ParentId,Version,cInvName,VersionDesc,PN,FNumber,CreateDate,Category,Customer,Sales,EAU" fx.DataTable = DataTables("表A") fx.DataCols = "BomId,SortSeq,ComponentId,BaseQtyN,BaseQtyD,ParentId,Version,cInvName,VersionDesc,PN,FNumber,CreateDate,Category,Customer,Sales,EAU" fx.ExcludeExistValue = True fx.Distinct = False fx.Fill() \'填充数据 另外和别人无关的问题请不要放到别人的帖子里，最好是另外发新帖提问
|
| -- 作者：xiaochongsm97 -- 发布时间：2023/1/18 14:38:00 -- 版主，您回复的答案，不是我所需要的，我的意思还是通过代码解决 |
| -- 作者：有点蓝 -- 发布时间：2023/1/18 14:46:00 -- 所以发帖还是要请写详细点。 帮助搜搜导入，有很多方法的 |
| -- 作者：xiaochongsm97 -- 发布时间：2023/1/18 14:51:00 -- 感谢版主，支持 |