|
|||||||
Метод CreateWorkspace
Время создания: 16.03.2019 23:43
Текстовые метки: vba, DAO, CreateWorkspace, Workspace
Раздел: Разные закладки - VBA - Access - DAO
Запись: xintrea/mytetra_db_adgaver_new/master/base/1513855825txre1pigat/text.html на raw.githubusercontent.com
|
|||||||
|
|||||||
www.ПЕРВЫЕ ШАГИ.ru :: Шаг 19 -Метод CreateWorkspace Описание Set рабочаяОбласть = CreateWorkspace(имя, пользователь, пароль, тип)
Параметры
Замечания Пример Sub CreateWorkspaceX()
Dim wrkODBC As Workspace
Dim wrkJet As Workspace
Dim wrkLoop As Workspace
Dim prpLoop As Property
' Создает рабочую область ODBCDirect. До создания рабочей ' области Microsoft Jet, ядро базы данных Microsoft Jet
' не будет загружено в память.
Set wrkODBC = CreateWorkspace("ODBCWorkspace", "admin", "", dbUseODBC)
Workspaces.Append wrkODBC
DefaultType = dbUseJet
' Создает безымянный объект Workspace с типом, ' указанным в свойстве DefaultType объекта DBEngine
' (dbUseJet).
Set wrkJet = CreateWorkspace("", "admin", "")
' Отображает семейство Workspaces. Debug.Print "Объекты Workspace в семействе Workspaces:"
For Each wrkLoop In Workspaces
Debug.Print " " & wrkLoop.Name
Next wrkLoop
With wrkODBC
' Отображает семейство Properties объекта ODBCDirect. Debug.Print "Свойства " & .Name
On Error Resume Next
For Each prpLoop In .Properties
Debug.Print " " & prpLoop.Name & " = " & prpLoop
Next prpLoop
On Error GoTo 0
End With
With wrkJet
' Отображает семейство Properties рабочей области ' Microsoft Jet.
Debug.Print "Свойства безымянной рабочей области Microsoft Jet"
On Error Resume Next
For Each prpLoop In .Properties
Debug.Print " " & prpLoop.Name & " = " & prpLoop
Next prpLoop
On Error GoTo 0
End With
wrkODBC.Close
wrkJet.Close
End Sub
|
|||||||
Так же в этом разделе:
|
|||||||
|
|||||||
|