Construir um cubo local
Pergunta
Eu preciso construir um arquivo .cub local para meus Excel-usando clientes.
Eu scrounged juntos algum código VB mas falha:
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
Eu aparadas esse baixo para o código acima e estou recebendo um OLE DB error: OLE DB or ODBC error.
misterioso" quando eu tentar executá-lo.
Qualquer ajuda sobre o acima ou sugestões sobre uma maneira diferente de abordar isso me seria muito apreciado.
Solução
A sua ligação propriedade de cadeia DSN parece errado:
ConnDSN = "SOURCE_DSN=""DSN=TEST;UID=test;PWD=pass;"""
Observe as aspas.
Eu recomendaria uma pequena alteração de código para torná-lo mais intuitivo e à prova de falhas:
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 & """;"
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow