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