Реферат: Курс лекций по V B 5.0

Cust= Recordset1 . Fields(“Customer”).

Программирование с объектами DAO.

Программирование с объектами DAO заключается в создании объектных переменных и управления ими, вызове методов объектов и установке их свойств. Например,

Dim DB As Database, WS As Workspace(“account.mdb”) ‘ Объявления переменных

Set WS=DBEngine. Workspaces(0) ‘ Организуется рабочая область (именнованный сеанс пользователя).

Set DB= WS.OpenDatabase(“account.mdb”) ‘ Метод OpenDatabase объекта WS типа Workspace используется для открытия  базы данных[AAnA6]  account.mdb и присвоения ссылки на нее объектной переменной DB типа Database.

Set RS=DB.OpenRecordset(“Clients”) ‘ С помощью метода OpenRecordset объекта DB создается набор записей на основе таблицы Clients, ссылка на который присваивается переменной RS типа Recordset.

RS.Index=“ClientID”       ‘ Свойству Index объекта RS присваивается значение ClientID.

[AAnA7]

Создание базы данных

Процедура построения  базы данных[AAnA8]  Jet - это процесс создания и определения объектов доступа к данным, которые соответствуют таблицам, полям, индексам и отношениям структуры новой  базы данных.

Пусть требуется создать библиографическую  базу данных Biblio.mdb, состоящую из 3-х таблиц “Авторы”(Authors), “Названия”(Titles), “Издатели”(Publishers), связанных между собой следующими отношениями:

Titles                                   Authors                                  Publishers

Title                                    AU_ID                                     PubID [AAnA9]

Year Published                   Author                                      Name

ISBN                                                                                      Company

AU_ID                                                                                   Address

PubID                                                                                      ...(10) [AAnA10]

Необходимо создать объект Database , определить его логическую структуру, добавив объекты TableDef и Field.

1.  Для каждого объекта  базы данных создаются новые объектны[AAnA11] е переменные:

Dim DB As DataBase, WS As Workspace    ‘объект  базы данных DataBase [AAnA12]

Dim AuTd As TableDef, TitTd As TableDef, PubTd As TableDef       ‘ объект ‘TableDef для  каждой из 3-х таблиц

Dim AuFlds(2) As Field, TitFlds(5) As Field, PubFlds(10) As Field ‘ объект Field

 ‘для каждого поля каждой таблицы

Dim AuIdx AS Index, TitIdx As Index, PubIdx As Index ‘ объект Index для

 ‘каждого индекса каждой из 3-х таблиц

2.На основе метода CreateDatabase объекта Workspace создается новая  база данных:

Set Ws=DBEngine. Workspace(0)

Set Db=Ws.CreateDataBase(“C:\VB\Biblio.mdb”,dbLangGeneral,dbVersion30)  ‘ [AAnA13] константа dbLangGeneral определяет языковую версию  базы данных, а dbVersion30-  базу данных Jet версии 3.0

3. С помощью метода CreateTableDef объекта Database создаются объекты Tabledef  для каждой[AAnA14]  таблицы  базы данных[AAnA15] :

Set TitTd=DB.CreateTableDef(“Titles”)

Set AuTd= DB.CreateTableDef(“Authors”)

Set PubTd= DB.CreateTableDef(“Publishers”)

4. С помощью метода CreateField объекта TableDef создаются объекты Field для каждого поля каждой[AAnA16]  таблицы  базы данных. Для каждого поля устанавливаются свойства, определяющие размер, тип данных и другие необходимые атрибуты. Например, для поля Author код будет выглядеть следующим образом[AAnA17] :

Set AuFlds(0)=AuTd.CreateField(“AU_ID,dbLong)

‘ сделать поле счетчиком

AuFlds(0).Attributes=dbAutoIncrField

Set AuFlds(1)=AuTd.CreateField(“Author,dbText)

AuFlds(1)=50  ‘ длина поля

5.Используя метод Append добавить каждое поле к его таблице, а каждую таблицу - к  базе данных:

AuTd.Fields.Append AuFlds(0)[AAnA18]

AuTd.Fields.Append AuFlds(1)[AAnA19]

DB.TableDefs.Append AuTd

[AAnA20]

6. Используя метод CreateIndex объекта TableDef, создать индексы для каждой таблицы и установить их свойства. Например. для таблицы Authors:

 Set AuIdx=AuTd.CreateIndex(“Au_ID”)

