[原创] 如何在QTP中创建ACCESS数据库引擎

[复制链接]

zhangshen0504

该用户从未签到

电梯直达

1^#

发表于 2006-7-18 10:18:48 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我参考了一下QTP samples plus中的一段代码（如下），但是运行时系统总是提示“Activex不允许创建"DAO.DBEngine.35"对象 ”，不知哪位高手可否帮忙，告诉我一下到底应该怎么办？
注：我安装的是QTP9.0/ACCESS2003

Dim MyDB

Dim MyEng

Set MyEng = CreateObject("DAO.DBEngine.35")

Dim Td

Dim rs

' Specify the database to use.

Set MyDB = MyEng.OpenDatabase("BIBLIO.MDB")

' Read and use the name of the first 10 authors.

Set Td = MyDB.TableDefs("Authors")

Set rs = Td.OpenRecordset

rs.MoveFirst

For i = 1 To 10

Browser("Book Club").Page("Search Books").WebEdit("Author Name").Set rs("Author")

Browser("Book Club").Page("Search Books").WebButton("Search").Click

Next

database, 如何, 数据库