51Testing软件测试论坛

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

作者: zhangshen0504 时间: 2006-7-18 10:18
标题: 如何在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

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