EXCEL如何批量向SQL SERVER 批量上传数据

15900109023

求助！ 目前每次都有接近5列，一百万行的数据需要上传到服务器。不管是用SQL自带的导入方式还是FOR循环 都是特别慢。 请教一下各位老师有没有好用的方法或者插件之类的  推荐一下 谢谢

opiona

337楼：http://club.excelhome.net/forum. ... &page=34#pid9768940

有时候将大量Excel或Access数据保存到SQL Sever数据库很伤脑筋
十万，百万数据用循环，太慢
用VB.net写的DLL，实现VBA使用：SqlBulkCopy
本地测试：120,000条，保存需要：9秒

不想用插件，用下面的，速度会相差不少
测试了28万条数量：插件要：11秒，普通代码要：5分钟=300秒

1. '=================================================================================================================================================批量添加
   
2. 向其他数据库导入Excel：MySql
   
3. StrConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & ThisWorkbook.FullName
   
4. StrSQL = StrSQL & "Insert INTO"
   
5. StrSQL = StrSQL & " [ODBC;Driver={MySql ODBC 5.3 Unicode Driver};Server=myqcloud.com;Port=7139;DB=test;UID=用户名;PWD=123;OPTION=3;].[数据表名]
   
6. StrSQL = StrSQL & " Select 订单号,日期,订单人,'luoronghua' AS 编辑用户 FROM [首页$A:P]
   
7. 
   
8. 向其他数据库导入Excel：SQL Server
   
9.    Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2007
   
10.     StrSQL = ""
    
11.     StrSQL = StrSQL & "INSERT INTO "
    
12.     StrSQL = StrSQL & " [ODBC;Driver={SQL Server};"                        '//在空格+[：后面是固定格式
    
13.     StrSQL = StrSQL & "Server=" & StrNameServer & ";"                      '//服务器名称或地址
    
14.     StrSQL = StrSQL & "Database=" & StrNameCatalog & ";"                   '//数据库名称
    
15.     StrSQL = StrSQL & "UID=" & StrNameUser & ";PWD=" & StrPassWord & "]"   '//用户名，密码]
    
16.     StrSQL = StrSQL & ".[" & StrNameTable & "]"                            '//.[数据库内的数据表名]
    
17.     StrSQL = StrSQL & " SELECT [学号],[姓名],[专业],[语文分数],[数学分数] FROM [" & SHX.Name & "$]"    '//Excel中的数据获取

复制代码

microyip

1.     adoExcel_Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
   
2. 
   
3.     sSQL_Conn = _
   
4.         "[ODBC;Driver={SQL Server};Server=" & sSQL_Server & ";Database=" & sDB_Name & ";UID=sa;PWD=" & sSQL_Password & ";]"
   
5. 
   
6.     sSQL_Case = "Insert Into " & sSQL_Conn & "." & sDBFormName & " Select * From [数据表$]"
   
7. 
   
8.     adoExcel_Conn.Execute sSQL_Case

复制代码