Importing Oracle Database data to RunTime datatable

[prabhu656656]

Hi,
Is there a method or script that could Import Oracle Database data to RunTime datatable in QTP.

Thank You.
Prabhu
______________

[Jackomcnabb]

I haven't loaded a batabase into datatable but I have loaded a database inot the an array.... which would be much faster to query would this help at all

[Jackomcnabb]

'
'--- Run SQL query to create record set ---
'

Code:

With RecordSet .ActiveConnection = connString .CursorLocation = adUseClient .CursorType = adOpenDynamic .Open strSQL1, , , , adCmdText Set LineItem = RecordSet End With

strSQL1 is the Query that would be run to make the data you need to be loaded

[jparson11]

This will connect to ORacle and run a SQL query and return the results to the runtime datatable. It uses the field names from the query as the column names in the Excel format.

Code:

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