로컬 큐브 만들기

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 error: OLE DB or ODBC error.을 얻고있다

하나를 위의 제안이나 다른 방법으로이 방법에 대한 도움을 받아 주시면 감사하겠습니다.

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