I
ilona
We use OWC to provide viewing of OLAP data. Works fine on most client boxes
with Office 2000 or Office XP that access the application. One box w/Office
XP cannot render OWC and gives this error:
"Object doesn't support this property or method:'DSC.ConnectionString'
The same box can connect fine to the OLAP server using Excel Pivot Services.
Would really appreciate any clues or troubleshooting techniques.
Here is the code used in the app:
Sub BindPivot(ptable, dsc)
' Clear any binding there may be
set ptable.DataSource = nothing
' Bind the PivotTable to the DSC
set ptable.DataSource = dsc
ptable.DataMember = scubename
' If we have a saved view, set the XML data for the pivot table
if sxmldata <> "" then
ptable.XMLData = sxmldata
end if
FormatPivotFromStyles ptable
End Sub
Function SetConnection(dsc, fOffline)
' Set the connection string to use an OLAP server
'Provider=MSOLAP.2;Data Source=http://bla-bla-02;Initial Catalog=Foodmart
2000;Roles=All Users;Client Cache Size=25;Auto Synch Period=10000
dsc.ConnectionString = sconnectionstring
' Return success
SetConnection = True
End Function
with Office 2000 or Office XP that access the application. One box w/Office
XP cannot render OWC and gives this error:
"Object doesn't support this property or method:'DSC.ConnectionString'
The same box can connect fine to the OLAP server using Excel Pivot Services.
Would really appreciate any clues or troubleshooting techniques.
Here is the code used in the app:
Sub BindPivot(ptable, dsc)
' Clear any binding there may be
set ptable.DataSource = nothing
' Bind the PivotTable to the DSC
set ptable.DataSource = dsc
ptable.DataMember = scubename
' If we have a saved view, set the XML data for the pivot table
if sxmldata <> "" then
ptable.XMLData = sxmldata
end if
FormatPivotFromStyles ptable
End Sub
Function SetConnection(dsc, fOffline)
' Set the connection string to use an OLAP server
'Provider=MSOLAP.2;Data Source=http://bla-bla-02;Initial Catalog=Foodmart
2000;Roles=All Users;Client Cache Size=25;Auto Synch Period=10000
dsc.ConnectionString = sconnectionstring
' Return success
SetConnection = True
End Function