Retrieve the Data from Database

[newqtp]

I have been trying this as for practice and I have found out that DSN=QT_Flight32 (Mercury flight reservation application) does not have any table containing Userid and Password information.

Code:

arr=rs.fields("Userid")
pwd=rs.fields("pwd")

OR

Code:

arr=rs.fields("Login_name")
pwd=rs.fields("Pass")[hr]
Option explicit
Dim con,rs

Set con = Createobject("ADODB.connection")
Set rs  =Createobject("ADODB.RecordSet")
        con.connectionstring="DSN=QT_Flight32;"
        con.Open
        con.commandTimeOut=7000
Set rs =con.execute("select * from flights")
msgbox rs.getstring


Do
invokeapplication "C:\Program Files\Mercury Interactive\QuickTestProfessional\samples\flight\app\flight4a.exe"

Dim  i
i = 0
user=rs.fields("Userid") 'does anyone know about the table which contains user id and pasword info
pwd=rs.fields("pwd")
dialog("Login").Activate
dialog("Login").WinEdit("Agent Name:").Set user
dialog("Login").WinEdit("Password:").Set pwd
dialog("Login").WinButton("OK").Click
window("Flight Reservation").Close
rs.movenext
Loop  until rs.eof

rs.close
con.close

Set rs=nothing
Set con=nothing