質問
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エラーが発生しています。
"実行しようとすると。
上記のヘルプまたはこれにアプローチする別の方法に関する提案は、私に感謝します。
解決
接続文字列の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 & """;"
所属していません StackOverflow