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 & """;"