I want to check in the data table(Globalsheet) column exist
or not through script .If column not exist only proceeded
to next step Pls tell me how to proceeded?
Answers were Sorted based on User's Feedback
Answer / drew
Answer 1 is good if you don't have a lot of data to write to
the data table. I sometimes have 20 columns to write to and
to check for the column each time before writing the data
can take 2 or more seconds each (40 seconds for the entire
row)...way to long if doing a repetitive task.
Answer 3 won't work because you will get a QTP error on the
line "Val = DataTable("UserId", dtGlobalSheet)" if the
column doesn't exist. But you can use that error to make a
very speedy function to find out if the column exists:
If COM_DoesDataTableColumnExist("Global","Column1") Then
''Column Exists
Else
''Column Does Not Exist
End If
Public Function COM_DoesDataTableColumnExist(ByVal
strSheetName,ByVal strColumnName)
Dim blnReturnValue
Dim strTestColumn
Err.Clear
On Error Resume Next
strTestColumn =
DataTable.GetSheet(strSheetName).GetParameter(strColumnName).Name
If Err <> 0 Then
blnReturnValue = False
Else
blnReturnValue = True
End If
Err.Clear
COM_DoesDataTableColumnExist = blnReturnValue
End Function
| Is This Answer Correct ? | 21 Yes | 5 No |
Answer / ravi bandaru
Function isParameterExists(sheetName, paramName)
isParameterExists = FALSE
ParamTotal = DataTable.GetSheet("Global").GetParameterCount
For i = 1 To ParamTotal
value = DataTable.GetSheet("Global").GetParameter(i).Name
Msgbox value
If strComp(paramName,value)=0 Then
isParameterExists=TRUE
Exit Function
End if
Next
End Function
'Example:
If isParameterExists("Global","hh") then
msgbox "Patameter exists"
Else
msgbox "Patameter does not exist"
<Your statements>
End if
| Is This Answer Correct ? | 8 Yes | 2 No |
Answer / nani4urs
Hi ravi Please run above sript in qtp.
is it works?
| Is This Answer Correct ? | 3 Yes | 6 No |
Answer / garywu
Public Function existColumn(byval Sheetname,byval ColumnNum)
paramcount = DataTable.GetSheet
(Sheetname).GetParameterCount
If ColumnNum>paramcount then
existColumn=False
else
existColumn=True
End If
End Function
| Is This Answer Correct ? | 1 Yes | 6 No |
Answer / rajaputra
Try for this,
Val = DataTable("UserId", dtGlobalSheet)
If val=false Then
msgbox "Parameter does not exist"
Else
msgbox "Parameter exists"
End If
| Is This Answer Correct ? | 2 Yes | 12 No |
what is Compile Module in QTP? what exactly it contains Functions or Actions?
write vbscript on veb applications in qtp with exapmles?
How exactly you start scripting in QTP? In the interview he was not satisfied with my answer.Please post what is correct answer.
Is it possible to call win runner script in qtp?
How can i store runtime value through vb script while using qtp
how we implement share object repository in QTP 9.0 without using quality Centre , Explaine in brief
how i can delete the excel process for the task manager using QTP
If some requirements r changed during the testing process ,then how can u handle this in frame work?
Suppose u run ur script today and it is working fine ,nobody has changed the setting and all.u r the owner for the script. But when tomorrow I ran the same script again it got failed and It didn't able to identify one object. Can you tell me what would be the reason for this
How to do the scripting. Are there any inbuilt functions in QTP? What is the difference between them? How to handle script issues?
General Ques : At What State u start Automating ? means at what stage we start writing QTP scripts ?
i need qtp tutorial. pls send it to sridhar.k151@g mail.com