سؤال
وأحتاج إلى إنشاء ملف .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.
الغامض "عندما أحاول تشغيله.
وأي مساعدة على ما سبق أو اقتراحات بشأن طريقة مختلفة ليقترب هذا من شأنه أن لي محل تقدير كبير.
المحلول
والممتلكات الخاصة بك اتصال سلسلة 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