Лабораторная работа №1 Тема: «Доступ к данным базы данных MS Access из MS Excel »
учебно-методический материал по информатике и икт на тему
Спомощью этой работы можно научиться создавать соединение MS Excel с базой данных MS Access с помощью VBA и выводить нужные данные в MS Excel
Скачать:
Вложение | Размер |
---|---|
Связь MS Excel с MS Access | 122.03 КБ |
Предварительный просмотр:
Лабораторная работа №1
Тема: «Доступ к данным базы данных MS Access из MS Excel »
Цель: Научиться создавать соединение MS Excel с базой данных MS Access с помощью VBA и выводить нужные данные в MS Excel
- Порядок работы
- Создать базу данных Товары.mdb в MS Access
- В базе данных Товары.mdb создать таблицу «Товар» (Рисунок 1)
Рис. 1 – Таблица «Товар»
- Заполнить таблицу «Товар» (Рисунок 2)
Рис. 2 – Заполненная Таблица «Товар»
- Создать лист MS Excel в своей папке
- Добавить панель управления Visual Basic: Вид \ Панели инструментов \ Visual Basic
- Зайти в редактор Visual Basic. Щелкнув по кнопке «Редактор Visual Basic»
- Создайте в проекте форму: Insert \ UserForm и поместите на форму кнопку. Переименуйте кнопку и форму в окне Properties (свойства) в поле Caption. Как показано на Рисунке 3.
Рис. 3 – Форма Соединение с базой данных «Товары»
- Подсоединить библиотеку «Microsoft ActiveX Data Objects 2.1 Library» Командой Tools \ References…
- Щелкнуть 2 раза по кнопке «Проверить» и ввести в появившемся окне программный код:
Private Sub CommandButton1_Click() Dim Sql As String Dim Cnct As String Dim Con As ADODB.Connection Dim Rec As ADODB.Recordset Set Con = New ADODB.Connection Cnct = "Provider = Microsoft.Jet.OLEDB.4.0;" Cnct = Cnct & "Data Source=C:\Мои документы\Товары.mdb “ Con.Open Cnct Set Rec = New ADODB.Recordset Sql = "SELECT * FROM Товар” Rec.Open Sql, Con x = 1 If Rec.BOF And Rec.EOF Then Rec.Close End If Do While Rec.EOF = False per = Rec.Fields("Наименование") Cells(x, 1) = per x = x + 1 Rec.MoveNext Loop End Sub | Через что соединяется Укажите путь к базе данных Установление соединения Запрос всех полей из таблицы Товар Если записей нет, то закрытие запроса Цикл, для выбора поля “Наименование” и ввода в ячейки Переход на следующую запись Закрытие цикла |
- Сделать активной форму и запустить программу командой Run или F5
- В итоге на листе Excel выведутся все наименования товаров.
- Самостоятельная работа
- Выведите в столбец «В» Excel поле «Цена» из базы данных Товары с помощью VBA.
- Покажите работу преподавателю
- Сохраните лист Excel c именем «Пример»
- Вывод
Решение показано на Рисунке 4.
Рис. 4 – Решение
По теме: методические разработки, презентации и конспекты
Лабораторная работа по теме "Создание простой базы данных"
Лабораторная работа по теме База данных 2...
База данных 11 класс. Самостоятельные практические работы. Проектирование и обработка двухтабличной базы данных.
Предлагается два вырианта самостоятельной практической работы по теме "Базы данных". 11класс. Работу можно провести как "Зачётная практическая работа по теме База Данных"Перед выполнением самостоятель...
Практическая работа по теме Система управления базами данных Microsoft Access 2007. Создание базы данных
Практическая работа по теме Система управления базами данных Microsoft Access 2007. Создание базы данных...
Практическая работа по теме Система управления базами данных Microsoft Access 2007. Создание базы данных
Практическая работа по теме Система управления базами данных Microsoft Access 2007. Создание базы данных...
Практическая работа по информатике “Создание простейшей базы данных в Microsoft Access 2010 Ввод и сортировка записей”.
Практическая работа № 1 “Создание простейшей базы данных в Microsoft Access 2010. Ввод и сортировка записей”....
Урок по информатике в 11 классе на тему:Компьютерные технологии. Работа с базами данных в программе MS Access
Разработка урока информатики в 11 классе к учебнику Н.Д. Угриновича. Содержит план урока, презентацию, рабочую тетрадь и загатовку к практической работе...
Практическая работа по информатике "Создание базы данных, обработка данных и анализ полученных значений в MS Excel"
Данная практическая работа предназначена для проведения практических занятий по предмету информатика, при изучении тем «Электронные таблицы MS Excel» и «Базы данных»...