Методы

Пример 12.

Пример 11.

Свойства

Open Database, Close, CreateDatabase, BeginTrans,

Name, UserName.

Пример 10.

Пример 9.

Dim IntWrkSpcCount As Integer IntWrkSpcCount = DBEngene.Workspaces.Count

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

Фрагмент программы и комментарии

Dim wsMyWrkSpc As Workspace ‘Следует создать новый объект Workspace, когда вы зарегистрированы под именем Admin Set WsMyWrkSpc=DBEngene.CreateWorkspace – (Name:”NewWorkspace”, User Name:=”Admin”, Password:=””) ‘Вывод значения свойства Count, которое пока равно 1 MsgBox DBEngine.Workspaces.Count ‘Добавляем объект Workspace в сесмейство Workspaces dBEngene.Workspaces.AppendwsMyWrkSpc ‘Вывод значения свойства Count, которое теперь равно 2 MsgBox DBEngine.Worcspaces.Count

Свойства и методы объекта Workspace:

Наиболее часто используемые свойства объекта Workspace:

Используемые методы:

RollBack, CreateUser, CreateCroup.

Полный список свойств можно найти в информационной системе Microsoft Access.

1. Name. Указывает имя объекта Workspace. По умолчанию имя объекта Workspace имеет значение #DefaultWorkspaces#. В следующем примере еще три строки выведут одно и то же значение.

Debug.Print DBEngine.Workspaces (0).Name Debug.Print DBEngine.Workspaces (“#DefaultWorkspaces# “).Name Debug.Print DBEngine(0).Name

2. User Name. Указывает имя пользователя, который зарегистрирован в объекте Workspace. Его значение можно определить следующим образом:

Dim StrLoginName As String StrLoginName = DBEngine.Worcspace(0).UserName

1.OpenDataBase – позволяет открыть любой источник данных, который можно открыть из пользовательского интерфейса.

Следующий пример показывает как открыть БД MyDB.MDB.

Пример 13

Фрагмент программы

Sub prWorkspace () Dim wsMyWrkSpc As DataBase Dim strDBName As String str DBName = “C:FilesMyDB.Mdb” Set wsMyWrkSpc = DBEngine.Workspaces(0).OpenDatabase (strDBName) End Sub

2. Close. Используется для закрытия объекта Workspace. Закрытие объекта Workspace удаляет его из семейства Workspaces.

Следующий пример демонстрирует, как закрыть объект Workspace:

Пример 14

Dim wsMyWrkSpc As Workspace ‘Открытие объекта Workspace Set wsMyWrkSpc = DBEngine.Create Workspace _ (Name:= “MewWorkspace”, UserName:= ”Admin”, Password:=” ”) ‘Работа с объектом Workspace, и, после окончания использования, ‘его закрытие wsMyWrkSpc.Close

3. GreateDataBase позволяет создать новую, пустую БД, которая затем открывается, становясь доступной из программы.

Для русского языка при указании порядка сортировки используется константа dbLangCyrillic. Остальные константы для указания порядка сортировки можно просмотреть в справочной системе.

Этот метод может использоваться в пользовательской процедуре резервного копирования БД, для создания новой базы данных.

Пример вызова метода:

Dim dbMyDB As DataBase, strDBName As String strDBName = “C:FilesNewDataBase.MDB” Set dbMyDB=DBEngine.Workspaces(0)._ Greate DataBase (strDBName, dbLangCyrillic)

Метод CreateDatabase имеет также необязательный аргумент Options, который используется для создания БД в шифрованном или дешифрованном состоянии.

3. Методы BeginTrans, CommitTrans, RollBack позволяют проводить несколько транзакаций как единое целое. В дальнейшем мы рассмотрим данные методы.

4. Методы CreteUser и CreateGroup. Данные методы используются для создания нового пользователя или новой группы, добавления других пользователей в защищенную базу данных, не представляя им возможности совершать изменения, влияющие на безопасность базы данных.

Дата добавления: 2014-01-15