Transpose an ADO recordset
Posted on 2004-08-27
I've got a JET/ADO query in a VB6 app that returns a recordset with x1 to xn columns, y1 to yn rows, and a value (an average) for each cell. I need to transpose - in memory, not excel - this so that I have x1 to xn as rows, y1 to yn as column names and the correct value in each cell.
Anyone have any VB6 code that will do this? Note: the number of columns/rows is dynamic and changes depending on user inputs.
sort of like:
public function TranADOset(rstIn as adodb.recordsset) as adodb.recordset
'do the transpose