EXCEL自定义菜单+SQL数据库查询的综合应用

最新推荐文章于 2021-08-06 14:33:44 发布

tianlangwangluo

最新推荐文章于 2021-08-06 14:33:44 发布

阅读量1.8k

点赞数 1

文章标签： excel菜单自定义 excel自定义插件数据库 excel excel查询数据库

本文链接：https://blog.csdn.net/dutaibai/article/details/52118313

版权

本文将上篇关于Excel自定义菜单和数据库查询的教程整合，通过修改Excel文件，添加查询数据库的模块，实现自定义菜单项触发数据库查询功能。详细步骤包括：保存为.xlam格式，将文件复制到指定AddIns路径，设置Excel加载项。成功后，可在不同电脑上运行该宏，实现便捷的数据查询操作。

摘要由CSDN通过智能技术生成

这篇文章我先把上次写的两篇文章综合起来应用一下。让我们可以带着我们的后到处跑。让别人也可以用我们写的代码。

在上篇自定义EXCEL菜单项的文件基础上。我们稍微修改一下。

我们再插入一个模块，内容就是我们上次写的查询数据库的模块。现在就是把两个模块结合一下。如图：

conn模块代码黏贴：

Public Function search_sql()




Dim I2 As Integer, j2 As Integer, sht As Worksheet     ' i2,j2为整数变量；sht 为excel工作表对象变量，指向某一工作表

Dim R, C, F, I As Integer      'R Excel表的行序号，C  Excel表的列序号 F 查询结果的总记录数  I SQL表的字段序号

Dim strCn As String, strSQL As String '字符串变量





'方法一：直接引入数据库驱动程序
'工具 ---〉引用 ---〉Microsoft ActiveX data objects ....
'然后定义两个驱动
'Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
'Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表

'方法二：不用引入驱动，直接设置驱动。

 Dim cn As Object
 Dim rs As Object
 Set cn = CreateObject("Adodb.Connection")
 Set rs = CreateObject("Adodb.Recordset")

'=========================我用的是方法二======================
'
'
'
'
    


    strCn = "Provider=sqloledb;Server=127.0.0.1;