Пример 7

Методы

Dim blnUpdateOK As Booban

Пример 5.

Свойства

1.Connect. Это свойство может быть использовано для создания присоединенных таблиц из источников данных ISAM, ODBC или Ms Access.

Set tblMyTablDef = DBEngine (0)(0).GreateTableDef (StrLinkTableName) tblMyTableDef.Connect = “; DATABASE=C:BackEndDB.MDB”

2. Name. Это свойство возвращает имя и полный путь объекта DataBase.

Пример 6.

Dim strDBName As String strDBName = DBEngine.Workspaces(O).Database(O).Name

3. UpDatable. Это свойство используется для определения того, можно ли изменять объект Database.Свойство UpDatable возвращает значение True(-1) или False(0). Ниже приведен пример обращения к этому объекту.

blnUpDateOK = DBEngine.Workspaces(O).Databases(O).Updatable

1. Close. Используется для закрытия объекта Database,который открывался в программе. Следующий пример показывает как закрыть БД:

Dim dbMyDB As Database, strDBName As String strDBName = “C:MyDatabase.MDB” Set dbMyDB=DBEngine.Workspaces(0).OpenDatabase(strDBName) ‘Закрываем базу данных и удаляем ее из семейства Databases dbMyDB.Close

2.Create QueryDef. Позволяет создавать запросы SQL. Следующая процедура демонстрирует пример создания запроса.

Пример 8.

‘Создание запроса при помощи метода CreateQueryDef. Sub CreateAQueryDef() Dim qdMyQuery As QueryDef, strQName As String Dim strQSQL As String StrQName = “Новый запрос” StrQSQL = “Select * From Курсант –_ Where ШК = “412* ”; ” Set qdMyQuery = DBEngine (0) (0).Create QueryDef() qdMyQuery.Name = strQName qdMyQuery.SQL = strQSQL ‘Добавление объекта QueryDef в семейство QueryDefs. DBEngine(0)(0).QueryDefs.Append qdMyQuery qdMyQuery.Close End Sub

3. CreateRelation (создание связей), CreateProperty (создание свойств) рассматриваются в практической части.

4. Execute. Позволяет выполнять запросы на изменение программным путем. Этот запрос может быть объектом QueryDef или запросом на языке SQL.

Ниже приведен пример использования этого метода.

Sub ExecuteActionQuery ()

Dim dbMyDB As Database, strQSQL As String, lngRecAff As Long

Set dbMyDB = DBEngine (0) (0)

‘Оператор SQL, являющийся запросом на удаление

str QSQL = Delete From Курсант Where ШК>”412* ”; ”

‘Выполнение оператора SQL

dbMyDB.Execute strQSQL.dbFailOnError

‘Вывод числа удаленных данных

lngRecAff = dbMyDB. RecordsAffected

MsgBox lngRecAff & “запись(ей) удалено”

Exit Sub

End Sub

Параметр dbFailOnError используется в методе Exeture для того, чтобы откатить все обновления к исходному состоянию при возникновении ошибки.

5.Open RecordSet. Метод позволяет программно открывать наборы записей, основываясь на таблицах запросах и операторах SQL. Следующий пример демонстрирует способы вызова данного метода:

Dim dbMyDB As Database, rsMyRS As Recordset

Set dbMyDB = DBEngine (0) (0)

Set rsMyRs = dbMyDB.OpenRecrdset (“Курсант”)

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