HP Mercury QTP
Written by Raj
Automation Object Model
QTP Utility Functions - Database
msgbox My_dbquery(10)
Dim My_Query, MyDesc
Public Function My_dbquery(ord_no)
DataConn = "C:\Das\tozip\lib\flight32.mdb"
Set Conn = CreateObject("ADODB.Connection")
ConStr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & DataConn & ";"
Conn.open(ConStr)
SQL = "SELECT Orders.Customer_Name FROM Orders Orders WHERE (Orders.Order_Number=" &ord_no &")"
Set recordset = Conn.execute(SQL)
Read more: Introduction to QTP (QuickTest Professional) Part4
