一行代码搞定ADO +EXCEL +ACCESS( 封装 dll 实例)

figfig

输入SQL语句后自动创建SQL查询窗体

附件已更新详细说明在：http://club.excelhome.net/thread-365287-2-1.html
先下载一楼
用法;
查询EXCEL
Sub GGW()
CreateObject("ADO.FIG2").conn , "SELECT * FROM [SHEET1$] ", "SHOW", ""
End Sub
用法
CreateObject("ADO.FIG2"). 引用DLL
conn连接
，要连接工作簿 如THISWORKBOOK.FULLNAME(可直接用逗号代替)，“C:\BOOK1.XLS”,
"SELECT * FROM [SHEET1$] ", 要执行的SQL语句
"SHOW" 表示把结果输出到自动创建的窗体
"", 不能省略
如果HDR=NO, 后面输入1 ,否则空着或逗号
如果IMEX=1,后面输入1 否则空着空着或逗号

查询ACCESS
Sub GGW2()
CreateObject("ADO.FIG2").conn "E:\BB.MDB", , "SELECT * FROM KK ", "SHOW", ""
End Sub
用法
CreateObject("ADO.FIG2"). 引用DLL
conn连接
"E:\BB.MDB", 要 连接数据库如，“C:\DATA.MDB”,
,接下来输入密码,如无密码,输入逗号即可
"SELECT * FROM KK ", 要执行的SQL语句,J假设表名为KK
"SHOW" 表示把结果输出到自动创建的窗体
"", 不能省略

[ 本帖最后由 figfig 于 2008-11-4 00:15 编辑 ]