Office中国论坛/Access中国论坛

标题: ADP只能用ADO吗? [打印本页]

作者: chenwintek 时间: 2002-3-7 20:02
标题: ADP只能用ADO吗?
ADP只能用ADO吗?

作者: xinbao 时间: 2002-3-7 21:17
好像是这样的，因为ADP没有currentdb这些东西

作者: chenwintek 时间: 2002-3-8 01:24
thx

作者: yuab 时间: 2002-3-10 17:24
currentdb是DAO里的现有数据库意思，其实和ADO中的currentproject是一样,在ADP中最好用ADO

作者: zhuyiwen 时间: 2002-3-24 07:17
也能使用VBA代码通过引用DAO来使用MDB数据库。

作者: tmtony 时间: 2002-3-24 07:30
那应该是MDB格式（2000）吧，ADP里应该不行吧（项目格式不存在MDB啦）。

作者: tmtony 时间: 2002-3-25 02:25
我的意思是在MDB中用DAO 引用它自己currentdb 可以
而ADP就不能用这种方式啦
而用DAO的方式去存储其它MDB格式的数据库那是没有问题的

作者: chenwintek 时间: 2002-3-25 03:51
其实也无所谓ADO和DAO，因为在ACCESS里面的代码很少。

作者: zhuyiwen 时间: 2002-3-29 04:47
例子：在ADP项目中使用 Mdb

先在 VBA 编辑器中，引用 Microsoft DAO 3.6 Library

在ADP项目中创建 UseMdb 窗口

添加如下代码：
Option Compare Database
Dim mdb As DAO.Database
Dim mdbWs As DAO.Workspace
Dim mdbRs As DAO.Recordset

Private Sub Form_Load()
Dim strSQL As String

strSQL = "SELECT * FROM 客户"

Set mdbWs = DBEngine.Workspaces(0)
Set mdb = mdbWs.OpenDatabase(CurrentProject.Path & "\Northwind.mdb")

Set mdbRs = mdb.OpenRecordset(strSQL)

Set Me.Recordset = mdbRs
Me.客户ID.ControlSource = "客户ID"
Me.公司名称.ControlSource = "公司名称"
Me.联系人姓名.ControlSource = "联系人姓名"
End Sub

结果如图：

[此贴子已经被zhuyiwen于2002-3-28 20:47:25编辑过]

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