База данных Accese

Средства VB 6 для создания, заполнения и обработки таблиц баз данных Microsoft Access
Цель работы: Изучение и использование средств, которыми располагают среда проектирования и язык VB 6, для работы с базами данных Microsoft Access. Исследование и использование инструмента VisData (Data Base Manager – Диспетчера баз данных ) для создания файла базы данных и произвольного числа таблиц этой базы, а также стандартного элемента управления Data для заполнения полей таблиц значениями и нестандартного элемента MS Flex Grid для отображения заполненных таблиц на экранной форме. Исследование возможности использования в процедурах на языке VB 6 языка запросов SQL для обработки таблиц базы данных.
Контрольные вопросы:
1. Как с помощью Диспетчера баз данных можно создать новый файл mdb для дальнейшего включения в него произвольного числа таблиц базы данных?
2. Как создается новая таблица в уже созданном файле mdb ? Как в таблицу включаются новые поля (столбцы)? Как определяется тип данных включаемого в таблицу поля?
3. Что такое индекс и как с помощью Диспетчера баз данных можно создать индекс и включить его в таблицу?
4. Как присоединить элемент управления Data (Данные ) к одной из таблиц базы данных, содержащихся в файле mdb ? Какие два свойства при этом необходимо означить?
5. Какое значение свойства EOF Action элемента управления Data позволяет вносить новые записи в таблицу базы данных?
6. Какие два свойства текстового поля отвечают за «привязку» этого поля к элементу управления Data ? Как с помощью «привязанных» текстовых полей вносить данные в таблицу базы данных?
7. Какое свойство элемента Data может иметь в качестве значения не только ссылку на реальную таблицу базы данных, но и выражение языка SQL, с помощью которого создается виртуальная таблица?
8. Как и с помощью какого выражения SQL можно программно создать реальную таблицу в файле базы данных?
9. Как и с помощью какого выражения SQL можно программно удалить все данные из реальной таблицы в файле базы данных?
Пример 8.1. В двух вариантах 1-го задания 7-й работы были рассмотрены две таблицы базы данных «Автосервис»:
· таблица 7.1 «Автомобили»;
· таблица 7.2 «Неисправности».
Для заполнения этих таблиц значениями, для их визуализации, а также для отработки запросов на SQL создается приложение, экранная форма которого в работающем состоянии показана на рис. 8.1.
Рис. 8.1. Экранная форма приложения для заполнения значениями двух таблиц файла mdb и для отработки запросов на SQL
В данном примере с помощью Диспетчера баз данных (VisData ) среды проектирования VB 6 создается Access файл Автосервис. mdb с указанными двумя таблицами: Cars (Автомобили) и Disrepairs (Неисправности). Технология создания таблиц файла mdb в среде IDE VB 6 описана в пособии [2], стр. 133 – 139.
Для заполнения значениями 1-й таблицы используются текстовые поля Text1 , Text2 и Text3 , привязанные к элементу Data1 , который, в свою очередь, привязан к таблице Cars (Автомобили) файла Автосервис. mdb .
Для заполнения значениями 2-й таблицы используются текстовые поля Text4 , Text5 и Text6 , привязанные к элементу Data2 , который, в свою очередь, привязан к таблице Disrepairs (Неисправности) файла Автосервис. mdb . Технология «привязки» описана в учебном пособии [2] – стр. 140 – 145.
Для визуализации таблиц используются элементы из нестандартного класса «Гибкая сетка данных» (MS Flex Grid ).
После заполнения таблиц пользователь может обратиться к базе данных с запросом на языке SQL. Для этой цели используется команда меню Query . Щелчок этой команды вызывает появление окна Inputbox (рис. 8.2), в котором, «по умолчанию», уже есть образец выражения SQL. Пользователь, разумеется, может ввести свой вариант запроса.
Рис. 8.2. Окно для ввода запроса на SQL
После ввода запроса и щелчка кнопки ОК происходит автоматическое формирование 3-й таблицы, запись SQL выражения в поле метки и отображение новой таблицы в гибкой сетке – элементе MSFlexGrid3 на экранной форме (см. рис. 8.1).
Опуская описание этапа проектирования интерфейса, сразу представим программный код данного приложения:
Private Sub Form_Load()
With MSFlexGrid1 ‘ Для таблицы Автомобили.
.ColWidth(0) = 500: .ColWidth(1) = 1200
.ColWidth(2) = 1500: .ColWidth(3) = 1000
End With
With MSFlexGrid2 ‘ Для таблицы Неисправности.
.ColWidth(0) = 500: .ColWidth(1) = 1000
.ColWidth(2) = 3000: .ColWidth(3) = 900
End With
With MSFlexGrid3 ‘ Для запроса «по умолчанию».
.ColWidth(0) = 500: .ColWidth(1) = 1500
.ColWidth(2) = 1200: .ColWidth(3) = 3000
.ColWidth(4) = 900: .ColWidth(5) = 1000
End With
End Sub
Private Sub mnuQuery_Click()
sSQL$ = InputBox("Введите запрос на SQL, " & _
"относительно двух таблиц базы данных", "SQL", _
"Select car_number, car_type, disrep_name, " & _
"repair_cost, Cars.disrep_code " & _
"From Cars Inner Join Disrepairs " & _
"On Disrepairs.disrep_code=Cars.disrep_code " & _
"Order By repair_cost")
Data3.RecordSource = sSQL
Data3.Refresh
Label1.Caption = " SQL: " & sSQL
End Sub

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию