1 Reply Latest reply on Nov 10, 2011 6:23 AM by TonyScalese

    Import from RDB Fails with "Error:Import failed.Invalid data or Empty..."

      Hi Experts,

      While I tried to import data from RDB, it pop up a window shows:"SQL Insert Successful !" but Infor bar have an error msg : " Error: Import failed.Invalid data or Empty content." Besides,it won't write anything on error log.
      Did anyone know this error? Or which setting should be changed? thanks!!!

      FDM version:
      Database: SQL Server 2008
      Import Format setting:File Type-Script

      Script as below:

      Function ImportDBData(strLoc, lngCatKey, dblPerKey, strWorkTableName)
      'Oracle Hyperion FDM IMPORT Integration Script:
      'Created By:      fdmadmin
      'Date Created:      2011-11-08 12:27:25
      Dim cnSS 'ADO connection Object
      Dim strSQL 'SQL String
      Dim rs 'Source system recordset
      Dim rsAppend 'FDM recordset
      'Initialize ADO objects
      Set cnSS = CreateObject("ADODB.Connection")
      Set rs = CreateObject("ADODB.Recordset")
      'Open FDM work table recordset For appending
      Set rsAppend = DW.DataAccess.farsTableAppend(strWorkTableName)
      'Connect To Northwind SQL Server database (our data source)
      Dim strConn
      strConn="Provider=SQLOLEDB.1;Initial Catalog=FDMTEST;Data Source=fiacthfmtd.cdibank.com;User ID=hyperion;Password=password;"
      cnss.open strConn
      'Create source query String
      strSQL = "Select * "
      strSQL = strSQL & "FROM SourceTB "
      'Open source recordset
      rs.Open strSQL, cnSS
      'Check For data In source system
      If rs.bof And rs.eof Then
      'Give Error message
      RES.PlngActionType = 2
      RES.PstrActionValue = "No records To load!"
      'Assign Return value of Function
      SQLIntegration = False
      Exit Function
      End If
      'Loop through source records In Northwind database (Orders table) And append To FDM work table
      If Not rs.bof And Not rs.eof Then
      Do While Not rs.eof
      rsAppend.Fields("PartitionKey") = RES.PlngLocKey
      rsAppend.Fields("CatKey") = lngCatKey
      rsAppend.Fields("PeriodKey") = dblPerKey
      rsAppend.Fields("DataView") = "YTD"
      rsAppend.Fields("Amount") = rs.fields("Data").Value
      rsAppend.Fields("Account") = rs.fields("Account").Value
      rsAppend.Fields("Entity") = rs.fields("Entity").Value
      rsAppend.Fields("ICP") = rs.fields("ICP").Value

      End If
      'Give success message
      RES.PlngActionType = 2
      RES.PstrActionValue ="SQL Import successful!"
      'Assign Return value
      SQLIntegration = True

      End Function