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

zhangshen0504

我参考了一下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

xiaonan

我这里没什么问题嘛

zhangshen0504

可是我这边还是不可以呀，是不是因为我的数据库是2003的缘故呢，附件中是我这边运行脚本时报错的图片，请帮忙再分析一下吧

xiaonan

我也是office 2003的，但这句上并没有报错

zhangshen0504

谢谢版主的热心帮忙，我再去其他的机器上试一下，也许我的配置有问题吧，非常感谢

zhangshen0504

真让人发愁，别的机器上运行的结果和在我的机器上是一样的，我才学QTP不久，可能什么地方没有考虑到吧，附件中是我的全部代码，麻烦再帮帮忙吧