Hi Vamsi,
Try use "Type" instead of "Set". Hope it will work.

Regards,
Manik

On Sat, Jun 25, 2011 at 8:41 PM, vamsi reddy <[email protected]> wrote:
> Hi All,
> I am using below code to connect the Date Base and Login the Flight Appln..
>
> '-------------------------------------------------------------------------------
> Option explicit
> Dim con,rs
> Set con = Createobject("ADODB.connection")
> Set rs=createobject("ADODB.recordset")
>   con.Open"provider=SQLOLEDB;Server=DELL\MSSQLSERVER1;User
> ID=sa;pwd=vamsi;database=SQL_Table"
>   rs.Open "select*from Flight" ,con
> Do while not rs.EOF
>     SystemUtil.Run "C:\Program Files\HP\QuickTest
> Professional\samples\flight\app\flight4a.exe"
>     Dialog("Login").WinEdit("Agent Name:").Set rs.Fields("uname")
>     Dialog("Login").WinEdit("Password:").Set rs.Fields("pwd")
>     Dialog("Login").WinButton("OK").Click
>     Window("Flight Reservation").Close
> Loop
> con.Close
> '---------------------------------------------------------------------------------------
> DATABASE
> '---------------------------------------------------------------------------------------
> uname pwd
> Vamsi     mercury
> Reddy     mercury
> Kumar     mercury
> vijay     mercury
> '---------------------------------------------------------------------------------------
> When I  run the code:
>  Dialog("Login").WinEdit("Password:").Set rs.Fields("pwd")
>  Error message displayed as 'The Operation Cannot be performed' --
> --Run_Error.JPG,
> --Flight.JPG
>    QTP enters username but not Pass word .
>    How could i enter password.
> Thanks in Advance
>
> --
> Vamsi Reddy
> 09618272979
>
>
>
>
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en

-- 
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en

Reply via email to