又是DSO中的问题，兄弟姐妹快来啊！

hawkinsky 2003-08-21 12:04:06

Dim dsoserver As DSO.Server
Dim dsodb As DSO.MDStore
Dim dsoDataSrc As DSO.DataSource
dsoserver = New DSO.Server()
dsoserver.Connect("ll")
dsodb = dsoserver.MDStores.Item("test")

'数据源
dsoDataSrc = dsodb.DataSources.AddNew("taizhang")
dsoDataSrc.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=台帐;Extended Properties=""DSN=台帐;UID=Administrator;APP=Microsoft? Visual Studio .NET;WSID=LL;DATABASE=road;Network=DBMSSOCN;Trusted_Connection=Yes"""
dsoDataSrc.Update()

Dim a As String
a = dsocube.DataSources(1)

最后一句有错，不认dsocube.DataSources(1)
提示说“Interface 'Dso.Olapcollection' can not be indexed because it has no default property”

到下面用dsocube.MDStores(1)的时候也是这个错
到底怎么样才会有“default property”呢？怎么该啊？：（

...全文

27 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

luolin000111 2003-08-21

打赏
举报

DSO主要是做什么呀？：）

hawkinsky 2003-08-21

打赏
举报

改了还是这样

chump 2003-08-21

打赏
举报

语法是不是不正确？
.FromClause = """TaiZhang"",""DanWei"",""ShiJian"",""SunHuaiXM"",""SunHuaiFenLei"",""SunHuaiLeiBie"""

hawkinsky 2003-08-21

打赏
举报

是可以用dsocube.MDStores.Item(1),但是运行的时候老说“在结构中发现未与其它任何表连接的表”，但是我一共就六个表啊
'定义多维数据集
Dim dsocube As DSO.MDStore
dsocube = dsodb.MDStores.AddNew("fenxi")

'定义事实表
With dsocube
.DataSources.AddNew(dsoDataSrc.Name)
.SourceTable = """TaiZhang"""
.Dimensions.AddNew("ShiJian")
.Dimensions.AddNew("SunHuai")
.Dimensions.AddNew("DanWei")
'指定多维数据集的源表和链接语句
.FromClause = "TaiZhang,DanWei,ShiJian,SunHuaiXM,SunHuaiFenLei,SunHuaiLeiBie"
.JoinClause = "(""TaiZhang"".""DanWei_id""=""DanWei"".""DanWei_id"")AND(""TaiZhang"".""Time_id""=""ShiJian"".""time_id"")AND(""TaiZhang"".""SunHuai_id""=""SunHuaiXM"".""SunHuai_id"")AND(""SunHuaiXM"".""FenLei_id""=""SunHuaiFenLei"".""FenLei_id"")AND(""SunHuaiFenLei"".""LeiBie_id""=""SunHuaiLeiBie"".""LeiBie_id"")"
End With
看，六个表都在里面了，为什么老是不认呢？木人兄你有没有办法？

hawkinsky 2003-08-21