Практическая работа 22. Базы данных; DAO
· Создать фрагмент базы данных Access: внутренний валовой продукт США (в американской статистике внутренний валовой продукт подразделяется на категории: сельскохозяйственные товары, услуги и промышленные сооружения) с полями, указанными в табл. 4.5: · вывести в поле ListBox записи поля structures (см. процедуру Form_Load()), · вычислить средние значения за каждые 2 года (как пример - 4-го поля - объем промышленных сооружений) и результат занести в файл (см. процедуру Form_Load()), · вывести записанный результат из файла в поле списка, см. процедуру Command1_Click(). Следует сделать ссылку на библиотеку объектов доступа к данным: Проект
Создать необходимые элементы упр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
|
Информация 
