VBScript连接各种数据库

一.前言

注意:是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=***
”

三.总结

还是自己电脑自己生成的连接信息最靠谱啦,不用再各种找教程啦!!!