Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.
mCellset.Open sQry, cnn 'Tidy the query of an erroneous spaces sQry = Trim(sQry) 'Open the query that was constructed above With mCellset 'open access recordset to write cube query to mConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppGlobals.DBLOCATION Set recSRC = New ADODB.Recordset recSRC.Open "Test", mConnection, adOpenKeyset, adLockOptimistic, adCmdTableDirect For j = 0 To mCellset.Axes(1).Positions.Count - 1 sValue = mCellset(0, j) dim1 = mCellset.Axes(1).Positions(j).Members(0).Caption dim2 = mCellset.Axes(1).Positions(j).Members(1).Caption dim3 = mCellset.Axes(1).Positions(j).Members(2).Caption With recSRC .AddNew !Dimension1 = dim1 !Dimension2 = dim2 !Dimension3 = dim3 !MeasureValue = sValue .Update End With Next j 'close recordset recSRC.Close 'close cellset mCellset.Close
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!