[分享]ADO SQL查询、汇总、删除、导入工具(通用于ACCESS/EXCEL)

彭希仁

一个可以对EXCEL/ACCESS查询与汇总的工具.可同时对单工作表,多工作表,多工作薄进行查询与汇总.

[此贴子已经被作者于2008-3-9 10:40:18编辑过]

[ 本帖最后由 彭希仁 于 2008-12-2 10:26 编辑 ]

hhzjxss

彭希仁真厉害，你的那个象棋做得真不错，大概是用了递归什么的算法吧？

jjw530

没密码的文件可以吗？2000格式的ACCESS行吗？

测试了几个文件，均无法链接显示数据库的表名。

彭希仁

QUOTE:

以下是引用hhzjxss在2007-9-13 16:43:08的发言：

彭希仁真厉害，你的那个象棋做得真不错，大概是用了递归什么的算法吧？

呵呵，写象棋就是为了学习递归。

彭希仁

QUOTE:

以下是引用jjw530在2007-9-13 16:49:44的发言：

没密码的文件可以吗？2000格式的ACCESS行吗？

测试了几个文件，均无法链接显示数据库的表名。

已解决（差点忘了还有没有密码的数据库，错误的把程序写成没有密码不执行）

jjw530

还是没搞定：

 

彭希仁

用它试试，看看错误提示是什么？ 

Z5dNfoTb.rar (67.87 KB, 下载次数: 661)

2007-9-13 17:34 上传

点击文件名下载附件
[分享]ACCESS通用查询与汇总工具

jjw530

还会导致EXCEL重启

[此贴子已经被作者于2007-9-13 17:44:32编辑过]

彭希仁

Private Sub ComboBox7_Enter()
On Error GoTo ren
    If TextBox3.Text = "" Then Exit Sub
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    ComboBox7.Clear
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & TextBox3.Text & ";Jet OLEDB:Database Password=" & TextBox4.Text
    Set rst = cnn.OpenSchema(adSchemaTables)
    Do Until rst.EOF
        If rst!TABLE_TYPE = "TABLE" Then
            ComboBox7.AddItem rst!TABLE_NAME
        End If
        rst.MoveNext
    Loop
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
ren:
End Sub

换了一种写法，不知是否可行。

[此贴子已经被作者于2007-9-13 19:29:53编辑过]

laosanjie

楼主厉害啊！！！已下载收藏了。非常期望楼主能再接再厉，“构建一个EXCEL与ACCESS桥梁，即EXCEL中随意操作ACCESS，”！若能做到这样，那真是我等菜鸟的福音！！！