Лабораторная работа №1 Тема: «Доступ к данным базы данных MS Access из MS Excel »
учебно-методический материал по информатике и икт на тему
Спомощью этой работы можно научиться создавать соединение MS Excel с базой данных MS Access с помощью VBA и выводить нужные данные в MS Excel
Скачать:
Вложение | Размер |
---|---|
![]() | 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 – Решение
По теме: методические разработки, презентации и конспекты
![](/sites/default/files/pictures/2013/01/02/picture-171665-1357104432.jpg)
Лабораторная работа по теме "Создание простой базы данных"
Лабораторная работа по теме База данных 2...
![](/sites/default/files/pictures/2013/04/02/picture-234704-1364905222.jpg)
База данных 11 класс. Самостоятельные практические работы. Проектирование и обработка двухтабличной базы данных.
Предлагается два вырианта самостоятельной практической работы по теме "Базы данных". 11класс. Работу можно провести как "Зачётная практическая работа по теме База Данных"Перед выполнением самостоятель...
![](/sites/default/files/pictures/2013/11/25/picture-353917-1385377476.jpg)
Практическая работа по теме Система управления базами данных Microsoft Access 2007. Создание базы данных
Практическая работа по теме Система управления базами данных Microsoft Access 2007. Создание базы данных...
![](/sites/default/files/pictures/2013/11/25/picture-353917-1385377476.jpg)
Практическая работа по теме Система управления базами данных Microsoft Access 2007. Создание базы данных
Практическая работа по теме Система управления базами данных Microsoft Access 2007. Создание базы данных...
![](/sites/default/files/pictures/2018/01/31/picture-184555-1517402018.jpg)
Практическая работа по информатике “Создание простейшей базы данных в Microsoft Access 2010 Ввод и сортировка записей”.
Практическая работа № 1 “Создание простейшей базы данных в Microsoft Access 2010. Ввод и сортировка записей”....
![](/sites/default/files/pictures/2019/01/20/picture-1105118-1547983550.jpg)
Урок по информатике в 11 классе на тему:Компьютерные технологии. Работа с базами данных в программе MS Access
Разработка урока информатики в 11 классе к учебнику Н.Д. Угриновича. Содержит план урока, презентацию, рабочую тетрадь и загатовку к практической работе...
![](/sites/default/files/pictures/2022/11/10/picture-1158875-1668082082.jpg)
Практическая работа по информатике "Создание базы данных, обработка данных и анализ полученных значений в MS Excel"
Данная практическая работа предназначена для проведения практических занятий по предмету информатика, при изучении тем «Электронные таблицы MS Excel» и «Базы данных»...