Ошибка: Failed to parse the Currency Converter XML document.
$11 694.96


Ошибка: Failed to parse the Currency Converter XML document.
$18 054.97


Ошибка: Failed to parse the Currency Converter XML document.
$34 633.81


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

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

 

Интересное

CSS дизайн: с учетом контекста
Веб-стандарты обещают нам улучшенную поддержку мультимедиа: возможность оптимизировать контент под возможности компьютерных экранов, портативных устройств, принтеров, проекторов, и других...
Подробнее...
Летать самолётом боятся...
Летать самолётом боятся очень многие – и это вполне объяснимо. Ведь небо не является для человека средой обитания. Но бывают моменты, когда не полететь нельзя: нет времени на длительное...
Подробнее...
Динамика украинских...
Первое полугодие 2007 характеризуется позитивной динамикой развития домена .UA – сообщает администратор домена .UA ООО «Хостмастер». За период с 01.01.07 по 01.07.07 количество...
Подробнее...
Компьютерные сети
Приветствую тебя, уважаемый читатель. Вот и вышла в свет очередная статья, написанная мной. На этот раз я бы хотел затронуть очень важную тему — создание локальных сетей, в народе называемых...
Подробнее...
Отправка по SMTP с...
1. Введение. Практически каждый, кто сталкивается с работой в инете на низком уровне при создании какой-либо почтовой программы, оповещалки, либо троя или кейлогера, напарывается на такой...
Подробнее...
10 способов...
Некоторые люди утверждают, что хорошо работают в высоко-стрессовом окружении. Я не один из них. Когда я расслаблен, моя производительность наиболее высока. Если передо мной стоят задачи, которые...
Подробнее...
10 действий, которые...
Компьютер с системой Microsoft Windows, на который не были установлены защитные обновления, обязательно будет заражён вредоносными программами (malware) в течение нескольких минут после...
Подробнее...
Закачка файла на сервер с PHP
В более поздних версиях есть возможность использовать специальный массив ($http_post_files), но в данном уроке описывается более ранний метод.В нашем примере мы будем использовать следующий код...
Подробнее...
Оператор перехода
И в Delphi и в Turbo Pascal’e есть этот оператор- оператор перехода. Кто-то его называет: «оператор прыжка». Довольно интересный оператор, с моей точки зрения. Он может помочь, а может и...
Подробнее...
Вывоз мусора
Своевременный вывоз строительного мусора , очень правильный подход к ситуации. Захламленность строительным мусором мешает работать и просто жить. Однако утилизировать его достаточно легко 
Подробнее...