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