How to create an oracle integration script?

Question

Hi All,
I need to load data into FDM directly from Oracle database and i`m trying to use the Integration Script.
the Script that i`m using is:
Dim objSS          'ADODB.Connection
Dim strOra           'SQL string
Dim rs           'Recordset
Dim rsAppend      'tTB table append rs object
'Initialize objects
Set cnSS = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set rsAppend = DW.DataAccess.farsTableAppend(strWorkTableName)
cnss.open "Provider=ORAOLEDB.ORACLE;Data Source=<data source name>;User ID=<user id name>;password=<password>"
However when i run the script on WebClient i got the message:
ERROR:
Code............................................. -2147217887
Description...................................... Multiple-step operation generated errors. Check each status value.
At line: 43
Procedure........................................ clsImpProcessMgr.fExecuteImpScript
Component........................................ upsWObjectsDM
Version.......................................... 1112
Thread........................................... 12780
IDENTIFICATION:
User............................................. <<User Name>>
Computer Name.................................... <<Server>>
App Name......................................... <<App Name>>
Client App....................................... WebClient
CONNECTION:
Provider......................................... ORAOLEDB.ORACLE
Data Server......................................
Database Name.................................... <<DB Name>>
Trusted Connect.................................. False
Connect Status.. Connection Open
Somebody have an idea about this error?
Thanks in advance!

Answer 1

Follow the entire Script:
Function Teste(strLoc, lngCatKey, dblPerKey, strWorkTableName)
Dim objSS          'ADODB.Connection
Dim strOra           'Ora string
Dim rs           'Recordset
Dim rsAppend      'tTB table append rs object
'Initialize objects
Set cnSS = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set rsAppend = DW.DataAccess.farsTable(strWorkTableName)
cnss.open "Provider=ORAOLEDB.ORACLE;Data Source=<<Data Source Name>>;User ID=<<user id>>;password=<<password>>"
strOra = "Select Col1,Col2,Col3,Col4,Col5 "
strOra = strOra & "FROM TB_Test"
'Get data
rs.Open strOra, cnSS
'Check for data
     If rs.bof And rs.eof Then
          RES.PlngActionType = 2
RES.PstrActionValue = "No Records to load!"
          Exit Function
     End If
'Loop through records and append to tTB table in location's DB
     If Not rs.bof And Not rs.eof Then
          Do While Not rs.eof
          rsAppend.AddNew
               rsAppend.Fields("PartitionKey") = RES.PlngLocKey
               rsAppend.Fields("CatKey") = lngCatKey
               rsAppend.Fields("PeriodKey") = dblPerKey
               rsAppend.Fields("DataView") = "YTD"
'The next one is the line 43
               rsAppend.Fields("Amount") = rs.fields("Col1").Value
               rsAppend.Fields("Account") = rs.fields("Col2").Value
               rsAppend.Fields("Entity") = rs.fields("Col3").Value
               rsAppend.Fields("UD1") = rs.fields("Col4").Value
               rsAppend.Fields("UD2") = rs.fields("Col5").Value
          rsAppend.Update
          rs.movenext
          Loop
     End If
          'Close Record Sets
          rs.close
          rsAppend.close
'Assign Return value
Teste = True
End Function
Edited by: Guerino on May 9, 2011 2:04 PM