Office中国论坛/Access中国论坛

标题: DAO代码转ADO代码 [打印本页]

---

作者: wang1999    时间: 2003-11-7 17:18
标题: DAO代码转ADO代码
DAO代码转ADO代码

我对ADO刚刚入门不久,而对DAO一点都不懂
这里有一段DAO代码是从"刘小军(Alex)的又一巨作：ACCESS常用窗体查询"
转载过来的.代码如下.请大伙帮忙转换一下.关键字是--QueryDef--
在DAO中--QueryDef（）--对象用于创建一个永久的或临时的查询。
那么对应的ADO中方法或对象是什么呢.请大伙同时解答一下.

Private Sub cmd导出_Click()
On Error GoTo Err_cmd导出_Click
    Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
    Dim strWhere, strSQL As String
   
    strWhere = Me.存书查询子窗体.Form.Filter
    If strWhere = "" Then
        strSQL = "SELECT * FROM [存书查询]"
    Else
        strSQL = "SELECT * FROM [存书查询] WHERE " & strWhere
    End If   
    Set qdf = CurrentDb.QueryDefs("查询结果")
    qdf.SQL = strSQL
    qdf.Close
   
    Set qdf = Nothing
    DoCmd.OutputTo acOutputQuery, "查询结果", acFormatXLS, , True   
End Sub
[em00]

---

作者: cg1    时间: 2003-11-8 02:16
请参考

http://access911.net/index.asp?board=4&recordid=73FAB01E14DC

---

作者: wang1999    时间: 2003-11-8 05:49
原来直接用ADO中的execute就可以创建——最常用的方法也就最容易忽视，已知方法却没好利用
原来access中也可创建视图，我原本以为只有在SQL中才可创建——俺孤陋寡闻

还有一个非常棒的例子：如下，初学者及大伙可参考学习
在ACCESS中也有SCHEMA这样的概念，大致如同windows 2000及sql2000中的吧
《用ADO列出某个表的所有字段、索引》
http://access911.net/index.asp?board=4&mode=3&recordid=77FAB71E14DC


今天真是太爽了，不仅巩固已有的ADO知识，还学到很多方法。非常感谢cg1兄弟的引荐！！！[em05]

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3