Рядки підключення ADO у VBA для Microsoft SQL

Зведення. У цій статті описано відомості, необхідні для відображення у вікні певного вікна через підключення

ADO.


ДОКЛАДНІШІ ВІДОМОСТІ Перший параметр – жорсткий код ідентифікатора

користувача, пароля, імені бази даних і імені джерела даних. Ось приклад цього: (Цей рядок підключення буде все в одному рядку

у


VBA). ConnectionString="Provider=SQLOLEDB;DSN=eEnterprise; User=sa; Password=;InitialCatalog=TWO" DSN буде джерелом даних ODBC, яке налаштовано


для SQL Server. У цьому прикладі пароль пустий. Початковий каталог – це ім'я бази даних, у якій розміщено дані.


Якщо не потрібно кодувати ці відомості, можна отримати всі ці відомості за допомогою DLL-файлу. Цей .dll знайти на сторінці PartnerSource або CustomerSource в розділі Завантаження & оновлень | Випуски продукту | Продовження в eEnterprise Product Releases | Модифікатор або зразки VBA. Файл називається ActiveX
DLL для отримання відомостей про вхід.


У включеному файлі Readme показано, як оголошувати змінні, щоб використовувати файл DLL. Приклад коду оголосить змінні, а потім використає змінні в рядку підключення.


Dim userinfo As

Object Dim luserid As String

Dim lsqlpassword As String

Dim lintercompanyid As String

Dim lsqldatasourcename As String


This code be on a window open event.


Set userinfo = CreateObject("RetrieveGlobals.retrieveuserinfo")

luserid = userinfo.retrieve_user()

lsqlpassword = userinfo.sql_password()

lintercompanyid = userinfo.intercompany_id()

lsqldatasourcename = userinfo.sql_datasourcename()


Тоді в рядку підключення потрібно використовувати змінні.

(Цей рядок підключення все буде в одному рядку у


VBA). ConnectionString="Provider=SQLOLEDB;DSN="+lsqldatasourcename+"; UserID="+luserid+";p assword="+lsqlpassword+";Initial Catalog="+lintercompanyid. Цей тип рядка підключення з програмою retrieve.dll отримує


ім'я користувача, пароль, компанію, у яка вони ввійшли, і джерело даних, що використовується.

Ця стаття: TechKnowledge Document ID:22116