Хотя в данном примере такая возможность не требовалась, в большинстве приложений в наборы добавляются новые записи. С объектами наборов записей ADO эта задача выполняется чрезвычайно просто. Для этого в программе следует вы-зватьметод. AddNew:

Rs. AddNew

Rs("Author) = "Doe, John" rs("Au_ID") = 123456

Rs. Update

Все очень просто. Когда вам требуется создать новую запись, вы вызываете метод. AddNew. Он создает пустую запись, в которую затем заносятся данные. Это можно сделать несколькими способами, включая следующие:

Rs("Author") = "Doe, John"

Rs! Author = "Doe, John"

Rs. Fields(1) = "Doe, John"

Все они эквивалентны, и выбор зависит лишь от вашего личного вкуса. Лично я предпочитаю первый способ, потому что он выглядит наиболее очевидно. Я точно знаю, какое поле обновляется, а поскольку имя поля заключено в кавычки, оно может содержать пробелы.

После занесения данных в запись следует обновить набор, вызвав метод. Update.

Обновление записей

Процесс обновления записей напоминает процесс добавления, однако на этот раз вам не придется вызывать метод. AddNew. Достаточно переместить курсор базы данных к нужной записи, изменить данные и вызвать метод. Update. Например:

Rs("Author") = "Brown, Steve"

Rs("Au_ID") = 373737

Rs. Update

ПРИМЕЧАНИЕ Если вам приходилось работать с объектами DAO, возможно, вы привыкли вызывать метод. Edit для перехода к редактированию данных. Он не поддерживается объектами ADO.

Удаление записей

Удаление записей в ADO выполняется так же просто. Все, что от вас требуется -установить курсор базы данных на удаляемой записи и вызвать метод. Delete. Программа выглядит примерно так:

'Создать запрос

Sql = "select *from authors where [Author] = 'Brown, Steve""

' Открыть набор записей

Set rs = New ADODB. Recordset

With rs

.Open sql, cn, adOpenForwardOnly, adLockReadOnly

If rs. RecordCount > 0 Then

Rs. Delete

End If

' Закрыть набор записей

.Close

End With

' Уничтожить объект набора записей

Set rs = Nothing

ПОДСКАЗКА Переходите на использование ADO, поскольку Microsoft развивает свои технологии работы с данными именно в этом направлении. Вы не только будете работать с последними технологическими новинками, но и сможете переносить свои приложения на другие источники данных с минимальными изменениями кода (или вообще без изменений).Более того, ADO даже позволяет организовать обмен данными между базой и Web-страницей!

Теперь вы умеете создавать базы данных Access и работать с ними различными способами. Навыки, описанные в этом уроке, помогут вам работать с базами данных в будущих приложениях. Хотя возможности новой версии Visual Data Manager заметно возросли, все же я рекомендовал бы приобрести Microsoft Access, если вы не сделали этого раньше. Access обладает многими возможностями, упрощающими создание базы данных даже по сравнению с описанным выше несложным процессом. А самое приятное — ваши базы данных останутся совместимыми с Visual Basic!

Научившись работать с файлами и базами данных, вы сможете взять данные из своего приложения и сохранить их для последующей загрузки или печати, а также воспользоваться ими для сохранения и выборки рабочих параметров приложения. Не жалейте времени на эксперименты с Visual Data Manager. Он обладает многими возможностями, не упоминавшимися в этом уроке (полное описание потребовало бы отдельной книги). Объединяя возможности Visual Basic по программированию и работе с базами данных, вы сможете создавать достаточно мощные приложения. Следующий урок посвящен третьему важному аспекту любого приложения — печати.