You have to get a recordset out of the database and iterate through it to enter the values into the datatable.

This page (Using Database Functions (microfocus.com)) has some good examples on it for a variety of things. The last one on the list “Function represent_values_of_RecordSet( myrs)” can be modified to insert the data into the DataTable instead of reporting it as they do in this function. You would use the other functions on that page to connect to the DB (db_connect) and get the recordset (db_execute_query).

Don’t forget to dismiss your objects and disconnect from the database.

Post a copy of your query code. Are you absolutely sure your query is finding data? Have you tested the query through another interface? What version of the product are you using?

hi,
yes i am sure that query is finding data. When i am using that query in sql Developer it is returning appropriate data. Actually the problem is when i am trying to fetch multiple values it is hot returning anything. And when i am trying to fetch single value, it is returning expected value.
Also, the problem is with 32 bit machine. Same code for fetching multiple vales is working in 64 bit machine.

I have installed oracle client 11g in my machine.

I am using below code:-
Function FetchValue_DataSource_AllValue_DataTable(strDataSource,strSqlQuery)

On Error resume Next
Dim oCon, oRes

err.clear
Set oCon = CreateObject(''ADODB.Connection'')
Set oRes = CreateObject(''ADODB.Recordset'')
oCon.Open strDataSource
If oCon.State = 1 Then
Set oRes = oCon.Execute(strSqlQuery)
oRes.Open strSqlQuery, oCon,3,3,1
If oRes.EOF = ''False'' Then
oRes.MoveFirst
intmaxCount = oRes.RecordCount
intColCount = oRes.Fields.Count
For j = 0 To intColCount -1 Step 1
datatable.LocalSheet.AddParameter oRes.Fields(j).Name,''''
Next
For i = 0 to intmaxCount-1
datatable.LocalSheet.SetCurrentRow(i+1)
For j = 0 To intColCount -1 Step 1
strDTColName = oRes.Fields(j).Name
strDBColName = oRes.Fields(j).Name
' If Instr(1,strDTColName, Then strDTColName = ''COUNT''
If strDTColName = ''COUNT(*)'' Then strDTColName = ''COUNT''
If IsNumeric(Mid(strDTColName,1,1)) Then strDTColName = ''_'' & strDTColName
datatable.Value(strDTColName,dtLocalSheet) = oRes.Fields(strDBColName).Value
Next
oRes.MoveNext
Next
Else
result= ''Null''
end If
Else
Call Sub_WriteToResultsLog(1,''Not able to connect with DB, Please Verify Manually'','''')
result= ''Null''
End If

If err.number <> 0 Then result= ''Null''

FetchValue_DataSource_AllValue_DataTable = result

If oRes.State = 1 Then oRes.Close
If oCon.State = 1 Then oCon.Close

Set oRes = Nothing
Set oCon = Nothing

On Error Goto 0

End Function