AuIdx.Primary=True  ‘Первичный ключ

AuIdx.Unique=True  ‘Уникальный ключ

7. Используя метод CreateField объекта Index, создать поля для каждого индексного объекта:

Set NewFld=AuIdx.CreateField(“Au_ID”)

8. Добавить поле к объекту Index, а объект Index к объекту TableDef:

AuIdx.Fields.Append NewFld

AuTd.Indexes.Append AuIdx

Вновь созданные поля объекта Index не становятся частью объекта TableDef. Вместе с тем им дается то же самое свойство Name, что и у поля объекта TableDef, которое они должны индексировать. Свойства Type и Size у этих полей не определяются.

Связывание таблиц

Создание объектов TableDef, которые содержат первичный и внешний ключи, позволяют связывать записи в одной таблице с соответствующими записями в другой таблице, согласно общим значениям первичного/внешнего ключей. При добавлении или удалении записей важно поддерживать так называемую ссылочную целостность. Ссылочная целостность означает, что внешний ключ в любой ссылающейся таблице всегда должен ссылаться на достоверную запись в адресуемой таблице, содержащей первичный ключ. Для поддержания ссылочной целостности используется объект Relation.

1.  Добавить отношение к  базе данных :

Dim Au_Tit As Relation       ‘ объект [AAnA21]  Relation

Set Au_Tit =Db.CreateRelation(“Authors_Titles”) ‘ создается объект [AAnA22]  Relation с помощью метода .CreateRelation

Au_Tit.Table=“Authors”  ‘ Устанавливаются свойства объекта [AAnA23]  Relation

Au_Tit.ForegnTable=“ Titles”

2. Создать поле, которое в отношении будет определять общее поле первичного/внешнего ключа:

DimTempField As Field

Set TempField = Au_Tit.CreateField(“Au_Id”) ‘ создается связующее поле [AAnA24]  с помощью метода CreateField

TempField. ForegnName =“Au_Id”  ‘ Устанавливаются свойства объекта Field [AAnA25]

3. Добавить объект Fields к объекту Relation, а объект Relation к объекту Database  [AAnA26]  с помощью метода Append:

Au_Tit.Fields.Append TempField

Db.Relations..Append Au_Tit

Связывание таблиц внешних  баз данных[AAnA27]

Кроме определения новых таблиц можно присоединять таблицы из любой поддерживаемой  внешней базы данных [AAnA28] или из другой  базы данных[AAnA29]  Jet. При связывании таблицы информация соединения сохраняется во внутренней  базе данных Jet, и соединение будет устанавливаться автоматически всякий раз при открытии этой  базы данных. Сами же данные остаются во внешней  базе данных[AAnA30] .

Процедура связывания таблицы внешней базы данных подобна определению и созданию новой внутренней таблицы, за исключением того, что при создании объекта TableDef необходимо определить свойства SourceTableName и Connect. Кроме того, для этой таблицы нельзя связывания создавать или добавлять новые объекты Field и Index.

Для связывания внешней таблицы с базой данных необходимо:

           Создать для связываемой таблицы новый объект TableDef, используя метод CreateTableDef объекта Database. Назначить таблице новое имя (свойство Name). Например, чтобы присоединить таблицу Сustomers из базы данных Stocks.mdb к базе данных Biblio.mdb,можно записать:

Set NewTd=DB.CreateTableDef(“Customers”) ‘ Предполагается , что база данных Biblio.mdb открыта методом OpenDatabase и ей назначена переменная DB.

2. Установить свойства SourceTableName и Connect объекта TableDef:

NewTd. SourceTableName=“Customers”

NewTd. Connect=“;DATABASE=C:\Access\Stocks.mdb;”

3.Добавить новый объект TableDef к базе данных:

DB.TableDefs.Append NewTd

Модификация базы данных

Процедуры изменения базы данных подобны ее созданию. Используются те же методы Create и Append.

1. Для добавления таблицы к базе данных необходимо добавить новый объект TableDef к существующей коллекции TableDefs. Например:

Dim DB As DataBase [AAnA31]

Dim NewTd As TableDef ‘ Создать новый объект TableDef

Dim NewFld As Field ‘Создать новый объект Field

Set Db=DBEngine. Workspace(0).OpenDatabase(“Biblio.mdb”)

Set NewTd=DB.CreateTableDef(“NewTable”)

