Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
proclarity olap and VBA
- Thread starter amsh7
- Start date
I'm not sure about proclarity.
I think what u're aksing is to view the cube data in VB. if this is the case here's some code to get u started:
Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Screen.MousePointer = vbHourglass
fgResults.Clear
cnn.Open "Provider=MSOLAP.1; " & _
"Integrated Security=SSPI;Data Source=MyComputer;" & _
"Initial Catalog=[foodmart 2000];"
rst.Source = "SELECT NEST([Promotion Media].MEMBERS, " & _
vbCrLf & "[Gender].MEMBERS) ON ROWS, " & _
vbCrLf & "NEST([Education Level].MEMBERS, " & _
vbCrLf & "[Marital Status].MEMBERS) ON COLUMNS" & _
vbCrLf & "FROM Sales"
rst.ActiveConnection = cnn
rst.Open
Set fgResults.DataSource = rst
fgResults.Refresh
Screen.MousePointer = vbDefault
End Sub
hope this helps
Sam
I think what u're aksing is to view the cube data in VB. if this is the case here's some code to get u started:
Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Screen.MousePointer = vbHourglass
fgResults.Clear
cnn.Open "Provider=MSOLAP.1; " & _
"Integrated Security=SSPI;Data Source=MyComputer;" & _
"Initial Catalog=[foodmart 2000];"
rst.Source = "SELECT NEST([Promotion Media].MEMBERS, " & _
vbCrLf & "[Gender].MEMBERS) ON ROWS, " & _
vbCrLf & "NEST([Education Level].MEMBERS, " & _
vbCrLf & "[Marital Status].MEMBERS) ON COLUMNS" & _
vbCrLf & "FROM Sales"
rst.ActiveConnection = cnn
rst.Open
Set fgResults.DataSource = rst
fgResults.Refresh
Screen.MousePointer = vbDefault
End Sub
hope this helps
Sam
I'm not sure about proclarity.
I think what u're aksing is to view the cube data in VB. if this is the case here's some code to get u started:
Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Screen.MousePointer = vbHourglass
fgResults.Clear
cnn.Open "Provider=MSOLAP.1; " & _
"Integrated Security=SSPI;Data Source=MyComputer;" & _
"Initial Catalog=foodmart;"
rst.Source = "SELECT NEST([Promotion Media].MEMBERS, " & _
vbCrLf & "[Gender].MEMBERS) ON ROWS, " & _
vbCrLf & "NEST([Education Level].MEMBERS, " & _
vbCrLf & "[Marital Status].MEMBERS) ON COLUMNS" & _
vbCrLf & "FROM Sales"
rst.ActiveConnection = cnn
rst.Open
Set fgResults.DataSource = rst
fgResults.Refresh
Screen.MousePointer = vbDefault
End Sub
hope this helps
Sam
I think what u're aksing is to view the cube data in VB. if this is the case here's some code to get u started:
Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Screen.MousePointer = vbHourglass
fgResults.Clear
cnn.Open "Provider=MSOLAP.1; " & _
"Integrated Security=SSPI;Data Source=MyComputer;" & _
"Initial Catalog=foodmart;"
rst.Source = "SELECT NEST([Promotion Media].MEMBERS, " & _
vbCrLf & "[Gender].MEMBERS) ON ROWS, " & _
vbCrLf & "NEST([Education Level].MEMBERS, " & _
vbCrLf & "[Marital Status].MEMBERS) ON COLUMNS" & _
vbCrLf & "FROM Sales"
rst.ActiveConnection = cnn
rst.Open
Set fgResults.DataSource = rst
fgResults.Refresh
Screen.MousePointer = vbDefault
End Sub
hope this helps
Sam
- Status