Прежде чем начать использовать базу данных её нужно сначала создать ;)!
Создайте стандартный проект. Кликните на ToolBox'e на кнопку Data и натяните на форму так, чтобы полоска была не очень широкой и в самом низу формы. Теперь создайте на форме четыре кнопки и назовите их (по порядку создания): cmdAdd, cmdDelete, cmdUpdate, cmdExit. Свойствам Caption дайте эти же имена, только без "cmd". Создайте на форме три текстовых поля одинаковой длины. Теперь надо связать объект Data с какой-нибудь базой данных. С какой? С той которая есть у всех владелцев VBasic'a - biblio.mdb! Активируйте объект Data и в свойствах, в DatabaseName выберите этот файл. Теперь там же, но в поле RecordSource надо выбрать раздел "Authors". Этим мы выберем только нужную часть базы данных. Выделите первое текстовое поле и в свойствах, в 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. Первое поле НЕ испраляйте, во второе ввидите, например, ваше имя, а в третье год рождения.
13. Теперь сохраните эту запись, нажав кнопку "Update".
14. Знайте, ваша запись теперь сохранена на самом последнем месте! Можете снова "прогуляться" по записям и вернутся наконец с помощью правой кнопки >|. Ваша запись на месте.
15. Теперь нажмите на кнопку Delete... запись исчезла! НО! В этом случае мы НЕ можем удалять записи сделанные не нами. Ну, вот и готово! А теперь я расскажу немного о создании некотрых удобств с работой с базой данных. Например, представим себе, что Вы, просматривая нашу базу данных, заметили имя автора где-то в середине и через некоторое время должны вернуться к этой записи... Не пролистывать же нам снова окло тысячи имён!!! Для этого можно создавать так называеимые закладки! 16. создайте на форме ещё две кнопки с именами cmdMBM и cmdSMB со следующими надписями: Make the Bookmark и Show the Bookmark.
17. Теперь в разделе формы General Declarations объявите переменную, которая будет содержать идентификатор актуальной записи: 'переменная должна быть объявлена, как Variant поскольку
'значения закладки могут быть как числовые, так и строковые
Dim BM As Variant[/auote] 18. Теперь делаем двойной щелчок по кнопке cmdMBM и вводим: Private Sub cmdMBM_Click()
'получаем идентификатор актуальной записи
BM = Data1.Recordset.Bookmark
End Sub 19. Теперь делаем двойной щелчок по кнопке cmdSBM и вводим: Private Sub cmdSBM_Click()
'присваеваем закладке идентификатор нужной записи
Data1.Recordset.Bookmark = BM
End Sub 20. Снова запустите проект и прощёлкайте несколько записей.
21. Нажмите кнопку "Make the Bookmark". Так, теперь пролистайте ещё дальше или вернитесь, вобщем уйдите от этой записи.
22. Щёлкните на кнопку "Show the Bookmark". В полях появились записи, на которые Вы и поставили закладку! А теперь я расскажу немного о поисках записей в базе данных. Представьте себе, что Вам нужно найти конкретное имя автора из тысяч других... WOW!!! :-)) Представили? Ну, так вот листать - вроде совсем не интересно... Нужно воспользовать одним из способов нахождения :
FindFirst, FindLast, FindNext или FindPrevious. В следующей таблице представлены их значения:
Метод Пояснение
FindFirst Ищет первую запись в БД
FindLast Ищет последнюю запись в БД
FindNext Ищет каждую следующую запись в БД
FindPrevious Ищет предыдущую запись в БД23. Создайте кнопку cmdFind c надписью "Find" и впишите: Private Sub cmdFind_Click()
'у пользователя запрашивается имя автора а потом происходит
'поиск его в БД
Data1.Recordset.FindFirst "Author = '" _
& Trim(InputBox("Введите имя автора")) & "'"
'если запись не найдена появляется следующая надпись:
If Data1.Recordset.NoMatch Then MsgBox "Имя не найдено"
End Sub 24. Теперь запустите проект. Выищите какое-нибудь имя из БД и нажмите кнопку Find.
25. Введите имя и нажмите ОК. Имя появилось! Чтобы искалось имя с конца БД слово FindFirst надо поменять на FindLast. А если Вы хотите проверить БД на наличие одного имени несколько раз надо применять слово FindNext и каждый раз вызывать поиск!