51Testing软件测试论坛

标题: 如何在QTP中创建ACCESS数据库引擎 [打印本页]

作者: zhangshen0504 时间: 2006-7-19 09:52
标题: 如何在QTP中创建ACCESS数据库引擎
我参考了一下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 时间: 2006-7-19 12:26
我这里没什么问题嘛

作者: zhangshen0504 时间: 2006-7-19 16:04
可是我这边还是不可以呀，是不是因为我的数据库是2003的缘故呢，附件中是我这边运行脚本时报错的图片，请帮忙再分析一下吧

作者: xiaonan 时间: 2006-7-19 16:46
我也是office 2003的，但这句上并没有报错

作者: zhangshen0504 时间: 2006-7-19 16:54
谢谢版主的热心帮忙，我再去其他的机器上试一下，也许我的配置有问题吧，非常感谢

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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)