Reading Hyperion Brio Query Section using VB6

1. Declaration of brio object & document.

Dim mybrioobj As New BrioQry.Application
Dim myDdoc As BrioQry.Document



2. Openning brio file from the location "path".

Set myDdoc = mybrioobj.Documents.Open(path)




3. Create Query Section object, Section name is the name of the query section. A brio file can have query section, result/table section, pivot & dashboard.

Dim qry As BrioQry.QuerySection
Set qry = mySdoc.Sections(SectionName)




4. Looping all request items

For l = 1 To qry.Requests.Count
               RequestName = qry.Requests(l).DisplayName
               SQLName = qry.Requests(l).SQLName
               DataType = qry.Requests(l).DataType
               isUniqueRows = qry.UniqueRows
               isVisible = qry.Requests(l).Visible
Next



4. Closing Objects

 myDdoc.Close                                'or     mybrioobj.ActiveDocument.Close
 mybrioobj.Quit
 Set mybrioobj = Nothing