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

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

在上篇自定义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;