$1 189.88


$13.73


$233.51


Основы работы с базами данных

Умение обращаться с файлами данных — чуть ли не одна из самых важных ступений в обучении программированию на 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. Запустите проект. Нажмите на правую кнопку >. Содержание полей сменилось! Теперь нажмите на правую кнопку >|. В полях появились самые последние записи! То же самое будет происходить при нажатии на левые кнопки |< и |. Ваша запись на месте.

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 и каждый раз вызывать поиск!

 

Интересное

Антивирус - религия?
Представители «комплексной защиты» забывают добавить, что защищен не от всего и не всегда. И защищен только тот, кто сможет их продукт настроить должным образом. Почемуто считается, что если...
Подробнее...
Установка межсетевого...
Чтобы придать сетевому узлу достаточную степень надежности, установите одну из доступных и свободно распространяемых программ, известных под названием файрволов. А для подстраховки не мешало бы...
Подробнее...
Вывоз мусора
Своевременный вывоз строительного мусора , очень правильный подход к ситуации. Захламленность строительным мусором мешает работать и просто жить. Однако утилизировать его достаточно легко 
Подробнее...
Поиск файлов с расширением...
Чтобы убедиться в этом, создайте текстовый файл и запишите в него одно слово (например, «поиск»). Сохраните этот файл с расширением log или cpp. Теперь запустите поиск файлов (Пуск > Поиск),...
Подробнее...
Летать самолётом боятся...
Летать самолётом боятся очень многие – и это вполне объяснимо. Ведь небо не является для человека средой обитания. Но бывают моменты, когда не полететь нельзя: нет времени на длительное...
Подробнее...
Примеры подключения...
Данный материал содержит примеры создания строк ado connection для различных типов часто используемых Баз Данных, например: odbc dsn, odbc dsn-less, ole db provider, ms remote, oracle, excel,...
Подробнее...
Сущность ООП
Одна из вещей, которую вы могли бы захотеть реализовать — пользовательский интерфейс, предоставляющий доступ к файлу персональных данных. ООП предоставляет вам безусловно лучшие механизмы для его...
Подробнее...
Настраиваем Apache - FAQ...
В: Что такое Apache и зачем он нужен?О: Apache — это web-сервер, один из наиболее распространенных, безопасных и удобных во всем мире. Если вы создаете свой динамичный сайт с использованием языков...
Подробнее...
Обзор вариантов прокладки...
Если кто-то пытается убедить вас, что создание сети — дело сложное, не верьте: на самом деле, оно очень сложное. Тем не менее, если не замахиваться сразу на масштаб промышленного предприятия,...
Подробнее...
О Windows Vista
<img src=«http://i-faq.ru/uploads/posts/2007-09/1189807052_[b]windows[/b]_vista_logo.png» align=«left» style=«border: none;» alt=«О Windows Vista» />О Windows Vista слышали если не все, то, как...
Подробнее...