如何用VBA批量添加及更新SQL数据库中的数据

天道酬勤y

opiona 发表于 2016-8-5 13:36

我也想达到同样的, 在数据库写入数据和读出数据,不过是Mysql数据库,请问能改一下代码吗

opiona

天道酬勤y 发表于 2022-8-1 10:19
我也想达到同样的, 在数据库写入数据和读出数据,不过是Mysql数据库,请问能改一下代码吗

主要是链接字符不一样

1. strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & ThisWorkbook.FullName
   
2. 
   
3. StrSQL = StrSQL & "Insert INTO [ODBC;Driver={MySql ODBC 5.3 Unicode Driver};
   
4. StrSQL = StrSQL & "Server=myqcloud.com;Port=7139;DB=test;UID=用户名;PWD=123;OPTION=3;
   
5. StrSQL = StrSQL & "].[数据表名]
   
6. StrSQL = StrSQL & " Select 订单号,日期,订单人,'luoronghua' AS 编辑用户 FROM [首页$A:P]

复制代码

opiona

strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';Data Source =" & ThisWorkbook.FullName


StrSQL = StrSQL & "Insert INTO [ODBC;Driver={MySql ODBC 5.3 Unicode Driver};
StrSQL = StrSQL & "Server=myqcloud.com;Port=7139;DB=test;UID=用户名;PWD=123;OPTION=3;
StrSQL = StrSQL & "].[数据表名]
StrSQL = StrSQL & " Select 订单号,日期,订单人,'luoronghua' AS 编辑用户 FROM [首页$A:P]

MySQL和SQL Server差别就是 链接字符的差别

如果数据量大的  Excel写入MySQL会慢
使用VS的MySqlBulkLoader  将Excel数据转成CSV上传 还是很快的

见438楼的插件: https://club.excelhome.net/thread-859194-1-1.html

天道酬勤y

opiona 发表于 2022-8-1 13:24
如果数据量大的  Excel写入MySQL会慢
使用VS的MySqlBulkLoader  将Excel数据转成CSV上传 还是很快的

我就在局域网用,数据量也没有达到几百万的量,应该不会好慢

dgdingzhen

opiona 发表于 2016-8-5 13:36

请问如果是连接本地SQL数据库，代码应该怎么写？

opiona

dgdingzhen 发表于 2023-4-24 13:47
请问如果是连接本地SQL数据库，代码应该怎么写？

Rem 连接SQL_Server数据库：
Rem Str_coon ="Provider=SQLOLEDB;Data Source=FANGWEI;Integrated Security=SSPI;Initial Catalog=XieXin;Persist Security Info=false"
'//SQLServer  本地链接,windows验证，不用密码和用户名

Rem Str_coon ="Provider=SQLOLEDB;User ID=sa;Password =1001;Data Source=FANGWEI\SQL2005数据"          '//SQLServer2005 本地链接
Rem Str_coon ="Provider=SQLOLEDB.1;Data Source=FANGWEI\SQLEXPRESS;Initial Catalog=CPECC_Temp;Uid=SA;PWD=1234;Persist Security Info=false"       '//SQLServer 2008本地链接
Rem Data Source=FANGWEI\SQLEXPRESS  '//计算机登陆名/服务器名称，链接本地服务器，就是本机的
Rem Initial Catalog=CPECC_Temp      '//数据库名称
Rem Uid=SA 用户名
Rem PWD=1234 '/密码

Rem Str_coon = "Provider=SQLOLEDB;Server=192.168.1.103;Database=XieXin;Uid=sa;Pwd=1005;"       '//SQLServer2005局域网， 广域网链接   192.168.1.05   没有:\\
Rem Server=192.168.1.103;  '//服务器所载电脑IP，链接局域网服务器这样写。
Rem Database=XieXin;  '//数据库名
Rem Uid=SA 用户名
Rem PWD=1005 '/密码