一.前言
注意:是VBScript而不是VB!!!
两个区别还是挺大的,网上教程大多是VB连接数据库,仅有的一些VBScript连接教程还总是抄来抄去还都不能成功连接,应该是因为版本问题或者电脑的配置问题,但是,很幸运看到了这篇博客https://blog.51cto.com/u_7921793/3309861,成功解决了"未发现数据源名称并且未指定默认驱动程序"的持久报错
二.具体方法
1.基础模板
其中***部分就是连接重点,各种问题都是因为这个产生的,而字符串的内容将由后文方法获取,保过!!!
Dim DB
Set DB = CreateObject("ADODB.Connection")
DB.Open “***”
2.连接字符串的获取
(1)桌面新建一个txt文档,后缀改成udl,随便命名
(2)双击打开,在提供程序里选择想要连接的数据库对应的驱动
(3)在连接页面进行数据库连接的配置
注意勾选保存密码,这样之后才可以在文件中看到密码信息
(4)填写完毕后可以选择测试连接
(5)注意要确定保存
(6)将文件用记事本打开
(6)此时文件最后一行就是连接字符串了
(7)将这一串字符串复制到***的位置,就可以成功连接了
这是我生成的连接数据库的代码
Dim DB
Set DB = CreateObject("ADODB.Connection")
DB.Open “Provider=SQLOLEDB.1;Password=***;Persist Security Info=True;User ID=***;Initial Catalog=***;Data Source=***
”
三.总结
还是自己电脑自己生成的连接信息最靠谱啦,不用再各种找教程啦!!!