excel数据批量追加到SQL server指定表

qincf0202

excel与SQLserver数据库的连接已经建好，可以实现从数据库查询数据，但是 追加数据的时候提示 运行错误，“尚未注册 oLE DB 访问接口“Microsoft.ACE.OLEDB.12.0””
代码如下：Sql = "insert INTO 测试表(年度,期间,客户编码,数量金额)" _
        & "select 年度,期间,客户编码,数量金额 FROM OpenDataSource( 'Microsoft.ACE.OLEDB.12.0','Data Source=" & ThisWorkbook.FullName & ";User ID=Admin;Password=;Extended properties=Excel 12.0')...[测试$] "

请教各位大神帮忙

opiona

使用SqlBulkCopy将DataTable中的数据批量插入数据库中

qincf0202

opiona 发表于 2018-9-3 13:20
使用SqlBulkCopy将DataTable中的数据批量插入数据库中

老师您好，能不能介绍下具体的用法，这个实在是不会用

microyip

1. Sql = "insert INTO 测试表(年度,期间,客户编码,数量金额)" _
   
2.         & "select 年度,期间,客户编码,数量金额 FROM [Excel 12.0;imex=0;Database=" & ThisWorkbook.FullName & "].[测试$] "

复制代码

microyip

opiona 发表于 2018-9-3 13:20
使用SqlBulkCopy将DataTable中的数据批量插入数据库中

同3楼问，请赐教一下

向東

连接字符串不对，换成下面帖子中的
http://club.excelhome.net/thread-1430272-1-1.html

qincf0202

microyip 发表于 2018-9-3 13:57

这个可以追加到Access中没问题，但是追加到SQL server 提示 【测试&】这个对象名无效。不知道怎样才能批量的追加到 SQL server中

microyip

qincf0202 发表于 2018-9-3 14:02
这个可以追加到Access中没问题，但是追加到SQL server 提示 【测试&】这个对象名无效。不知道怎样才能批 ...

假如是这样，你的SQL服务器必须开启OpenDataSource功能才能使用你的语句

opiona

SqlBulkCopy是vb.net的SQL引擎功能
将Excel查询到的数据 装入DataTable中
使用 SqlBulkCopy能很快导入到SQL Server
5列10W行 本地数据库测试结果：不到1秒

opiona

VB.NET 需要制作成dll
下面这个VBA中即可实现。速度未测试

1. Rem 添加Excel数据到SQLSERVER
   
2.     Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2007
   
3.     StrSQL = "INSERT INTO "
   
4.     StrSQL = StrSQL & " [odbc;Driver={SQL Server};"  '//在空格+[：后面是固定格式
   
5.     StrSQL = StrSQL & "Server=XXXX;"              '//服务器名称或地址
   
6.     StrSQL = StrSQL & "Database=XXXX;"             '//数据库名称
   
7.     StrSQL = StrSQL & "UID=sa;PWD=XXXX"             '//用户名，密码
   
8.     StrSQL = StrSQL & ".USID"                        '//.[数据表名]
   
9.     StrSQL = StrSQL & " SELECT 编号,姓名,数量 FROM [Sheet1$]"  '//前面有一个空格
   
10.     Bool_1 = AddDelMove(StrSQL, Str_coon)
    
11.     MsgBox Bool_1
    
12. End Sub

复制代码