Data Table Query

[Suma Parimal]

How to fetch the particular cell data in Global/Local sheet? How to check whether that cell is editable or not? Please give me the VB script statement for this.

[supputuri]

Hi there,
we don't have any pure vbscripting methods to get the value from datasheet as it's a QTP specific feature.
Please find the below code which will get the required out out (if i understood your question correctly)

Code:

msgbox GetDataTableCellValue(1,7,2)
Function GetDataTableCellValue(Sheet,Row,Col)
              Dim iRowNumber
              Dim siSheet
              Dim sColumnName
    iRowNumber = Row
    siSheet= Sheet
    sColumnName = GetParameterNumber(siSheet,Col)
    If  iRowNumber <= DataTable.GetSheet(siSheet).GetRowCount Then
        DataTable.GetSheet(siSheet).SetCurrentRow iRowNumber
        GetDataTableCellValue = DataTable.GetSheet(Sheet).GetParameter(sColumnName)    
    Else
        msgbox "The Row '" & iRowNumber & "' does not exit. Please provide a valid row number.",0+16,"Invalid Row Number"
        ExitTest
    End If
End Function
Function GetParameterNumber(Sheet,sParameterNumber)
    On Error Resume Next
    Set oSheet = DataTable.GetSheet(Sheet)
    If oSheet.GetParameterCount = 0 Then
    'If Err.Number <>0  Then
        msgbox "The sheet '" & Sheet & "' does not exit. Please provide a valid sheet name (or) number.",0+16,"Invalid DataSheet Name"
        Set oSheet = Nothing
        ExitTest
    End If
    If  oSheet.GetParameterCount >= sParameterNumber Then
       For iParNumber = 1 to oSheet.GetParameterCount
                GetParameterNumber = oSheet.GetParameter(sParameterNumber).Name
       Next
       Set oSheet = Nothing
    Else
        msgbox "The Column  '" & sParameterNumber & "' does not exit. Please provide a valid column number.",0+16,"Invalid Column Number"
        ExitTest
    End If
End Function

By default all the cells in the runtime datatable are editable. Use the value method of Datatable to edit the value. Note: you can see the new value in the runtime datatable only.

Let me know if you need any more info.

[Suma Parimal]

Hi Supputuri,

Thank you for your reply with solution. Can you let me know the below statement we can use to get the data in the datatable.

Code :

Code:

Dim Value
Value = datatable(row,column)
print(Value)

[supputuri]

No, you can not.
But there is a simple way you can do the same.

Code:

Datatable.SetCurrentRow row
Value = datatable(col,sheetnumber)
print Value

But you have to make sure that "Run Only One Iteration" option under File>Test Settings>Run tab. Otherwise, you will get the entire column values.

[Suma Parimal]

Thank you supputuri, it wil help me a lot.