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

opiona

1.     Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2007
   
2.     StrSQL = "SELECT * FROM"
   
3.     StrSQL = StrSQL & " [odbc;Driver={SQL Server};"  '//在空格+[   ]：后面是固定格式
   
4.     StrSQL = StrSQL & "Server=FANGWEI;"              '//服务器名称或地址
   
5.     StrSQL = StrSQL & "Database=XIEXIN;"             '//数据库名称
   
6.     StrSQL = StrSQL & "UID=sa;PWD=1005]"             '//用户名，密码=1005
   
7.     StrSQL = StrSQL & ".USID"                        '//.[数据表名]
   
8. 
   
9.     StrSQL = StrSQL & " WHERE 编号 not IN (SELECT 编号 FROM [Sheet1$])"

复制代码

qincf0202

opiona 发表于 2018-9-3 20:51
VB.NET 需要制作成dll
下面这个VBA中即可实现。速度未测试

用了循环 ，1000行，10列用时12秒多，还好每次数据不太多  还算可以接受，回头试试您的这个方法。谢谢您

qincf0202

microyip 发表于 2018-9-3 14:14
假如是这样，你的SQL服务器必须开启OpenDataSource功能才能使用你的语句

在服务器上 用了 OPENROWSET 批量导入了，但是客户端上 不能用这种方法