BusinessObjects Board

How can i add commentary section and a shapefile to DB

other Xcelsius - Crystal Dashboard Design
#1

Hello…
i was wondering about adding a shape-file to BO 4 dashboard designer, as a map object… is it possible without an addon??

also can a user add comments on a published dashboard?? (and save it?)

TDE_AF (BOB member since 2014-02-17)

#2

No, there is no way to add shape files to Xcelsius/Dashboards without an
add-in. Centigon Solutions is the best option for this.

As for adding and saving comments on a dashboard, this also cannot be done ‘out of the box’. The Local Scenario component lets a user save comments, but he could only see his own comments and not anyone else’s (hence the name "local’). You may want to check into 3rd party solutions for this as well, like InfoBurst which allows you to Writeback data to a database table and retrieve it instantly.

Hope this helps,
~RoxanneP

Sr BI Consultant
InfoSol, Inc.

RoxanneP :us: (BOB member since 2006-08-07)

#3

Depending on how you host your dashboard, it is possible to add and save comments to a dashboard.

For example, if you host your dashboard on an IIS server, you could write an ASPX script to take and input and update/write to a table.

Here is some sample code:


<%@ Page Language="VB" aspcompat="true" Debug="true" validateRequest="false" %> 
<%@ Import Namespace="System.IO" %> 
<%@ Import Namespace="System.XML" %> 
<%@ Import Namespace="System.XML.XPath" %> 
<%@ Import Namespace="System.Data" %> 
<%@ Import Namespace="System.Data.SqlClient" %> 
<%@ Import Namespace="System.Web" %> 
<%@ Import Namespace="System.Web.HttpContext" %> 

<% 

'### -------------------- Update Section ------------------------------- ### 
    
    Dim sharedConn As New SqlClient.SqlConnection("Data Source=ServerName;Initial Catalog=DatabaseName;User Id=UserID;Password=Password;") 
    Dim cmdUpdate As System.Data.SqlClient.SqlCommand = sharedConn.CreateCommand() 
    Dim strUpdateCommand As String 
    sharedConn.Open() 
    
    '### Declare Variables for XML Parsing 
    Dim sXMLString As String = ""
    Dim sFormitem As String 
    Dim sRPath As String 
    Dim sPath As String 
    Dim iRangeLength As Integer 
    Dim iRowLength As Integer 
    Dim iRangeCounter As Integer 
    Dim iCounter As Integer 
    Dim oXML As Object 
    Dim oRNodeList As Object 
    Dim oRNode As Object 
    Dim oNodeList As Object 
    Dim oNode As Object 

      
    '### Get XML that was sent from SWF file 
    For Each sFormitem In Request.Form 
        sXMLString = sXMLString &amp; sFormitem &amp; " = " &amp; Request.Form(sFormitem) 
    Next 

    '### Load XML into object 
    oXML = Server.CreateObject("MSXML2.DOMDocument") 
    oXML.async = False 
    oXML.validateOnParse = False 
    oXML.loadXML(sXMLString) 
    'oXML.load(sXMLString) 

    '### Declare the Variables needed to load XML values then use in SQL update command 
    Dim pID AS Integer
    Dim strField1 AS String
    Dim strField2 AS String 

    '### Use XPath to get the data 
    '### Find the number of ranges or variables to be exported 
    sRPath = "/data/variable" 
    oRNodeList = oXML.documentElement.selectNodes(sRPath) 
    
    iRangeLength = oRNodeList.Length 
    
    For iRangeCounter = 0 To iRangeLength - 1 
        oRNode = oXML.documentElement.selectSingleNode("/data/variable[" + CType(iRangeCounter, String) + "]/row") 
       
        '### Write out the data set for the range 
        sPath = "/data/variable[" + CType(iRangeCounter, String) + "]/row" 
              
        '### Find the number of rows for the range              
        oNodeList = oXML.documentElement.selectNodes(sPath) 
        iRowLength = oNodeList.Length 
       
        For iCounter = 0 To iRowLength - 1 
            oNode = oXML.documentElement.selectSingleNode("/data/variable[" + CType(iRangeCounter, String) + "]/row[" + CType(iCounter, String) + "]/column") 
            
		  pID = oNode.text 'Get the value of the first field
		  oNode = oNode.nextSibling 'Move to the next field 
		  strMetric = oNode.text 'Get the value of the second field
		  oNode = oNode.nextSibling 'Move to the next field 
		  strComm = oNode.text 'Get the value of the third field

            
            strUpdateCommand = "Update TableName Set Field1 = '" &amp; strField1 &amp; "', " &amp; "Field2 = '" &amp; strField2 &amp; "' " &amp; "Where ID = " &amp; pID 
            'Response.Write(strUpdateCommand &amp; "<br>") 
            
            cmdUpdate.CommandText = strUpdateCommand 
            cmdUpdate.ExecuteNonQuery() 
        Next 'Write a blank line before the next range starts 
    Next 

    sharedConn.Close() 
    sharedConn = Nothing 
    cmdUpdate = Nothing 

%>

greg.wayne :us: (BOB member since 2010-09-28)