1

我需要为使用 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 error: OLE DB or ODBC error.当我尝试运行它时,我得到了一个神秘的 "。

对上述任何帮助或有关解决此问题的不同方法的建议,我将不胜感激。

4

1 回答 1

2

您的连接字符串 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 & """;"
于 2009-04-29T08:20:23.797 回答