![]() |
Объекты доступа к данным DAO - Data Access ObjectDate: 2015-10-07; view: 417. Form2 Form1 ' Последовательное считывание данных таблицы software ' в массив текстового поля. Щелчком на правой ' кнопке элемента Data и последовательным ' нажатием командной кнопки Command1 (Caption = Lesen1) ' присвоить текущему элементу массива ' mass(n, j) текущее значение свойства Text ' элементов массива текстового поля
Private Sub Command1_Click() mass (n, 1) = Text1(1): mass (n, 2) = Text1(2) mass (n, 3) = Text1(3): mass (n, 4) = Text1(4) mass (n, 5) = Text1(5): mass (n, 6) = Text1(6) n = n + 1 ' увеличить значение переменной-счeтчик на 1 End Sub
' автоматическое считывание данных в массив ' (Caption = Lesen2) Private Sub Command2_Click() For n = 0 To 8 mass (n, 1) = Text1(1): mass (n, 2) = Text1(2) mass (n, 3) = Text1(3): mass (n, 4) = Text1(4) mass (n, 5) = Text1(5):mass (n, 6) = Text1(6) ' MoveNext - метод, обеспечивающий автоматический ' переход к следующей записи Data1.Recordset.MoveNext Next n End Sub
' Методы MoveFirst, MoveLast, MoveNext, MovePrevious ' находят в указанном объекте Recordset соответствующую ' запись и делают еe текущей
Private Sub Command3_Click() Unload Me Form2.Show End Sub ' вывод данных двумерного массива на экран в ' массив поля списка Private Sub Command1_Click() For i = 0 To 8 For j = 1 To 6 List1(i).List(j - 1) = mass (i, j) Next j, i End Sub
' нахождение максимальной цены продукта и вывод в ' поле метки результата Private Sub Command2_Click() max = mass(0,3) For k = 1 To 8 If mass (k, 3) > max Then max = mass (k, 3) Next k Label1.Caption = max End Sub Объекты доступа к данным - это объекты, представляющие структуру базы данных и её содержимое. Программист может использовать DAO для создания и изменения таблиц и запросов, для защиты баз данных или для доступа к данным внешнего источника. DAO позволяет обрабатывать из проекта Visual Basic данные, находящиеся в базе данных. Для работы с источниками данных используется иерархия объектов Microsoft Jet,
· DBEngine - объект самого верхнего уровня в иерархии объектов Microsoft Jet обеспечивает связь приложения с СУБД MicrosoftDBMS. Система управления базами данных - это множество процедур; происходит взаимодействие с набором процедур-трансляторов и запросы пользователя переводятся на язык, воспринимаемый базой данных. Процедуры-трансляторы есть для баз данных формата Microsoft Access, FoxPro и т.д.; имеются трансляторы для источников данных ODBC (Open Databasе Connectivity - открытое взаимодействие с базами данных). С помощью машины Microsoft Jet можно обращаться к файлам данных любого формата (если есть соответствующие процедуры-трансляторы). Объект DBEngine имеет свойства и методы и содержит коллекции - объекты одного типа, · коллекция Properties содержит свойства объекта DBEngine, · коллекция Workspaces. Объект Workspace - это рабочее пространство, которое определяет именованный сеанс работы пользователя. Коллекция Workspaces содержит все определeнные рабочие пространства. Workspaсe имеет свойства (Name - имя рабочего пространства, UserName - имя пользователя, IsolateODBCTrans используется для контроля за числом соединений ODBC, установленных с базой данных во время сеанса) и 2 метода - CreateDatabase и OpenDatabase, · Users - учетные записи пользователей, · Groups - учетные записи группы пользователей, · коллекция Databases содержит все объекты Database - базы данных, открытые для данного объекта Workspace. ОбъектDatabase создается каждый раз, когда пользователь открывает базу данных с помощью метода OpenDatabase. Содержит несколько свойств и методов (Name, Connect, : Connection ), например, метод OpenRecordset служит для доступа к таблицам баз данных, · TableDef - определение таблицы, · QueryDef - определение запроса, · Recordset - объект, содержащий наборы записей; имеется большое количество свойств и методов, доступность которых зависит от того, в каком рабочем пространстве был создан объект Recordset - Microsoft Jet или ODBCDirect. Технология ODBCDirect - модель доступа к данным ODBC. Частью этой модели доступа является объект Connection. Эта модель даeт возможность программисту обращаться к источникам данных ODBC напрямую, не используя объекты данных Microsoft Jet. · Relation - содержит информацию об установленных между таблицами отношениях (указание полей и типа связей), · Field - содержит информацию о поле таблицы, содержит коллекцию Properties, имеет несколько свойств и методов, · Index - определение индекса (Index - это совокупность перекрестных ссылок между полями таблицы, они создаются для ускорения поиска записей). Объекты DAO используются в определeнном порядке. Сначала с помощью ключевого слова Set формируется Workspace, затемDatabase, Recordset и другие объекты. Для открытия базы данных используется метод OpenDatabase объекта Workspace, а для открытия таблицы - метод OpenRecordset объекта Database. Для получения доступа к определенному количеству строк таблицы используется метод GetRows(numrows) объекта Recordset, numrows - это число строк. Строки/столбцы нумеруются, начиная с 0. |