Retrieve the Data from Database

[bfakruddin]

Thank You Ankur, Now I am getting... No issues

Code:

Option Explicit
'On Error Resume Next
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")

con.open="Provider=SQLNCLI.1;Password=baba;Persist Security Info=True;User ID=Baba;Initial Catalog=baba;Data Source=MICROSOF-BBE3B6\SREE"
rs.open "select * from flight",con


Do until rs.eof
    invokeapplication "D:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
    Dim arr
    i=0
    arr=rs.fields("Userid")
    pwd=rs.fields("pwd")
    dialog("Login").Activate
    dialog("Login").WinEdit("Agent Name:").Set arr
    dialog("Login").WinEdit("Password:").Set pwd
    dialog("Login").WinButton("OK").Click
    If window("Flight Reservation").Exist Then
        reporter.ReportEvent micPass,"Valid Password","Flight Reservation Window Exists"
        else
        reporter.ReportEvent micFail,"InValid Password","Flight Reservation Window doesn't Exists"
    End If
    window("Flight Reservation").Close
    rs.movenext
Loop

rs.close
con.close

Set rs=nothing
Set con=nothing