QTP Database conenction and parameterization of the values

[somisays]

Dear Siri,

This is the Code...Hope it works out for you..
I tested my version on my PC By using different table...
Let me know the result....

Code:

Set Conn = CreateObject("ADODB.Connection") Conn.ConnectionString = ("DSN=devmitg;username=xxx;password=yyy;") Conn.Open Set rs = Conn.Execute("Select Code, Meaning From TB_AMS052_Codes Where Code_Nam = 'Pole' ") For each fields in rs.fields DataTable.GlobalSheet.AddParameter fields.name , "" Next rs.MoveFirst iRow = 1 Do DataTable.SetCurrentRow iRow DataTable("Code",dtGlobalSheet) = rs.fields("Code") DataTable("Meaning",dtGlobalSheet) = rs.fields("Meaning") iRow = iRow + 1 rs.MoveNext loop until rs.EOF Conn.close Set Conn = Nothing Set Rs = Nothing

[siri]

hi sridhar ,

The test run cannot continue due to an unrecoverable error.

Wrong number of arguments or invalid property assignment: 'DataTable.GlobalSheet.AddParameter'


I am getting an error at this line itself .
I am getting the access to databse and gettign data from there to the msg box

But i am noit able to put them into the datatable of qtp

[siri]

Hi Sridhar ,

The following code is working ,but here in the test results pane it showing me the data in the data table but not in the Expert view window .
I believe we need to save so any function to save such as rs.save

Code:

'Data base connection' Set conn=CreateObject("ADODB.Connection") conn.Open("DRIVER={Oracle in OraHome92};SERVER=DEVMITG;UID=ITL_ASSET;PWD=ITL_ASSET;DBQ=DEVMITG") 'rs connection record set' Set rs = CreateObject("ADODB.recordset") ' Specify the query' sql = "Select Code, Meaning From TB_AMS052_Codes Where Code_Nam = 'Pole' " 'ctr=0 'Execute the Query’ rs.open sql,conn 'Get the no records returned by query’ ' Code.GetROProperty (Property, [PropertyData]) 'Adding a column to datatable’ For each fields in rs.fields DataTable.GlobalSheet.AddParameter fields.name , "" Next rs.MoveFirst iRow = 1 Do DataTable.SetCurrentRow iRow 'DataTable("Code",dtGlobalSheet) = rs.fields("Code") DataTable("Meaning",dtGlobalSheet) = rs.fields("Meaning") iRow = iRow + 1 rs.save rs.MoveNext loop until rs.EOF 'Get the values from the Meaning column’ While(NOT rs.EOF) ' ctr=ctr+1 ' For i=1 to Recordcount ' Msgbox rs.Fields("code "+"meaning") ' Msgbox (rs.Get Row ) ' Msgbox rs.Fields("Meaning") ' DataTable.SetCurrentRow(i) 'Writing the data to the datatable’ ' DataTable("Meaning",DtGlobalSheet) = rs.Fields("Meaning") rs.MoveNext ' Next ' ctr=ctr+1 wend ' Msgbox (ctr-1) 'close the database connection’ 'DataTable.Export "C:\DatabaseExample.xls" rs.close conn.close

[siri]

Hi Sridhar,
According to athe above scritp i am able to get the data from the database to data table .

But is it is not saving in the expert view only saving i nthe test results pane .
I am forwarding you the screenshots of the same

[somisays]

Dear Siri,
The data is going to store only in runtime datatable is test results pane.So if you want the data then you have to use the following...

DataTable.Export "C:\DatabaseExample.xls"

So use the export command to get the data.

[siri]

hi sridhar ,

Thanks for hte great help .

I could get the data .
into the excelsheet on to the desktop.

Thanks a lot again .

Learning a lot from this forums helping me a lot .

I need to get the row count thats it i will do it thanks again
If any quesries will post



Code I used :

Great its working

Code:

'Data base connection' Set conn=CreateObject("ADODB.Connection") conn.Open("DRIVER={Oracle in OraHome92};SERVER=DEVMITG;UID=ITL_ASSET;PWD=ITL_ASSET;DBQ=DEVMITG") 'rs connection record set' Set rs = CreateObject("ADODB.recordset") ' Specify the query' sql = "Select Code, Meaning From TB_AMS052_Codes Where Code_Nam = 'Pole' " ''Execute the Query’ rs.open sql,conn '‘Adding a column to datatable’ For each fields in rs.fields DataTable.GlobalSheet.AddParameter fields.name , "" Next rs.MoveFirst iRow = 1 Do DataTable.SetCurrentRow iRow DataTable("Code",dtGlobalSheet) = rs.fields("Code") DataTable("Meaning",dtGlobalSheet) = rs.fields("Meaning") iRow = iRow + 1 'rs.save rs.MoveNext loop until rs.EOF 'Get the values from the Meaning column’ While(NOT rs.EOF) rs.MoveNext wend DataTable.Export "C:\Documents and Settings\501404673\Desktop\data.xls" rs.close conn.close

[surya_7mar]

i think you got the solution

[siri]

hi surya,

Have u tried the flex builder

[surya_7mar]

i didnt get chance to try it.

[gammaflare]

Wow.....that was incredible and wow Somisays has got lot of patience.........