Binaryworld - How to display shaped recordset with Microsoft Hierarchical FlexGrid ( ... [ VB -> Controls ]

To run this demo perform following steps.

- Create a standard exe project
- Add reference to Microsoft Hierarchical FlexGrid (MSHFlexGrid). you can do this by Pressing Ctl + T or Project -> Components.
- Add one MSHFlexgrid on the form1
- Add one button on the form1
- Add one textbox
- Set text1 text to mdb path which we are going to use.
- Press F5 to run the project
- Click on the command button to populate the grid

Click here to copy the following block

Dim cn As New Connection, rs As New Recordset

Private Sub Command1_Click()
  Dim cnStr, sql

  cnStr = "Data Source=" & Text1 & "; Provider=MSDataShape; Data Provider=Microsoft.Jet.OLEDB.4.0;"
  cn.Open cnStr

  sql = "SHAPE {SELECT * FROM Publishers} AS cmdPublishers APPEND ({SELECT * FROM Titles} AS cmdTitles RELATE 'PubID' TO 'PubID') AS cmdTitles"
  rs.Open sql, cn
  Set MSHFlexGrid1.DataSource = rs

  rs.Close
  cn.Close
End Sub