Умение обращаться с файлами данных - чуть ли не одна из самых важных ступений в обучении программированию на Visual Basic! Здесь я постараюсь выложить только самые основные приёмы работы с объектом Data.
Прежде чем начать использовать базу данных её нужно сначала создать ;)! 1.Создайте стандартный проект.
2.Кликните на ToolBox'e на кнопку Data и натяните на форму так, чтобы полоска была не очень широкой и в самом низу формы.
3.Теперь создайте на форме четыре кнопки и назовите их (по порядку создания): cmdAdd, cmdDelete, cmdUpdate, cmdExit. Свойствам Caption дайте эти же имена, только без "cmd".
4.Создайте на форме три текстовых поля одинаковой длины.
5.Теперь надо связать объект Data с какой-нибудь базой данных. С какой? С той которая есть у всех владелцев VBasic'a - biblio.mdb! Активируйте объект Data и в свойствах, в DatabaseName выберите этот файл. Теперь там же, но в поле RecordSource надо выбрать раздел "Authors". Этим мы выберем только нужную часть базы данных.
6.Выделите первое текстовое поле и в свойствах, в DataSource выберите единственную в списке, созданную нами базу данных Data1, т.е. тем самым мы связываем это текстовое поле с объектом Data1. А в поле свойств DataField выберите "Au_ID". Теперь задача этого поля отображать идентификационный номер каждого автора! То же самое проделайте со следующими двумя другими полями, но в DataField вместо "Au_ID" выберите "Author" и "Year Born".
Поздравляю! Если Вы ещё этого никогда не делали, то знайте - Вы написали первую в своей жизни простенькую программку для отображения содержания базы данных!!! А теперь научимся редактировать её. Итак, главное редактирование - это занесение записей и удаление их.
7.Щёлкните два раза на кнопку Add и введите:
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
'Все поля, которые могут быть отредактированы будут очищены
'и подготовлены, поле Year Born будет установленно на 0,
'т.к. оно должно иметь какое-то значение
'поле Au_ID не будет очищено вообще, а изменено на самую
'последнюю позицию
End Sub
8.Следующая кнопка сохраняет внесённые изменения в базе данных. Сделайте двойной клик по кнопке Update и введите:
Private Sub cmdUpdate_Click()
'сохраняем ...
Data1.UpdateRecord
'без следующей строки после сохраниения в полях
'автоматически появились бы самые первые записи.
'поэтому закладке присваеваем идентификатор последней
'изменённой записи и в полях остануться ваши записи
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
9.Теперь самое лёгкое - удаление записей!!! Ведь правильно говорят - "Ломать - не строить!" :-))). Делаем двойной щелчок по кнопке Delete и вводим:
Private Sub cmdDelete_Click()
'чтобы выполнить последовательность инструкций над
'одиночным объектом Data1, не перечисляя его каждый
'раз, используем инструкцию With
With Data1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
End Sub
10.И теперь для кнопки Exit просто введите:
Private Sub cmdExit_Click()
End
End Sub
Всё! А тепeрь Вы создали почти настоящую программу с базой данных!!!
10.Запустите проект. Нажмите на правую кнопку >. Содержание полей сменилось! Теперь нажмите на правую кнопку >|. В полях появились самые последние записи! То же самое будет происходить при нажатии на левые кнопки |< и <. Но как Вы, наверное, заметили поле, содержащие год рождения, всегда пустое!
11.Теперь нажмите кнопку "Add".
12.Первое поле НЕ испраляйте, во второе ввидите, например, ваше имя, а в третье год рождения.
