ADP只能用ADO吗?

chenwintek

ADP只能用ADO吗?

xinbao

好像是这样的，因为ADP没有currentdb这些东西

chenwintek

thx

yuab

currentdb是DAO里的现有数据库意思，其实和ADO中的currentproject是一样,在ADP中最好用ADO

zhuyiwen

也能使用VBA代码通过引用DAO来使用MDB数据库。

tmtony

那应该是MDB格式（2000）吧，ADP里应该不行吧（项目格式不存在MDB啦）。

zhuyiwen

例子：在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编辑过]

tmtony

我的意思是在MDB中用DAO 引用它自己currentdb 可以
而ADP就不能用这种方式啦
而用DAO的方式去存储其它MDB格式的数据库那是没有问题的

chenwintek

其实也无所谓ADO和DAO，因为在ACCESS里面的代码很少。