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 に答える