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

jilijun

连接字串符都能做到DLL中，真是长见识了！感谢分享！

figfig

EXCEL 本地（THISWORKBOOK。FULLNAME）ADO访问已简化
Sub GG()
Set x = CreateObject("ADO.FIG").CONN()
[C2].CopyFromRecordset x.Execute("SELECT * FROM [SHEET1$]")
End Sub


ADOX 支持，“CAT”代表 ADOX。CATALOG

Sub GG1()
Set x = CreateObject("ADO.FIG").CONN("c:\book1.xls", "cat")
For Each kkk In x.tables
MsgBox kkk.Name
Next
End Sub


浏览文件夹下面所有文件，注意返回的是字典对象，FILE  代表所有文件 XLS 代表EXCEL 文件

Sub GG2()
Set x = CreateObject("ADO.FIG").CONN("c:\", "xls")
For Each kkk In x
MsgBox kkk
Next
End Sub

[ 本帖最后由 figfig 于 2008-11-1 22:36 编辑 ]

figfig

最常用的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 否则空着空着或逗号

[ 本帖最后由 figfig 于 2008-11-2 09:13 编辑 ]

smhf_6

走过路过，千万不要错过，今天又有收获，FIGFIG的作品，顶

figfig

最常用的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”,
,接下来输入密码,如"123",如无密码,输入逗号即可
"SELECT * FROM KK ", 要执行的SQL语句,J假设表名为KK
"SHEET2 " ,"C2" 表示把结果输出到EXCEL"SHEET2 ", "C2"

[ 本帖最后由 figfig 于 2008-11-2 09:41 编辑 ]

figfig

先下载一楼附件已更新
用法;
查询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-3 09:05 编辑 ]

zhyf360

谢谢分享，学习一下

figfig

1楼附件已更新为自动安装版，方便使用者

figfig

欢迎提出更多ADO的新要求以便加入模块中

ifhwfu

能否加入访问  SQL Server 数据库的访问，并考虑不同方式验证。比如，如果采用 Windows 验证方式  和  采用  SQL  Server 身分验证