BusinessObjects Board

Exporting data from a tab into RDBMS

sdk development
#1

What is the best way to export data from a tab in the Bo report directly into a database table.
This tab is coming from multiple data providers linked with each other and these dataproviders are based on quesries from diff datbases and other data source.
The only way I could think of is by svaing the tab as text file and then loading it into a database table.
Please let me know if there is any other better way.

Thanks
Reema

reemagupta (BOB member since 2002-09-18)

#2

Your proposal (export to text, import / link into database), is the best method.

Dwayne Hoffpauir :us: (BOB member since 2002-09-19)

#3

Thanks for confirming

Reema

reemagupta (BOB member since 2002-09-18)

#4

You’re quite welcome. You may be interested in the white paper attached to this post.

Dwayne Hoffpauir :us: (BOB member since 2002-09-19)

#5

Dwayne, Thanks Again for the link.
Does anyone has the code to read the data from text file and break the information into columns.
I was trying to use Split function of VB, but it is not recognised by BO VBA code.

Thanks
Reema

reemagupta (BOB member since 2002-09-18)

#6

I’d recommend using ADO. It’s built into Windows, takes just a bit of tinkering to get it going, but it is blazingly fast!

Dwayne Hoffpauir :us: (BOB member since 2002-09-19)

#7

Here is a simple example of a split function that you could use in VBA. It won’t be terribly fast, but it will work.

Function Split(ByVal inp As String, Optional delim As String = ",") As Variant
    ' Chris Rae's VBA Code Archive - http://chrisrae.com/vba
    ' Code written by Chris Rae, 25/5/00
    Dim outarray() As Variant
    Dim arrsize As Integer
    While InStr(inp, delim) > 0
        ReDim Preserve outarray(0 To arrsize) As Variant
        outarray(arrsize) = Left(inp, InStr(inp, delim) - 1)
        inp = Mid(inp, InStr(inp, delim) + Len(delim))
        arrsize = arrsize + 1
    Wend
    ' We still have one element left
    ReDim Preserve outarray(0 To arrsize) As Variant
    outarray(arrsize) = inp
    Split = outarray
End Function

Chris

CRJ2000 (BOB member since 2005-06-01)

#8

I had 9 items in that string seperated by tab:

Here is what I did

For i = 1 To 9

  p = InStr(pARow, vbTab)

 Onerowarray(i) = (Mid(pARow, 1, p - 1))
 pARow = Mid(pARow, p + 1)

Next i

Thanks for the help

Reema

reemagupta (BOB member since 2002-09-18)