B. Элемент управления ADO Data: вывод данных, добавление записей в таблицу из проекта, выполнение SQL-запроса, вывод результатов

Date: 2015-10-07; view: 584.

В данной работе рассматриваeтся:

· создание базы данных (ado.mdb) с использованием Visual Data Manager,

· вывод с помощью ADO Data Control данных таблицы saleslist, см. , в текстовое поле,

· выполнение SQL-запроса и вывод результатов.

·

Порядок выполнения:

· создать на форме 4 элемента управления TextBox и 4 элемента управления Label (установить свойства Caption каждого элемента соответственно - Name of product, Price, Quantity, Total, рис. 4.9,

Рис. 4.9.Вид формы

· cоздать базу данных с использованием Visual Data Manager, для этого:

o выполнить команды: Модули Visual Data Manager File New Microsoft Access Version 7.0 MDB, рис. 4.10

,

Рис. 4.10.Visual Data Manager

o ввести название: ado сохранить,

o в диалоговом окне Database Window сделать щелчок правой клавишей мыши. В появившемся меню выбрать New Table, рис. 4.11

Рис. 4.11.Таблица Structure

o задать имя таблицы: saleslist,

o в диалоговом окне Table Structure сделать щелчок на кнопке Add field, рис. 4.12

Рис. 4.12.Окно Add Field

o в диалоговом окне Add Field в соответствующие поля ввести имена полей таблицы и типы данных, делать щелчок на кнопке ОК после каждого ввода:

o сделать щелчок на кнопке Close,

o в диалоговом окне Table Structure сделать щелчок на кнопке Build the Table, которая стала активной, рис. 4.13

Рис. 4.13.Database Window

o в окне Database Window сделать двойной щелчок на поле saleslist, рис. 4.14

Рис. 4.14.Построение таблицы saleslist

o в диалоговом окне динамического набора Dynaset: saleslist сделать щелчок на кнопке Add, рис. 4.15

Рис. 4.15.Построение таблицы, продолжение

o вводить данные, после ввода каждой записи делать щелчок на кнопке Update, затем снова Add и т.д,

o в окне Dynaset: saleslist сделать щелчок на кнопке Close; в окне Visdata выполнить команды: File Exit. Создание базы данных ado.mdb завершено; файл базы данных сохраняется на дисковом устройстве в каталоге (system32),

· для вывода элемента управления ADO Data выполнить следующее: Проект -> Компоненты -> Microsoft ADO Control 6.0 (OLEDB),рис. 4.16

Рис. 4.16.Microsoft ADO Data Control

· поместить элемент управления ADO Data на форму, рис. 4.17

Рис. 4.17.Элемент управления на форме

· присвоить значение свойства ConnectionString, рис. 4.18

Рис. 4.18.Окно Property Pages

· в диалоговом окне Property Pages сделать щелчок на кнопке Build, рис. 4.19

Рис. 4.19.Поставщики услуг

· в диалоговом окне Свойства связи с данными выбрать из списка поставщиков услуг Microsoft Jet 3.51 (или Microsoft Jet 4.0, если имеется в наличии), рис. 20. Эти поставщики используются при соединении источника данных, для которого не существует провайдера OLE DB, с другим источником данных OLE DB. Для баз данных Microsoft SQL Server используется Microsoft OLE DB Provider for SQL Server и т. д,

· в диалоговом окне Свойства связи с данными сделать щелчок на кнопке Далее. Перейти к регистру Подключение, рис. 4.20

Рис. 4.20.Регистр Подключение

· найти в дереве файлов базу данных ado.mdb, выбрать в списке имя базы данных ado.mdb. Использовать имя пользователя - admin, рис. 4.20

· сделать щелчок на кнопке Проверить подключение, если при этом выводится сообщение "Подключение успешно", то сделать щелчок на кнопке ОК,

· в диалоговом окне Свойства связи с данными сделать щелчок на кнопке ОК; cтроится строка "Provider:, путь к базе данных" в окне Property Pages, рис. 4.18 В диалоговом окне Property Pages сделать щелчок на кнопке ОК,

· присвоить значение свойству RecordSource для элемента данных ADO, рис. 4.21 следующим образом:

Рис. 4.21.Окно Property Pages

· в диалоговом окне Property Pages выбрать для Command Type значение 2-adCmdTable, а для Table or Stored Procedure Name - saleslist OK. Теперь установлена связь с базой данных ado.mdb и можно начать работу c элементами управления TextBox,

· присвоить свойству DataSource каждого элемента управления TextBox значение Adodc1; а свойству DataField (см. также поля Label) каждого элемента управления TextBox (соответственно) - name_of_product, price, quantity, total,

· стартовать проект, наблюдать выведенные данные, для этого перелистывать данные, используя стрелки > или >, см рис. 4.22

Рис. 4.22.Вид формы после старта проекта

· для добавления записей в таблицу базы данных выполнить следующее:

o остановить выполнение проекта,

o изменить значение свойства EOFAction объекта Adodc1 с 0 - adDoMoveLast на 2 - adDoAddNew,

· стартовать проект и заполнить пустую запись, следующую после пятой записи, например, следующим образом: printer 800 10 8000.

Замечание: для проверки (внесения записи) стартовать Visual Data Manager, двойным щелчком открыть и просмотреть таблицу. Переходить от одного поля TextBox к другому можно либо с помощью курсора мыши, либо с помощью клавиши Tab,

· остановить выполнение проекта,

· для выполнения SQL-запроса - для вывода в поле TextBox, например, наименования тех продуктов, стоимость которых равна 4000 (или больше 5000) выполнить следующее:

o поместить на форму ещe один элемент управления (Adodc2) и еще один элемент управленияTextBox,

o установить значение ConnectionString для элемента управления Adodc2 то же, что и у Adodc1 OK,

o при установке значения RecordSource в диалоговом окне Property Pages выбрать для Command Type значение 1 - adCmdText, а для Command Text (SQL) ввести запрос: Select * from saleslist where total=4000 (или total>5000)

o установить свойства TextBox следующим образом: DataSource - Adodc2, DataField - name_of_product (название того поля, записи которого должны быть выведены в поле TextBox),

· стартовать проект, наблюдать результаты, для этого перелистывать данные, используя стрелки > <.