常见类型数据库ExcelVBAsqlserver(数据库连接数据库公式函数请重试)「数据库类型表」

VBA作为Excel的一个高级功能，还是有很多小伙伴喜欢来使用这个功能
那么，在使用VBA编程的过程中，连接各种数据库进行操作就成为了必备的一个技能
今天，我们就来给大家分享一下常见的一些数据库的连接方式
1、 Excel数据库连接Excel其实本身也可以当作一个数据库来使用，首先我们就来看一下Excel的连接方法
Sub db_Excel()On Error Resume NextDim cn As New ADODB.ConnectionDim cnStr As StringcnStr = \"Provider = Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;Data Source = \" & ThisWorkbook.FullNamecn.Open (cnStr)If cn.State = 1 ThenMsgBox \"数据库连接成功
\"ElseMsgBox \"数据库连接失败，请重试
\"End IfEnd Sub2、 Access数据库连接Access数据库作为office家族中的一员，是微软提供的一个桌面型的数据库，如果你的office软件是完整安装的话，默认就已经安装了Access数据库
如果进行一些简单的数据存储的话，Access不愧为一个很好的选择
Sub db_Access()On Error Resume NextDim cn As New ADODB.ConnectionDim cnStr As StringcnStr = \"Provider = Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password='';Data Source='\\192.168.31.101\db\data.mdb'\"cn.Open (cnStr)If cn.State = 1 ThenMsgBox \"数据库连接成功
\"ElseMsgBox \"数据库连接失败，请重试
\"End IfEnd Sub3、 mysql数据库连接mysql数据库是一款开源的数据库产品，是最流行的关系型数据库管理系统之一，在 WEB 应用方面，MySQL是最好的 RDBMS (Relational Database Management System，关系数据库管理系统) 应用软件之一
对于一般的个人使用者和中小型企业来说，MySQL提供的功能已经绰绰有余，而且由于 MySQL是开放源码软件，因此可以大大降低总体拥有成本
强烈推荐各位开发者使用该数据库进行开发
Sub db_Mysql()On Error Resume NextDim cn As New ADODB.ConnectionDim cnStr As Stringmydriver = \"Driver={MySQL ODBC 8.0 Unicode Driver}\"host = \"192.168.31.237\"database = \"vbatest\"user = \"root\"pw = \"123456789\"cnStr = mydriver & \";Server=\" & host & \";Database=\" & database & \";Uid=\" & user & \";Pwd=\" & pw & \";option=3\"cn.Open (cnStr)If cn.State = 1 ThenMsgBox \"数据库连接成功
\"ElseMsgBox \"数据库连接失败，请重试
\"End IfEnd Sub4、 sqlserver数据库连接SQL Server 是Microsoft 公司推出的关系型数据库管理系统
具有使用方便可伸缩性好与相关软件集成程度高等优点，可跨越从运行Microsoft Windows 98 的膝上型电脑到运行Microsoft Windows 2012 的大型多处理器的服务器等多种平台使用
Sub db_Sqlserver()On Error Resume NextDim cn As New ADODB.ConnectionDim cnStr As Stringmydriver = \"Provider=sqloledb\"host = \"192.168.31.101\"database = \"vbatest\"user = \"lou\"pw = \"123456\"cnStr = mydriver & \";Server=\" & host & \";Database=\" & database & \";Uid=\" & user & \";Pwd=\" & pw & \";option=3\"cn.Open (cnStr)If cn.State = 1 ThenMsgBox \"数据库连接成功
\"ElseMsgBox \"数据库连接失败，请重试
\"End IfEnd Sub