hi，大家好呀！

之前呢，给大家分享过一个自制链接表管理器的文章，文章中有链接SQL Server数据库的代码，大家对这一段代码比较有兴趣，既然大家有兴趣，那我们今天就来讲一下链接数据库的代码。

这里给大家讲两个数据库的链接方法，一个是我们常用的SQL Server，另一个是现在非常流行的MySQL数据的链接。至于链接Access数据库，这个就由大家自己去试了，好的，废话不多说了，让我们来试一下吧。

我们先来看一下链接SQL Server怎么写。

01、链接SQL Server

因为SQL Server是我们比较常用的数据库，所以怎么去安装之类的就不去讲了，这里直接给大家上代码。

链接的代码主要就是链接字符串，数据库链接成功后，就是对数据库的一些操作，比如查询数据，这部分的代码就由大家自行补充了。

    Dim strConnect As StringDim cnn As Object  'New ADODB.ConnectionDim rst As ObjectstrConnect = "Provider=SQLOLEDB" & _";Data Source=服务器地址" & _";Initial Catalog=数据库名称" & _";User ID=用户名" & _";Password=密码"Set cnn = CreateObject("ADODB.Connection")cnn.connectionString = strConnectcnn.OpenIf cnn.State Then MsgBox "链接成功。", vbInformationstrSQL = "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 StringDim cnn As Object  'New ADODB.ConnectionDim rst As ObjectDim strSQL As StringstrConnect = "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 = strConnectcnn.OpenIf cnn.State Then MsgBox "链接成功。", vbInformationstrSQL = "select count(1) FCount from t_test "Set rst = CreateObject("ADODB.Recordset")rst.Open strSQL, cnn, 2, 3Debug.Print rst!FCountrst.Close

还是一样，链接的字符串是我这里的数据库链接方式，这个需要替换成你们自己的。

这里我们输出了一下这张t_test里有几条记录，debug出来是2

那怎么来验证呢，那我们就在数据库的后台查看一下，如下图，是后台数据库的截图，我们可以看到是两条记录，这说明我们的操作是正确的。

好了，大家快去试一下吧。