构建本地多维数据集

Question

我需要为使用Excel的客户端构建一个本地.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错误：OLE DB或ODBC错误。＆quot;当我试图运行它时。

上述任何帮助或以不同的方式提出建议我都会非常感激。

Answer 1

您的连接字符串DSN属性似乎错误：

ConnDSN = "SOURCE_DSN=""DSN=TEST;UID=test;PWD=pass;"""

注意引号。

我建议进行一些小的代码更改，使其更直观，更安全：

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