Построение локального куба
Вопрос
Мне нужно создать локальный файл .cub для моих клиентов, использующих Excel.
Я собрал немного 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.
"когда я пытаюсь запустить его.
Я был бы очень признателен за любую помощь по вышеизложенному или предложения о другом подходе к этому.
Решение
Ваше свойство строки подключения 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