hi，大家好呀！
之前呢，给大家分享过一个自制链接表管理器的文章，文章中有链接SQL Server数据库的代码，大家对这一段代码比较有兴趣，既然大家有兴趣，那我们今天就来讲一下链接数据库的代码。
这里给大家讲两个数据库的链接方法，一个是我们常用的SQL Server，另一个是现在非常流行的MySQL数据的链接。至于链接Access数据库，这个就由大家自己去试了，好的，废话不多说了，让我们来试一下吧。
我们先来看一下链接SQL Server怎么写。
01、链接SQL Server
因为SQL Server是我们比较常用的数据库，所以怎么去安装之类的就不去讲了，这里直接给大家上代码。
链接的代码主要就是链接字符串，数据库链接成功后，就是对数据库的一些操作，比如查询数据，这部分的代码就由大家自行补充了。
Dim strConnect As String
Dim cnn As Object 'New ADODB.Connection
Dim rst As Object
strConnect = "Provider=SQLOLEDB" & _
";Data Source=服务器地址" & _
";Initial Catalog=数据库名称" & _
";User ID=用户名" & _
";Password=密码"
Set cnn = CreateObject("ADODB.Connection")
cnn.connectionString = strConnect
cnn.Open
If cnn.State Then MsgBox "链接成功。", vbInformation
strSQL = "select count(1) FCount from INFORMATION_SCHEMA.TABLES "
Set rst = CreateObject("ADODB.Recordset")
rst.Open strSQL, cnn, 2, 3
'操作代码省略…
rst.Close
02
链接MySQL
我们详细的来讲一下链接MySQL。
在链接MySQL数据库前，需要安装MySQL数据库，这个就由大家自行安装。
数据库安装完成后，还需要安装MySQL 的ODBC驱动，注意安装的时候要确认一下你的office版本，如果你的office是32位的，也要安装32位的驱动，如果是64位的，则安装64位的，安装成功后，在控制版面的ODBC的数据源配置一下，如图
这些操作都完成后，我们就可以来写代码了
Dim strConnect As String
Dim cnn As Object 'New ADODB.Connection
Dim rst As Object
Dim strSQL As String
strConnect = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=localhost;DATABASE=mydata_Test;USER=root;PASSWORD=123456;OPTION=3;"
Set cnn = CreateObject("ADODB.Connection")
cnn.ConnectionString = strConnect
cnn.Open
If cnn.State Then MsgBox "链接成功。", vbInformation
strSQL = "select count(1) FCount from t_test "
Set rst = CreateObject("ADODB.Recordset")
rst.Open strSQL, cnn, 2, 3
Debug.Print rst!FCount
rst.Close
还是一样，链接的字符串是我这里的数据库链接方式，这个需要替换成你们自己的。
这里我们输出了一下这张t_test里有几条记录，debug出来是2
那怎么来验证呢，那我们就在数据库的后台查看一下，如下图，是后台数据库的截图，我们可以看到是两条记录，这说明我们的操作是正确的。
好了，大家快去试一下吧。
