Getting Error: Object doesn't support

[mydestiny]

Hi,
Well first of all i would like to thank to learnQTP I am new to QTP and learning from this site only. Got enough materials and especially good tips from the forum.

I have written the following code:

Code:

Dim sOpenUrl sOpenUrl = "http://newtours.demoaut.com/" invokeURL(sOpenUrl) Set objDescriptive = Description.Create() objDescriptive("name").value = "user.*" Set userNameObject = Browser("title:=Welcome:.*").Page("title:=Welcome: .*").ChildObjects(objDescriptive) For i =0 to userNameObject.count -1 userNameObject(i).Set "Demo" Next Function invokeURL(sUrl ) Dim objIE Dim objOpenIE Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate sURL End Function

When i executed .. i am getting following error:
Object doesn't support this property or method: 'userNameObject(...).Set'
Line (10): "userNameObject(i).Set "Demo"".

Can any one guide me? Also please suggest whether i have implemented DP concept correctly or not ?

Cheers,
Prasad

[Tarik Sheth]

Here is the corrected code:

Code:

Dim sOpenUrl sOpenUrl = "http://newtours.demoaut.com/" invokeURL(sOpenUrl) Set objDescriptive = Description.Create() objDescriptive("name").value = "userName" ' You missed to define webedit class for the object, now it works and username field is set with "Demo" objDescriptive("micclass").value="WebEdit" Set userNameObject = Browser("title:=Welcome:.*").Page("title:=Welcome: .*").ChildObjects(objDescriptive)

'Verify whether the object exist or not, put else condition if it does not.

Code:

If userNameObject.Count <>0 Then For i =0 to userNameObject.count -1 userNameObject(i).Set str Next End If

I hope this clears your query.

Code:

Function invokeURL(sUrl ) Dim objIE Dim objOpenIE Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate sURL End Function[hr]

Add str="Demo"

[mydestiny]

Thanks Tarik. But if i want to use the same concept for password field which micclass is also webEdit, then QTP won't identify which editfield it is going to put the value.
Any suggestion!!!!

[Tarik Sheth]

Ok,

For every editbox class just define html tag as "INPPUT", in this case there are 2 edit box available on the web page so you need to include webedit class and html tag as "INPUT".
Following is what you need to write.

Code:

Dim sOpenUrl str="Demo" sOpenUrl = "http://newtours.demoaut.com/" invokeURL(sOpenUrl) Set objDescriptive = Description.Create()

'This code will input Demo in username and password fields.

Code:

objDescriptive("html tag").value="INPUT" objDescriptive("micclass").value="WebEdit" Set userNameObject = Browser("title:=Welcome:.*").Page("title:=Welcome: .*").ChildObjects(objDescriptive)

'Verify whether the object exist or not, put else condition if it does not.

Code:

If userNameObject.Count <>0 Then For i =0 to userNameObject.count -1 userNameObject(i).Set str Next End If

'I hope this clears your query.

Code:

Function invokeURL(sUrl ) Dim objIE Dim objOpenIE Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate sURL End Function

Hope this will answer your query