Лабораторная работа №1 Тема: «Доступ к данным базы данных MS Access из MS Excel »
учебно-методический материал по информатике и икт на тему

Сальникова Татьяна Павловна

Спомощью этой работы можно научиться создавать соединение MS Excel с базой данных MS Access с помощью VBA и выводить нужные данные в MS Excel

Скачать:

ВложениеРазмер
Файл Связь MS Excel с MS Access122.03 КБ

Предварительный просмотр:

Лабораторная работа №1

Тема: «Доступ к данным базы данных MS Access из MS Excel  »

Цель: Научиться создавать соединение MS Excel с базой данных MS Access с помощью VBA и выводить нужные данные в MS Excel

  1. Порядок работы

  1. Создать базу данных Товары.mdb в MS Access
  1. В базе данных Товары.mdb создать таблицу «Товар» (Рисунок 1)

Рис. 1 – Таблица «Товар»

  1. Заполнить таблицу «Товар» (Рисунок 2)

Рис. 2 – Заполненная Таблица «Товар»

  1. Создать лист MS Excel в своей папке
  2. Добавить панель управления Visual Basic: Вид \ Панели инструментов \ Visual Basic
  3. Зайти в редактор Visual Basic. Щелкнув по кнопке «Редактор Visual Basic»
  4. Создайте в проекте форму: Insert \ UserForm и поместите на форму кнопку. Переименуйте кнопку и форму в окне Properties (свойства) в поле Caption. Как показано на Рисунке 3.

Рис. 3 – Форма  Соединение с базой данных «Товары»

  1. Подсоединить библиотеку «Microsoft ActiveX Data Objects 2.1 Library» Командой Tools \ References…
  2. Щелкнуть 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

Через что соединяется

Укажите путь к базе данных

Установление соединения

Запрос всех полей из таблицы Товар

Если записей нет, то закрытие запроса

Цикл, для выбора поля “Наименование” и ввода в ячейки

Переход на следующую запись

Закрытие цикла

  1. Сделать активной форму и запустить программу командой  Run  или F5
  2. В итоге на листе Excel выведутся все наименования товаров.

  1. Самостоятельная работа
  1. Выведите в столбец «В» Excel  поле «Цена» из базы данных Товары с помощью VBA.
  2. Покажите работу преподавателю
  3. Сохраните лист Excel c именем «Пример»
  1. Вывод

Решение показано на Рисунке  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» и  «Базы данных»...