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

figfig

新增输入SQL语句后自动创建SQL查询窗体,见18楼


最常用的EXCEL ADO 一般如下：

Sub BB()
Set X = CreateObject("ADODB.CONNECTION")
X.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=YES;imex=0;';data source=" & ThisWorkbook.FullName
Set Y = X.Execute("SELECT * FROM [SHEET1$]")
[C2].CopyFromRecordset Y
End Sub

现在用一楼的附件，一个函数就可解决：
Sub GGW()
CreateObject("ADO.FIG2").conn , "SELECT * FROM [SHEET1$] ", "SHEET2", "c2"
End Sub


用法
CreateObject("ADO.FIG2"). 引用DLL
conn连接
，要连接工作簿 如THISWORKBOOK.FULLNAME(可直接用逗号代替)，“C:\BOOK1.XLS”,
"SELECT * FROM [SHEET1$] ", 要执行的SQL语句
"SHEET2 " ,"C2" 表示把结果输出到"SHEET2 " ,"C2"
如果HDR=NO, 后面输入1 ,否则空着或逗号
如果IMEX=1,后面输入1 否则空着空着或逗号

最常用的EXCEL+ADO + Access 一般如下：

Sub BB()
Set X = CreateObject("ADODB.CONNECTION")
X.Open "provider=microsoft.jet.oledb.4.0;data source=" ＆ "E:\BB.MDB" '假设数据库为E:\BB.MDB
Set Y = X.Execute("SELECT * FROM  表名")
[C2].CopyFromRecordset Y
End Sub
现在用一楼的附件，一个函数就可解决：
Sub GGW2()
CreateObject("ADO.FIG2").conn "E:\BB.MDB", , "SELECT * FROM KK ", "SHEET2", "c2"
End Sub


用法
CreateObject("ADO.FIG2"). 引用DLL
conn连接
"E:\BB.MDB", 要 连接数据库如，“C:\DATA.MDB”,
,接下来输入密码,如无密码,输入逗号即可
"SELECT * FROM KK ", 要执行的SQL语句,J假设表名为KK
"SHEET2 " ,"C2" 表示把结果输出到EXCEL"SHEET2 ", "C2

CreateObject("ADO.FIG2"). 引用DLL 目前仅支持 EXCEL/ACCESS,
其他数据库连接请用CreateObject("ADO.FIG"). 用法楼下有说明



附件安装说明直接运行，自动安装

3.其他实例,连接几乎所有数据库,创建ADOX,浏览目录等等....

具体见楼下的详细补充

[ 本帖最后由 figfig 于 2008-11-5 18:25 编辑 ]

富戈

学习，figfig 大师精品辈出！

富戈

测试成功。
请问dll文件是通过什么编程语言编写，如何编写。很想知道这个啊！

figfig

用法
Sub GG()
Set X = CreateObject("ADO.FIG").CONN("数据库名称如C:\data.mdb")
[C2].CopyFromRecordset X.Execute("SELECT * FROM  表名")

End Sub

figfig

原帖由 富戈 于 2008-10-30 10:34 发表
测试成功。
请问dll文件是通过什么编程语言编写，如何编写。很想知道这个啊！

请参考

http://club.excelhome.net/viewth ... =%B7%E2%D7%B0%2BDLL

figfig

如SQL SERVER,ORACLE,TEXT,CSV 等,这样用一个函数就可以调用所有数据库,不需要查找,黏贴连接字符串

富戈

当然需要阿，希望能添加  SQL Server  ，txt  、csv 等功能，然后举一些例子。谢谢figfig大师了。

为什么不要求添加 Oracle ？因为还没有学过，Oracle 是大型数据库，不是我等所能学习的。有了 SQL Server 应该够用了。

寅鹞

我个人觉得还是用类模块比较灵活方便！

figfig

用法:

SQL SERVER :
Set X = CreateObject("ADO.FIG").CONN("服务器192.168.1.1", "数据库TEMP", "用户SA", "密码123")
SQL SERVER  本地
Set X = CreateObject("ADO.FIG").CONN("", "数据库TEMP", "用户SA", "密码123")

ACCESS
有密码
Set X = CreateObject("ADO.FIG").CONN("e:\data.mdb", "123")
无密码
Set X = CreateObject("ADO.FIG").CONN("e:\data.mdb")
CSV:
Set X = CreateObject("ADO.FIG").CONN("csv", "路径如e:\")
TXT:
Set X = CreateObject("ADO.FIG").CONN("TXT", "路径如e:\")
EXCEL
Set X = CreateObject("ADO.FIG").CONN(ThisWorkbook.FullName)
Set X = CreateObject("ADO.FIG").CONN("C:\TEST.XLS")
EXCEL HDR=NO IMEX=1
Set X = CreateObject("ADO.FIG").CONN("C:\TEST.XLS",1,1)

[ 本帖最后由 figfig 于 2008-10-30 14:39 编辑 ]

figfig

SQL SERVER  本地 WINDOWS 认证方式
Set X = CreateObject("ADO.FIG").CONN("", "数据库名"）

[ 本帖最后由 figfig 于 2008-10-30 21:28 编辑 ]