Метод DBEngine.CreateWorkspace (DAO)

Статья
04/04/2023

Область применения: Access 2013, Office 2013

Создает новый объект Workspace .

Синтаксис

expression . CreateWorkspace(Name, UserName, Password, UseType)

expression: переменная, представляющая объект DBEngine.

Параметры

Имя	Обязательный/необязательный	Тип данных	Описание
Name	Обязательный	String	Строка, которая однозначно присваивает имя новому объекту Workspace. Сведения о допустимых именах рабочих областей см. в свойстве Name.
UserName	Обязательный	String	Строка, идентифицирующая владельца нового объекта Workspace. Дополнительные сведения см. в свойстве UserName .
Password	Обязательный	String	Строка, содержащая пароль для нового объекта Workspace. Пароль может содержать до 20 символов и может содержать любые символы, кроме символа ASCII 0 (null). ПРИМЕЧАНИЕ. Используйте надежные пароли, сочетающие верхние и строчные буквы, цифры и символы. В ненадежных паролях не используются сочетания таких элементов. Надежный пароль: Y6dh!et5. Слабый пароль: House27. Используйте надежный пароль, который можно запомнить, чтобы не пришлось его записывать.
UseType	Необязательный	Variant	Одно из значений WorkspaceTypeEnum . ПРИМЕЧАНИЕ: Рабочие области ODBCDirect не поддерживаются в Microsoft Access 2013. Используйте ADO, если вы хотите получить доступ к внешним источникам данных без использования ядра СУБД Microsoft Access.

Возвращаемое значение

Рабочая область

Замечания

После использования метода CreateWorkspace для создания нового объекта Workspace запускается сеанс рабочей области , и вы можете ссылаться на объект Workspace в приложении.

Объекты рабочей области не являются постоянными, и их нельзя сохранить на диске. После создания объекта Workspace вы не сможете изменить какие-либо параметры его свойств, за исключением свойства Name , которое можно изменить перед добавлением объекта Workspace в коллекцию Workspaces .

Вам не нужно добавлять новый объект Workspace в коллекцию, прежде чем его можно будет использовать. Только что созданный объект Workspace добавляется только в том случае, если к нему нужно ссылаться через коллекцию Workspaces .

Чтобы удалить объект Workspace из коллекции Workspaces , закройте все открытые базы данных и подключения, а затем используйте метод Close для объекта Workspace .

Пример

В этом примере используется метод CreateWorkspace для создания рабочей областиMicrosoft Access. Затем выводится список свойств рабочей области.

Sub CreateWorkspaceX() 
 
   Dim wrkAcc As Workspace 
   Dim wrkLoop As Workspace 
   Dim prpLoop As Property 
 
   DefaultType = dbUseJet 
   ' Create an unnamed Workspace object of the type  
   ' specified by the DefaultType property of DBEngine  
   ' (dbUseJet). 
   Set wrkAcc = CreateWorkspace("", "admin", "") 
 
   ' Enumerate Workspaces collection. 
   Debug.Print "Workspace objects in Workspaces collection:" 
   For Each wrkLoop In Workspaces 
      Debug.Print "  " & wrkLoop.Name 
   Next wrkLoop 
 
   With wrkAcc 
      ' Enumerate Properties collection of Microsoft Access  
      ' workspace. 
      Debug.Print _ 
         "Properties of unnamed Microsoft Access workspace" 
      On Error Resume Next 
      For Each prpLoop In .Properties 
         Debug.Print "  " & prpLoop.Name & " = " & prpLoop 
      Next prpLoop 
      On Error GoTo 0 
   End With 
 
   wrkAcc.Close 
 
End Sub

Поделиться через