Set NewFld= NewTd.CreateField(“NewField”,dbInteger)

NewTd.Fields.Append NewFld  ‘добавить поле к таблице

DB.TableDefs.Append NewTd  ‘добавить таблицу к базе данных

Db.Close   ‘Закрыть базу данных

1. Для добавления поля к таблице необходимо добавить новый объект Field к существующей коллекции Fields

Dim DB As DataBase [AAnA32]

Dim Td As TableDef

Dim Fld As Field ‘Создать новый объект Field

Set Db=DBEngine. Workspace(0).OpenDatabase(“C:\Biblio.mdb”)[AAnA33]

Set Td=DB. TableDefs(“Authors”)

Set Fld= Td.CreateField(“NewField1”,dbText,30)  ‘Создать первое новое поле

Td.Fields.Append Fld  ‘добавить поле к коллекции Fields

Set Fld= Td.CreateField(“NewField2”,dbText,20)  ‘Создать второе новое поле с помощью той же переменной

Td.Fields.Append Fld  ‘добавить еще один объект к коллекции Fields

Db.Close   ‘Закрыть базу данных

2. Для добавления таблицы к базе данных необходимо добавить новый объект TableDef к существующей коллекции TableDefs. Например:

Dim DB As DataBase [AAnA34]

Dim NewTd As TableDef ‘ Создать новый объект TableDef

Dim NewFld As Field ‘Создать новый объект Field

Set Db=DBEngine. Workspace(0).OpenDatabase(“C:\Biblio.mdb”)

Set NewTd=DB.CreateTableDef(“NewTable”)

Set NewFld= NewTd.CreateField(“NewField”,dbInteger)

NewTd.Fields.Append NewFld  ‘добавить поле к таблице

DB.TableDefs.Append NewTd  ‘добавить таблицу к базе данных

Db.Close   ‘Закрыть базу данных

3. Для добавления индекса к таблице необходимо добавить новый объект Index к существующей коллекции Indexes . Например:

Dim DB As DataBase, Td As TableDef, NewIdx As Index ,NewFld As Field  [AAnA35]

Set Db=DBEngine. Workspace(0).OpenDatabase(“C:\Biblio.mdb”)

Set Td=DB. TableDefs(“Authors”)

Set NewIdx =Td.CreateIndex(“Address[AAnA36] _Index”)

NewIdx.Unique=False

Set NewFld= NewIdx.CreateField(“Address”,)

NewIdx.Unique=False

NewIdx.Fields.Append NewFld  ‘добавить поле к объекту Index

Td. Indexes.Append NewIdx ‘добавить объект Index к TableDef

Db.Close   ‘Закрыть базу данных

4. Для удаления таблицы используется метод Delete коллекции TableDefs. Этот метод удаляет из таблицы все поля, индексы и данные, содержащиеся внутри таблицы. Например:

Db.TableDefs.Delete “Authors”

5. Для удаления поля (объекта Field) используется метод Delete объекта TableDef.

 Для удаления индексированного поля необходимо сначала удалить индекс, а также созданные посредством этого индекса объекты Relation. После этого можно будет удалить объект Field или объект TableDef, который является частью отношения.

6. Для удаления индекса используется метод Delete коллекции TableDefs.

Например:

Db.TableDefs(“Authors”). Indexes.Delete “Address[AAnA37] _Index”  ‘ Из коллекции Indexes в таблице Authors удаляется индекс “Address[AAnA38] _Index”.

Нельзя удалять объект Index, который формирует объект Relation.

7. Для изменения  поля необходимо создать новый объект TableDef, который отражает требуемые изменения в полях, и затем переместить данные в новую таблицу, удалив старую.

Модификацию базы данных можно также проводить с помощью специальных запросов SQL.

Работа с записями базы данных

Работа с записями базы данных(добавление, удаление, модификация, поиск, сортировка) осуществляются DAO посредством объектов Recordset. Объект Recordset представляет записи исходной таблицы или записи, получаемые в результате выполнения запроса. Существуют 5 типов объектов Recordset:

*        Объект Recordset типа table работает с локальной таблицей базы данных или вешней базы данных, созданной MS Jet. Этот объект можно индексировать, используя индекс, созданный для исходной таблицы, что намного ускоряет сортировку и поиск по сравнению с другими типами объектов Recordset.

