Page 110 - 6735
P. 110

Запис.Fields("Оцінка").Value = 4 'ввести значення поля
           "Оцінка"
           Запис.Update 'оновити
           Запис.AddNew 'додати запис
           Запис.Fields("Прізвище").Value = "Петров"
           Запис.Fields("Оцінка").Value = 3
           Запис.Update 'оновити
           Запис.Close 'Закрити записи

           'Команда SQL вибирає записи з таблиці stud, де Оцінка>3
           Sqlstr = "SELECT * FROM stud WHERE (Оцінка>3)"
           'Створюємо записи за запитом SQL
           Set Запис = БазаДаних.OpenRecordset(Sqlstr, dbOpenDynaset)
           'Виведення записів запиту
           Запис.MoveFirst 'перейти на перший запис
           Do While Not Запис.EOF 'поки не кінець записів
           Debug.Print Запис.Fields("Прізвище").Value 'вивести
           значення поля "Прізвище"
           Debug.Print Запис.Fields("Оцінка").Value 'вивести значення
           поля "Оцінка"
           Запис.MoveNext 'перейти на наступний запис
           Loop
           'Закрити запис, базу даних і робочу область
           Запис.Close
           БазаДаних.Close
           РобочаОбласть.Close
           End Sub

                      Microsoft ADO – об'єктний доступ до даних

              Microsoft ActiveX Data Objects (ADO) – прикладний програмний
           інтерфейс  для  доступу  до  даних,  оснований  на  технології
           компонентів  ActiveX,  який  є  більш  універсальним  наступником
           технології  DAO  [19,  29,  32,  33,  42].  ADO  дозволяє  користувачам
           розробляти програми для доступу до різних баз даних (реляційних
           СУБД, текстових файлів тощо) без необхідності знання про те, як ці
           бази даних реалізовані. Основним об'єктом є ADODB.Connection -
                                         110
   105   106   107   108   109   110   111   112   113   114   115