build立一个地方立方体
我需要为使用Excel的客户端创build一个本地.cub文件。
我已经拼凑了一些VB代码,但它失败了:
ConnLocation = "LOCATION=C:\test.cub;" ConnDSN = "SOURCE_DSN=DSN=TEST;UID=test;PWD=pass;" ConnCreateCube = _ "CREATECUBE=CREATE CUBE [TestCube] (" & _ "DIMENSION [account_code]);" Connection = CreateObject("ADODB.Connection") Connection.Provider = "msolap" Connection.ConnectionString = _ ConnLocation & _ ConnDSN & _ ConnCreateCube
我已经修剪到上面的代码,并得到一个神秘的OLE DB error: OLE DB or ODBC error.
“当我尝试运行它。
任何帮助上述或build议在不同的方式来处理这个,我非常感激。
您的连接stringDSN属性似乎是错误的:
ConnDSN = "SOURCE_DSN=""DSN=TEST;UID=test;PWD=pass;"""
注意引号。
我会build议一个小的代码更改,使其更直观,更安全:
ConnLoc = "C:\test.cub" ConnDSN = "DSN=TEST;UID=test;PWD=pass" ConnSQL = "CREATE CUBE [TestCube] (DIMENSION [account_code])" Connection = CreateObject("ADODB.Connection") Connection.Provider = "msolap" Connection.ConnectionString = "LOCATION=""" & ConnLoc & """;" & _ "SOURCE_DSN=""" & ConnDSN & """;" & _ "CREATECUBE=""" & ConnSQL & """;"