е використовуватися при організації з'єднання з базою даних (рис.3.2.3).
Рис. 3.2.3
Вибираємо потрібну опцію Microsoft Access Driver і клацаємо по кнопці «Далі». Visual Basic узагальнить обрані опції і запропонує клацнути мишею на кнопці «Готово» для продовження конфігурування файлу імені джерела даних Data Source Name (рис. 3.2.4).
Рис. 3.2.4
Після натискання кнопки «Готово» з'являється нове діалогове вікно з ім'ям Установка драйвера ODBC для Microsoft Access (рис. 3.2.5). У цьому діалоговому вікні можна задати ім'я файлу джерела даних, вибрати базу даних, з якою встановлюється зв'язок, і задати параметри з'єднання. У текстове поле Ім'я джерела даних вводимо «Рекламне агентство Records».
Рис. 3.2.5 Діалогове вікно Установка драйвера ODBC для Microsoft Access
Клацаємо на кнопці «Вибрати ...», переглядаємо вміст папки D: проект, і вибираємо базу даних Рекламне агентство.mdb, потім клацаємо на кнопці ОК. У діалоговому вікні Установка драйвера ODBC для Microsoft Access також натискаємо кнопку ОК. Знову з'явиться діалогове вікно Property Page (Властивості). Клацаємо на поле з спадаючим списком Use ODBC Data Source Name (Ім'я джерела даних), потім вибираємо рядок Рекламне агентство Records. Клацаємо на кнопці ОК у діалоговому вікні Property Pages (Властивості) для закінчення установки з'єднання.
Рис. 3.2.6 Діалогове вікно Property Pages
Діалогове вікно Property Pages закриється, а у вікні Properties (Властивості) навпроти властивості ConnectionString з'явиться напис DSN=Рекламне агентство Records.
Переходимо до властивості RecordSource і клацаємо на кнопці праворуч від імені властивості RecordSource. Знову з'явиться діалогове вікно Property Pages, але на цей раз буде відображена вкладка RecordSource (Джерело записів). Клацаємо на спадаючому списку Command Type (Тип команди) і виділяємо рядок 2 - adCmdTable. У полі з спадаючим списком Table Or Stored Procedure Name (Ім'я таблиці або процедури) завантажуємо ім'я потрібної нам таблиці (наприклад, таблицю «Послуги» рис. 3.2.7) жувати ім'я потрібної нам табліци.вкладка ва ентство.ь, і задати параметри з'єднання. рамма для власного пользованія.база д).
Рис. 3.2.7 Діалогове вікно Property Pages
Клацаємо на кнопці ОК, щоб завершити вибір джерела записів RecordSource. У вікні Properties поруч з властивістю RecordSource з'явиться ім'я таблиці «Послуги».
Клацаємо на об'єкті Text1 форми Послуги (frmServ) у вікні Properties. Встановлюємо для властивості DataSource значення Adodc1, а для властивості DataField - значення №. Аналогічні операції проводимо з усіма текстовими полями форми, привласнюючи їм відповідні імена полів.
Повторюємо аналогічно всі дії для об'єктів Adodc і текстових полів інших форм.
. 3 Видалення і додавання записів у базу даних «Рекламне агентство»
Для додавання та/або видалення записів у таблицях в кожній формі передбачені кнопки «Додати» (cmdAdd) і «Видалити» (cmd Del). Програмний код для цих дій у кожної форми аналогічний.
Розглянемо програмний код для видалення і додавання записів на прикладі форми «Послуги» (frmServ):
Додавання записів у табліцуSub cmdAdd_Click () $= Для уведення нового запису натисніть на кнопку ОК =MsgBox (prompt $, vbOKCancel, Додати запис ) reply=vbOK Then
Text1.SetFocus
Adodc1.Recordset.AddNewIfSub
Видалення записів з табліциSub cmdDel_Click () $= Ви дійсно хочете видалити цей вид послуги? =MsgBox (prompt $, vbOKCancel, Видалення запису ) reply=vbOK Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNextIfSub
Після виконання всієї послідовності вищевикладених операцій маємо додаток для відкриття бази даних Рекламне агентство з можливістю редагування даних в ній.
Нижче наведено зовнішній вигляд форм після запуску програми з відображенням всіх даних таблиць бази даних Рекламне агентство.
Рис. 3.3.1 Форма «Послуги»
Рис. 3.3.2 Форма «Замовлення»
Рис. 3.3.3 Форма «Замовники»
Рис. 3.3.4 Форма «Фахівці»
Рис. 3.3.5 Форма «Матеріали»
Рис. 3.3.6 Форма «Рахунок»
4. СТВОРЕННЯ ЗАПИТІВ
Для запитів в додатку створена спеціальна форма, яка називається «Запити». Д...
