ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: opiona

[分享] ADO将百万行Excel数据快速上传到MSSQL或MySQL数据库中 仅需几十秒

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2023-8-28 10:59 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
这个厉害,老师牛

TA的精华主题

TA的得分主题

发表于 2023-10-12 08:47 | 显示全部楼层
这个就很厉害了,大佬不打算开源让我等学习一下源码吗

TA的精华主题

TA的得分主题

发表于 2024-1-16 10:10 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-1-16 10:11 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
北极狐老师厉害。

TA的精华主题

TA的得分主题

发表于 2024-2-23 09:18 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-2-23 09:20 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
opiona 发表于 2023-8-27 20:01
一般保存方式  没有SQL之外的快速方法

    StrSQL = "INSERT INTO [测试表] "
    StrSQL = StrSQL & " SELECT   [日期],[订单号],[数量]"
    StrSQL = StrSQL & " FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[数据表$]"
    StrSQL = StrSQL & " WHERE NOT [订单号] IS NULL AND LEN([订单号])>0"

请问老师这种方法能不能直接用于SQL Server 数据库呢?

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-2-23 10:55 | 显示全部楼层
本帖最后由 opiona 于 2024-2-23 13:59 编辑
chinalqw 发表于 2024-2-23 09:20
StrSQL = "INSERT INTO [测试表] "
    StrSQL = StrSQL & " SELECT   [日期],[订单号],[数量]"
   ...

SQL Server 直接添加和这个类似 但是链接是反着来的
缺点是: 速度慢, 数据多的时候无法忍受的慢, 所以才开发的这个DLL

直接添加的代码示例:
  1.     StrSQL = ""
  2.     StrSQL = StrSQL & "INSERT INTO "
  3.     StrSQL = StrSQL & " [odbc;Driver={SQL Server}"  '//在空格+[:后面是固定格式
  4.     StrSQL = StrSQL & ";Server=" & NameBase              '//服务器名称或地址
  5.     StrSQL = StrSQL & ";Database=" & Catalog            '//数据库名称
  6.     StrSQL = StrSQL & ";UID=" & UserName
  7.     StrSQL = StrSQL & ";PWD=" & UserPass
  8.     StrSQL = StrSQL & "]"             '//用户名,密码]
  9.     StrSQL = StrSQL & ".[测试表]"
  10.     StrSQL = StrSQL & " ([日期],[订单号],[数量]) "
  11.     StrSQL = StrSQL & "SELECT  TOP " & PUB_NUMS & "   [日期],[订单号],[数量]"
  12.     StrSQL = StrSQL & " FROM [数据表$]"   '//[数据$]"  '//
  13.    
  14.     Str_Coon = "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=YES';Persist Security Info=False;"
  15.     INTX = AddDelMove(StrSQL, Str_Coon)
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-2-23 11:14 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

TA的精华主题

TA的得分主题

发表于 2024-5-14 21:49 | 显示全部楼层
SqlBulkCopy sqlBulkCopy  能用C# and ExcelDNA实现吗?因为DLL公司电脑有管控,注册不了。

TA的精华主题

TA的得分主题

发表于 2024-5-14 22:13 | 显示全部楼层
jygzcj 发表于 2024-5-14 21:49
SqlBulkCopy sqlBulkCopy  能用C# and ExcelDNA实现吗?因为DLL公司电脑有管控,注册不了。

自己实验的,好像速度也不是很快。
static void Main(string[] args)
{

    string connStr = @"data source=.\sqlexpress;initial catalog=consign;user id=sa;password=123456789";

    using(SqlConnection conn = new SqlConnection(connStr))
    {
        string sql = "select * from userlist";

        DataTable dt=new DataTable();

        using(SqlDataAdapter adapter = new SqlDataAdapter(sql,conn))
        {
            adapter.Fill(dt);

            using(SqlBulkCopy bulkCopy = new SqlBulkCopy(conn))
            {
                conn.Open();
                bulkCopy.DestinationTableName = "userlist";
                bulkCopy.WriteToServer(dt);
            }

        }
    }
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-18 21:24 , Processed in 0.050193 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表