Database Connection :Microsoft Access database With QTP

1
15
Spread the love
  • 1
  •  
  •  
  •  
  •  
  •  
  •  
  •  
  •  
  •  
    1
    Share

The Expert View enables you to access databases using ADO and ODBC. Below is a sample test that searches for books written by an author in the “Authors” table of the database.

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

Don't miss out!
Subscribe To Newsletter

Receive top technical news, lesson ideas, travel tips and more!

Invalid email address
Give it a try. You can unsubscribe at any time.

Spread the love
  • 1
  •  
  •  
  •  
  •  
  •  
  •  
  •  
  •  
  •  
    1
    Share

1 COMMENT

LEAVE A REPLY

Please enter your comment!
Please enter your name here