Описание
Задает или возвращает значение, указывающее тип рабочей области (Microsoft Jet или ODBCDirect), который будет использоваться при создании следующего объекта Workspace.
Значение
Задаваемое или возвращаемое значение имеет тип данных Long и определяется одной из следующих констант:
Замечания
Приоритет над данным значением при создании конкретного объекта Workspace имеет значение аргумента тип метода CreateWorkspace.
Пример
Следующая программа использует свойство DefaultType для определения типа объекта Workspace, который будет создаваться при следующем вызове метода CreateWorkspace. Для выполнения данной процедуры требуется функция TypeOutput.
Sub DefaultTypeX() Dim wrkODBC As Workspace Dim wrkJet As Workspace Dim prpLoop As Property ' Определяет свойство DefaultType и создает объект Workspace ' без указания его типа. DBEngine.DefaultType = dbUseODBC Set wrkODBC = CreateWorkspace("ODBCWorkspace", "admin", "") Debug.Print "DBEngine.DefaultType = " & _ TypeOutput(DBEngine.DefaultType) With wrkODBC ' Отображает семейство Properties объекта Workspace. Debug.Print "Свойства " & .Name On Error Resume Next For Each prpLoop In .Properties Debug.Print " " & prpLoop.Name & " = " & prpLoop If prpLoop.Name = "Type" Then Debug.Print " (" & TypeOutput(prpLoop.Value) & ")" Next prpLoop On Error GoTo 0 End With ' Определяет свойство DefaultType и создает объект Workspace ' без указания его типа. DBEngine.DefaultType = dbUseJet Set wrkJet = CreateWorkspace("JetWorkspace", "admin", "") Debug.Print "DBEngine.DefaultType = " & TypeOutput(DBEngine.DefaultType) With wrkJet ' Отображает семейство Properties объекта Workspace. Debug.Print "Свойства " & .Name On Error Resume Next For Each prpLoop In .Properties Debug.Print " " & prpLoop.Name & " = " & prpLoop If prpLoop.Name = "Type" Then Debug.Print " (" & TypeOutput(prpLoop.Value) & ")" Next prpLoop On Error GoTo 0 End With wrkODBC.Close wrkJet.Close End Sub Function TypeOutput(intTemp As Integer) As String If intTemp = dbUseJet Then TypeOutput = "dbUseJet" Else TypeOutput = "dbUseODBC" End If End Function