之前呢,给大家分享过一个低廉甜头链接表管理器的文章,文章中有链接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
那怎么来验证呢,那我们就在数据库的后台查看一下,如下图,是后台数据库的截图,我们可以看到是两条记录,这解释我们的操作是精确的。
好了,大家快去试一下吧。