*        Объект Recordset типа dynaset (динамический набор) создается для локальных или связанных таблиц или с результатами запросов. Фактически, это набор ссылок на записи одной или более таблиц. С помощью dynaset можно получать и модифицировать данные более, чем одной таблицы, включая связанные таблицы из других баз данных. Набор dynaset и его исходные таблицы модифицируют друг друга. Dynaset - наиболее гибкий и мощный тип набора записей, хотя поиск в них работает не так быстро, как в случае table.

*        Объект Recordset типа snapshot (моментальный снимок) содержит фиксированную копию данных в состоянии на момент создания snapshot. Snapshot, созданный на базе источника данных MS Jet, не может быть обновлен. Snapshot требует меньших затрат обработки, чем dynaset или table, и запросы в них выполняются быстрее.

*        Объект Recordset типа forward- only (листаемый снимок, только вперед), обеспечивает подмножество функций snapshot. Он предоставляет меньше всего возможностей, но зато самое высокое быстродействие. Он не является обновляемым, и он позволяет перемещаться по записям только в прямом направлении.

*        Объект Recordset типа dynamic - результирующий набор запроса одной или нескольких исходных таблиц, в котором можно добавлять, изменять или удалять записи.

Выбор того или иного типа набора записей зависит от того, какие функции необходимо выполнить, нужно ли изменять или просто просматривать данные. Обычно Объект Recordset типа table почти всегда обеспечивает наивысшую эффективность.

[AAnA39]

Создание перемещений RecordSet

Для этого используется метод OpenRecordSet

Set rstNew = dbs.OpenRecordSet(“Customers”, dbs.Open RecordSet),

где rstNew - переменная, dbs.OpenRecordSet(“Customers”, dbs.Open RecordSet) - ссылка на объект, возвращаемый методом OpenRecordSet.

Этот метод доступен не толко для объекта Database, но и Connection, TableDef, QueryDef и существующих наборов RecordSet.

Set rstNew = qdf.OpenRecordSet

Например, создается объект RecordSet из сохраненного в текущей БД запроса.

Dim dbs As Database, Rst As RecordSet

Set dbs=OpenDatabase (“Nwind.mdb”

[ Set rst = dbs.OpenRecordSet (“Сохраняет_Запрос”)]

или если сохранение запроса не существует

Dim strQuerySQL As String

Set dbs=OpenDatabase (...

StrQuerySQL=“Select * From Products”_ & “Order by ProductName”

Set rst=dbs.OpenRecordSet (strQuerySQL)

Перемещение по набору записей

Методы MoveFirst, MoveLast, MoveNext, MovePrevious - перемещает указатель.

Move [n]

Переделы набора записей определяется свойствами BOF  и EOF, количество записей свойством - RecordCount.

Найти определенную запись в наборе можно с помощью метода Seek (для Table) и Find (dynaset, snapshop): FindFirst, FindLast, FindNext, FindPrevious.

Например

rstOrderDetails.Find “Order ID= ” & rstOrders.[Order ID] - для первой записи в Orders найти .... запись в OrderDetails

rst Suppliers.Index=“CompanyName”

rst Suppliers.Seek “=” str CompanyNAme

If rst Suppliers. NoMatch Then  ...

(используется текущий индекс таблицы, определенной свойством Index). Свойство NoMatch используется для проверки найденной записи, критерий поиска.

После создания объекта RecordSet типа table или dynaset в переменной можно удавлять или добавлять, модифицировать новые записи (Update, Delete, AddNew).

.... модификации намного эффективнее с помощью запросов SQL.

Dim dbs As DataBAse, qdfChangeTitles As QueryDef

Set dbs = Open Database (‘ Nwind.mbb)

Set qdfChangeTitles=dbs.Create QueryDef (“ “)

qdf ChangeTitles.SQL=“Update Employers” & “Where Title = ‘Бухг’”

После извлечения записи можно обращаться к ее отдельным полям через коллекцию Fields объекта RecordSet по его свойству Name (имя столбца в таблицк)

rst Employers.Fields (“LastName”)

или rstEm.LastName

или rstEm.Fields(0) - индексом в коллеции

Типы данных объекта Field: dbChar, bdByte, dbDouble, dbInteger, dbSingle, dbLong, dbText.

При работе с данными Field используется его свойство Value.

Sub Change Title( )

rstEmployces.LastName.Value=strName

Страницы: 1, 2, 3, 4, 5