Шаг 5 - Свойство DefaultType

Описание
Задает или возвращает значение, указывающее тип рабочей области (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

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.