Datatype problem with MSDAORA provider
Hi All,
We are using Oracle 8.1.7 on windows 2000. We are experiencing some problems with fields declared as numeric, decimal or integer. It works only with string. Is there a setting we are missing to get the correct datatype of the fields defined in the returned recordset.
here is the asp program.
Dim conn
set conn = server.CreateObject( "ADODB.Connection")
conn.Open "Provider=MSDAORA.1;Persist Security Info=False;Data Source=ora817", "puser", "puser"
Dim cmd
set cmd = server.CreateObject( "ADODB.Command" )
Set cmd.ActiveConnection = conn
cmd.CommandText = "ORGNQORGDEFAULTS"
cmd.CommandType = 4 ' adCmdStoredProc
Dim rs
Set rs = cmd.Execute
on error resume next
Response.Write rs.Fields(0).Value
Response.Write typename(rs.Fields(0).value)
if err.number <> 0 then
response.Write "This data type is not supported"
end if
And here is the stored procedure invoked in the program
CREATE OR REPLACE PROCEDURE ORGNQORGDEFAULTS
(
RCT1 IN OUT GLOBALPKG.RCT1
)
AS
BEGIN
OPEN RCT1 FOR
SELECT
ADMUSERID,
BATCHADMINUSERID,
MAILADMINUSERID,
ROOTLEAVETIME,
WTYPE_VACATION,
WTYPE_SICKLEAVE,
WTYPE_PERSDAY,
WTYPE_HOLIDAY,
WTYPE_LUNCHBREAK,
WTYPE_VOTING,
WTYPE_JURYDUTY,
WTYPE_WEDDING,
WTYPE_BEREAVLEAVE,
WTYPE_MEDAPPOITM,
WTYPE_MAT_PATLEAVE,
WTYPE_OVERTIME,
ROOTCHARGWORKTYPE,
TASK_VACATION,
TASK_BANKOVERTIME,
TASK_SICKLEAVE,
TASK_PERSDAY,
TASK_HOLIDAY,
TASK_LUNCHBREAK,
TASK_VOTING,
TASK_JURYDUTY,
TASK_WEDDING,
TASK_GRIEVLEAVE,
TASK_MEDAPPOITM,
TASK_MAT_PATLEAVE,
ROOTEXPWRKFLMAP,
ROOTPURWRKFLMAP,
ROOTWRKFLMAP,
ROOTTIMEWRKFLMAP,
ROOTCHARGESITEM,
ROOTHARGESTIME,
ROOTHARGESMONEY,
ROOTRESOURCETYPE,
RESTYPEEMPLOYEES,
RESTYPEVENDORS,
RESTYPEEQUIPMENTS,
RESTYPECLIENTS,
RESTYPEPARTNERS,
ROOTINVWRKFLMAP,
PURITEMEQUIPMENT,
PURITEMMATERIAL,
PURITEMMISC,
PURITEMSERVICES,
PURITEMSUPPLIES,
PURITEMTRAVEL,
WFLW_PROJINITIATION,
WFLW_OPPORTUNITY,
WFLWMP_SUBWFLTIME,
WFLWMP_SUBWFLEXPE,
WFLWMP_SUBWFLPUR,
WFLWMP_SUBWFLINVO,
WFLWMP_SUBWFLWFLMP,
SECPR_ADMIN,
SECPR_GENCLIENT,
SECPR_GENSUPPLIER,
SECPR_STDPARTNER,
SECPR_STDUSER,
ROOTBUSINESSUNIT,
WFLW_RESOURCEREQ,
WFLW_TRAININGREQ,
WFLW_TRAVELREQ,
WFLW_LEAVEREQ,
WFLW_SKILUPDATEREQ,
WFLW_REQUEST,
WFLW_TASKREQUEST,
SECPR_PRJMGR,
SECPR_MGR,
WFLW_KNOWBASE,
WFLW_ACTIONITEM,
ROOTWORKFLOWID,
ROOTPAYCODE,
ROOTFOLDER,
TASKFOLDER,
PROJFOLDER,
EXPENTFOLDER,
PURORDFOLDER,
PURENTFOLDER,
PURITEMFOLDER,
WORKFLFOLDER,
USERFOLDER,
CLIENTFOLDER,
EXPREPFOLDER,
PURRECFOLDER,
ASSIGNMFOLDER,
TIMESHFOLDER,
TIMEENTFOLDER,
CONTRACTFOLDER,
WORKTYPEFOLDER,
DETTIMEENTFOLDER,
CLIENTCONTFOLDER,
SUBWTIME.UNIQUEID SUBWORKFLOWTIME,
SUBWEXPE.UNIQUEID SUBWORKFLOWEXP,
SUBWPUR.UNIQUEID SUBWORKFLOWPUR,
PROJECTINTERNAL,
WRFLENT_DEFAULT,
WFLWMP_SUBWFLREQ,
ROOTVENDORTYPE,
ROOTREQUISITIONTYPE,
ROOTREQWRKFLMAP
FROM PUSER.TORGDEFAULTS,
TORGANIZATION,
TSECORGDEFAULTS,
TFOLDERORGDEFAULTS,
TTIMESHEETWORKFLOW SUBWTIME,
TEXPWORKFLOW SUBWEXPE,
TPURWORKFLOW SUBWPUR
WHERE TORGDEFAULTS.ORGANIZATIONID = TORGANIZATION.ORGUNIQUEID
AND TSECORGDEFAULTS.ORGANIZATIONID = TORGANIZATION.ORGUNIQUEID
AND TFOLDERORGDEFAULTS.ORGANIZATIONID = TORGANIZATION.ORGUNIQUEID
AND TORGDEFAULTS.WFLWMP_SUBWFLTIME = SUBWTIME.WORKFLOWMAPID
AND TORGDEFAULTS.WFLWMP_SUBWFLEXPE = SUBWEXPE.WORKFLOWMAPID
AND TORGDEFAULTS.WFLWMP_SUBWFLPUR = SUBWPUR.WORKFLOWMAPID
AND (TORGANIZATION.ORGNAME = 'TENROX');
END;
/
