Construction d'un cube local

Question

Je dois créer un fichier .cub local pour mes clients utilisant Excel.

Je grappillé ensemble un code VB, mais il échoue.

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 

J'ai coupé cela à code ci-dessus et je reçois un OLE DB error: OLE DB or ODBC error. mystérieux "lorsque je tente de l'exécuter

Tous aider au-dessus ou des suggestions sur une autre façon d'aborder cela me apprécié

Answer 1

Votre propriété DSN chaîne de connexion semble erroné.

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

Notez les guillemets.

Je recommande un petit changement de code pour le rendre plus intuitif et fail-safe:

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