Mukesh,
Here is the line of code that is throwing the error.
OracleFormWindow("Advanced Pricing").OracleTabbedRegion("List
Lines").OracleTable("LIST_LINES").EnterField 1, "Product Value",
DataTable.GetSheet("output1").GetParameter("Segment1").Value
Here is the error:
The Sheet.GetParameter operation failed. The <Segment1> column does
not exist.
Line (107): "OracleFormWindow("Advanced
Pricing").OracleTabbedRegion("List
Lines").OracleTable("LIST_LINES").EnterField 1, "Product Value",
DataTable.GetSheet("output1").GetParameter("Segment1").Value".
The code generates the sheets and I can see the correct data on the
runtime datatables, 2 new sheets are added "output" and "output1" this
has always worked.
I run into problems on the second sheet "output1" only. With the code
changes you suggested before returning data from the "output"
worksheet is fine.
I added the variable to watch in debug mode and I get the same error
as posted above for "Segement1".
Thanks for the continued assistance.
Jim
On Jan 23, 11:32 pm, Mukesh Takhtani <[email protected]> wrote:
> I would advice you to debug the script and find out at what line it throws
> the error. Add watch for your variables to see if they are having values as
> expected at runtime.
> Learning more on datatable and ADODB would definitely help but learning how
> to debug the code is more important of all.
>
> QTP help is the best source of knowledge (and google of course).
>
> Coming back to your code, can you send the exact error message? Creating
> multiple runtime sheets should work fine as I did in below code (somewhat
> similar to what you have. I replaced recordset loop with a simple FOR loop
> for demo purpose):
>
> For cnt=1 to 3 '<-- 3 sheets will be created at runtime
>
> ''create runtime sheet and its parameters
> Set var_AddSheet = DataTable.AddSheet("Testing" & cnt)
> For i =1 to 10 '<-- instead of recordset fields
> var_AddSheet.AddParameter "Col_" & cnt & "" & i,""
> Next
>
> ''populate the runtime sheet
> For i=1 to 10 '<-- loop through recordset rows
>
> DataTable.GetSheet(var_AddSheet.name).SetCurrentRow(i)
>
> For j=1 to 10 '<--- loop through recordset fields
> DataTable("Col_" & cnt & "" & j, var_AddSheet.name)="value_"
> & j
> Next
>
> Next
>
> Next
>
>
>
>
>
>
>
>
>
> On Mon, Jan 24, 2011 at 2:12 AM, Jimmie Parson <[email protected]> wrote:
> > Mukesh,
>
> > I did as you suggested and that works wonderfully as long as I have
> > only one new sheet created. On some tests I am required to connect to
> > the DB and run multiple scripts which create additional "output"
> > sheets i.e. "output1", "output2". When I try to return the data from
> > the additional sheets I get the error stating the parameter does not
> > exist. I guess my lack of programming knowledge is coming back to bite
> > me again. So the additional questions I have are:
>
> > 1. I am assuming it is possible to return the data from those
> > additional sheets and that I just do not know how. Is the problem just
> > a minor difference from my original post or is my approach faulty?
>
> > 2. I am just duplicating the code I originally posted to create the
> > additional sheets. If this is incorrect can anyone give me a pointer
> > to a resource to learn more about using the database connection and
> > runtime datatables.
>
> > I am posting the code as below as to how I am using it any further
> > suggestions are greatly appreciated.
>
> > Once again Mukesh thank you for the intial code change it has
> > simplified things a great deal.
>
> > 'Connect to Oracle DB and return Customer Information via SQL
> > Statement, then write the data to
> > 'the QTP runtime data table.
>
> > Dim adocon,adorecordset
> > Set adocon=CreateObject("ADODB.Connection")
> > constr="Provider=OraOLEDB.Oracle.1;Password=XXXX;Persist Security
> > Info=True;User ID=XXXX;Data Source=Dev"
> > adocon.Open constr
> > Set adorecordset=CreateObject("ADODB.Recordset")
> > Set adorecordset.ActiveConnection=adocon
> > Strsql="Select 'TEST PRICE LIST:' || to_char(sysdate,' MM-DD-YY
> > HH:MM:SS') as PRICE_LST_NAME from Dual"
> > adorecordset.Source=Strsql
> > adorecordset.Open
> > set outsheet=Datatable.Addsheet("output")
> > For each fld in adoRecordset.Fields
> > outsheet.AddParameter fld.name,""
> > Next
> > i=1
> > Do while Not adorecordset.EOF
> > DataTable.GetSheet(outsheet.name).SetCurrentRow(i)
> > For each fld in adorecordset.Fields
> > outsheet.GetParameter(fld.name).value=fld.value
> > Next
> > adorecordset.MoveNext
> > i=i+1
> > Loop
>
> > 'close the recordset object
> > adorecordset.close
> > 'Destroy the recordset object
> > Set adorecordset = nothing
>
> > 'close the database connection
> > adoCon.close
> > 'Destroy the connection object
> > Set adoCon = nothing
>
> > 'Connect to Oracle DB and return Item Information via SQL Statement,
> > then write the data to
> > 'the QTP runtime datatable.
>
> > Set adocon=CreateObject("ADODB.Connection")
> > constr="Provider=OraOLEDB.Oracle.1;Password=XXXX;Persist Security
> > Info=True;User ID=XXXX;Data Source=Dev"
> > adocon.Open constr
> > Set adorecordset=CreateObject("ADODB.Recordset")
> > Set adorecordset.ActiveConnection=adocon
> > Strsql="SELECT Segment1, Quantity FROM Item_Master"
> > adorecordset.Source=Strsql
> > adorecordset.Open
> > set outsheet=Datatable.Addsheet("output1")
> > For each fld in adoRecordset.Fields
> > outsheet.AddParameter fld.name,""
> > Next
> > i=1
> > Do while Not adorecordset.EOF
> > DataTable.GetSheet(outsheet.name).SetCurrentRow(i)
> > For each fld in adorecordset.Fields
> > outsheet.GetParameter(fld.name).value=fld.value
> > Next
> > adorecordset.MoveNext
> > i=i+1
> > Loop
>
> > 'close the recordset object
> > adorecordset.close
> > 'Destroy the recordset object
> > Set adorecordset = nothing
>
> > 'close the database connection
> > adoCon.close
> > 'Destroy the connection object
> > Set adoCon = nothing
>
> > Mukesh Takhtani wrote:
> > > Jimmie,
>
> > > Replace your below lines of code:
> > > Do while Not adorecordset.EOF
> > > DataTable.SetCurrentRow(i)
>
> > > , with this one :
> > > Do while Not adorecordset.EOF
> > > DataTable.GetSheet(outsheet.name).SetCurrentRow(i)
>
> > > Thanks,
> > > Mukesh
>
> > > On Sat, Jan 22, 2011 at 1:59 AM, Jimmie Parson <[email protected]>
> > wrote:
>
> > > > To all,
>
> > > > I need to know if it is possible to use data from the runtime data
> > > > sheet in its current test?
>
> > > > The example is as follows:
>
> > > > 1. A new sheet is created in runtime datasheet with a script and
> > > > called "output".
>
> > > > 2. The script takes the columns names and inserts them as the "output"
> > > > parameters.
>
> > > > 3. I want to use the values in the "output" sheet in the test. I have
> > > > tried all the ways I can find that reference the global and local
> > > > datasheets but have not found anyway to use the data from the created
> > > > sheet "output"
>
> > > > I will include the code I am using to retrieve the data for the
> > > > runtime datatable.
>
> > > > Dim adocon,adorecordset
> > > > Set adocon=CreateObject("ADODB.Connection")
> > > > constr="Provider=OraOLEDB.Oracle.1;Password=XXXX;Persist Security
> > > > Info=True;User ID=XXXX;Data Source=Dev"
> > > > adocon.Open constr
> > > > Set adorecordset=CreateObject("ADODB.Recordset")
> > > > Set adorecordset.ActiveConnection=adocon
> > > > Strsql="Select 'TEST PRICE LIST:' || to_char(sysdate,' MM-DD-YY
> > > > HH:MM:SS') as PRICE_LST_NAME from Dual"
> > > > adorecordset.Source=Strsql
> > > > adorecordset.Open
> > > > set outsheet=Datatable.Addsheet("output")
> > > > For each fld in adoRecordset.Fields
> > > > outsheet.AddParameter fld.name,""
> > > > Next
> > > > i=1
> > > > Do while Not adorecordset.EOF
> > > > DataTable.SetCurrentRow(i)
> > > > For each fld in adorecordset.Fields
> > > > outsheet.GetParameter(fld.name).value=fld.value
> > > > Next
> > > > adorecordset.MoveNext
> > > > i=i+1
> > > > Loop
>
> > > > --
> > > > 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]<mercuryqtp%[email protected]>
> > <mercuryqtp%[email protected]<mercuryqtp%[email protected]>
>
> > > > For more options, visit this group at
> > > >http://groups.google.com/group/MercuryQTP?hl=en
>
> > > --
> > > Mukesh Takhtani
>
> > --
> > 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]<mercuryqtp%[email protected]>
> > For more options, visit this group at
> >http://groups.google.com/group/MercuryQTP?hl=en
>
> --
> Mukesh Takhtani
--
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
