VBA怎么能执行一整段sql命令？

jdzl11

诚心求教大婶们
同事之前写好了一些SQL命令，然后一直是通过excel 数据-连接属性里选sql，然后把命令打进去进行刷新的，因为打的数据有点多，挺麻烦的，最近在捉摸有没有可能通过vba实现，这样的话只需要点个按钮就搞定了

mmwwdd

然后写你的SQL
rs.open mysql,cnn,1,3
就行了

jdzl11

mmwwdd 发表于 2023-2-20 16:18
然后写你的SQL
rs.open mysql,cnn,1,3
就行了

多谢大佬，，emmm不过问题是我同事的那个sql是sql server语句，这个该怎么办呀

jdzl11

继续求一下大佬，，

ovxyz

jdzl11 发表于 2023-2-20 16:58
多谢大佬，，emmm不过问题是我同事的那个sql是sql server语句，这个该怎么办呀

这个是ADO连接数据库，sql server也是sql连接方式的一种，，并不是非得mysql。那个mysql是个sql语句的字符串。

opiona

此部分可以按照下面的对应修改一下

1. Rem 连接MySQL，先安装mysql-connector-odbc-5.3.4，在控制面板-系统与安全--管理工具--数据源（ODBC)--用户DSN--添加：MySql ODBC 3.51 Driver
   
2. '服务器名；端口；数据库名；用户名；密码；OPTION=3;
   
3. Rem Str_coon ="Driver={MySql ODBC 5.3 Unicode Driver};Server=localhost;Port=3306;DB=test;UID=用户名;PWD=密码;OPTION=3;"       '//本地MySQL
   
4. Rem Str_coon ="Driver={MySql ODBC 5.3 Unicode Driver};Server=myqcloud.com;Port=7139;DB=test;UID=用户名;PWD=密码;OPTION=3;"    '//外网MySQL  没有:WWW   192.168.1.05   没有:\\
   
5. 
   
6. Rem 连接SQL_Server数据库：
   
7. Rem Str_coon ="Provider=SQLOLEDB;Data Source=FANGWEI;Integrated Security=SSPI;Initial Catalog=XieXin;Persist Security Info=false"
   
8. '//SQLServer  本地链接,windows验证，不用密码和用户名
   
9. 
   
10. Rem Str_coon ="Provider=SQLOLEDB;User ID=sa;Password =1001;Data Source=FANGWEI\SQL2005数据"          '//SQLServer2005 本地链接
    
11. Rem Str_coon ="Provider=SQLOLEDB.1;Data Source=FANGWEI\SQLEXPRESS;Initial Catalog=CPECC_Temp;Uid=SA;PWD=1234;Persist Security Info=false"       '//SQLServer 2008本地链接
    
12. Rem Data Source=FANGWEI\SQLEXPRESS  '//计算机登陆名/服务器名称，链接本地服务器，就是本机的
    
13. Rem Initial Catalog=CPECC_Temp      '//数据库名称
    
14. Rem Uid=SA 用户名
    
15. Rem PWD=1234 '/密码
    
16. 
    
17. Rem Str_coon = "Provider=SQLOLEDB;Server=192.168.1.103;Database=XieXin;Uid=sa;Pwd=1005;"       '//SQLServer2005局域网， 广域网链接   192.168.1.05   没有:\\
    
18. Rem Server=192.168.1.103;  '//服务器所载电脑IP，链接局域网服务器这样写。
    
19. Rem Database=XieXin;  '//数据库名
    
20. Rem Uid=SA 用户名
    
21. Rem PWD=1005 '/密码

复制代码