Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Практическая работа 22. Базы данных; DAO
|
|
· Создать фрагмент базы данных Access: внутренний валовой продукт США (в американской статистике внутренний валовой продукт подразделяется на категории: сельскохозяйственные товары, услуги и промышленные сооружения) с полями, указанными в табл. 4.5:
· вывести в поле ListBox записи поля structures (см. процедуру Form_Load()),
· вычислить средние значения за каждые 2 года (как пример - 4-го поля - объем промышленных сооружений) и результат занести в файл (см. процедуру Form_Load()),
· вывести записанный результат из файла в поле списка, см. процедуру Command1_Click().
Следует сделать ссылку на библиотеку объектов доступа к данным: Проект 
Информация Microsoft DAO 3, 51 Object Library.
| Таблица 4.5. Внутренний валовой продукт США | |||||||
| # | year | population | incomepercapital | structures | goods | services | CDP |
Создать необходимые элементы упрaвления и ввести код, данный ниже, пояснения даны под комментариями, затем стартовать проект.
(General) (Declarations)Dim DB As Database, Table As Recordset' описание переменной, характеризующей ячейки таблицыDim R As Variant ' описание переменной для работы с полями таблицы Dim K As Integer Dim S(4) As Single ' описание массива средних значенийDim a1 As Single, a2 As Single, I As Integer, J As IntegerPrivate Sub Form_Load() ' реализация доступа к даннымSet DB = Workspaces(0).OpenDatabase(" A: \Dao1.mdb")Set Table = DB.OpenRecordset(" dao4")R = Table.GetRows(4)For I = 0 To 3 ' вывод на экран 4-ого поля таблицы ' базы данныхList1(0).List(I) = R(4, I)Next I' открыть файл для записиOpen " A: \DATA.TXT" For Output As #1 K = 4 ' работа с 4-м полем таблицыFor I = 0 To 1 ' рассматриваются I блоков (2) ' по J элементов (2)S(K) = 0For J = 0 To 1S(K) = S(K) + R(K, I * 2 + J)Next JWrite #1, S(K) / 2 ' среднее значение за каждые 2 годаNext IClose #1 ' закрыть файлEnd SubPrivate Sub Command1_Click()' открыть файл для чтенияOpen " A: \DATA.TXT" For Input As #1Input #1, a1, a2List1(1).List(0) = a1 ' вывод средних значений в поле спискаList1(1).List(1) = a2End Sub|
|