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

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




НазваVisual Basic Основы работы с базами данных
Сторінка1/9
Дата конвертації02.01.2013
Розмір0.53 Mb.
ТипДокументи
  1   2   3   4   5   6   7   8   9

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


Умение обращаться с файлами данных - чуть ли не одна из самых важных ступений в обучении программированию на 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.Первое поле НЕ испраляйте, во второе ввидите, например, ваше имя, а в третье год рождения.
13.Теперь сохраните эту запись, нажав кнопку "Update".
14.Знайте, ваша запись теперь сохранена на самом последнем месте! Можете снова "прогуляться" по записям и вернутся наконец с помощью правой кнопки >|. Ваша запись на месте.
15.Теперь нажмите на кнопку Delete... запись исчезла! НО! В этом случае мы НЕ можем удалять записи сделанные не нами.

Ну, вот и готово! А теперь я расскажу немного о создании некотрых удобств с работой с базой данных. Например, представим себе, что Вы, просматривая нашу базу данных, заметили имя автора где-то в середине и через некоторое время должны вернуться к этой записи... Не пролистывать же нам снова окло тысячи имён!!! Для этого можно создавать так называеимые закладки!

16.создайте на форме ещё две кнопки с именами cmdMBM и cmdSMB со следующими надписями: Make the Bookmark и Show the Bookmark.
17.Теперь в разделе формы ^ General Declarations объявите переменную, которая будет содержать идентификатор актуальной записи:

'переменная должна быть объявлена, как Variant поскольку
'значения закладки могут быть как числовые, так и строковые
Dim BM As Variant

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 и каждый раз вызывать поиск!
  1   2   3   4   5   6   7   8   9



Схожі:

Visual Basic Основы работы с базами данных iconПрактична робота № Програмування лінійних обчислювальних процесів
Запустити Visual Basic. Після запуску Visual Basic на екрані з'явиться діало-гове вікно, у якому можна вибрати тип додатку. Вибираємо...
Visual Basic Основы работы с базами данных iconЛекція №1. Загальна характеристика елементів мови програмування vba (Visual Basic for Application) Зміст Вступ 1 Мова vba І її можливості 1 Редактор Visual Basic 2
Лекція №1. Загальна характеристика елементів мови програмування vba (Visual Basic for Application)
Visual Basic Основы работы с базами данных iconПрактичні роботи по Visual Basic
Пр р.№ Програмування лінійних обчислювальних процесів
Visual Basic Основы работы с базами данных iconПравила обласної Internet-олімпіади з інформатики
Офіційна перевірка відбуватиметься із використанням таких середовищ / компіляторів: Turbo Pascal 0 (dos), Free Pascal 0 (Win32),...
Visual Basic Основы работы с базами данных iconИзучить принципы построения баз данных, освоить правила создания и редактирования таблиц в субд access. 2 Задачи работы
Ознакомиться со справочной системой ms access. Создать и отредактировать многотабличную базу данных
Visual Basic Основы работы с базами данных iconVisual basic – незрівнянні переваги та інше
У курсі базової інформатики у середній і вищій школі (для інженерно-технічних напрямів підготовки) можна виокремити два важ­ливі...
Visual Basic Основы работы с базами данных iconУрок по теме «Программа. Языки программирования Visual Basic и Free Pascal» Тип урока
Э́дсгер Ви́бе Де́йкстра— выдающийся нидерландский учёный, идеи которого оказали огромное влияние на развитие компьютерной индустрии...
Visual Basic Основы работы с базами данных iconРішення цього повного квадратного рівняння виражаються формулою: x 1,2 = -b ± D
Далi програмуємо задані розрахункові формули. Для виводу результату розрахунку в документ Word застосовуємо оператор WordBasic. Insert....
Visual Basic Основы работы с базами данных iconУроку з предмету «технологія програмування та створення програмних продуктів» Тем Програмування в об’єктно орієнтованих середовищах
Тема уроку: Програмування діалогових вікон засобами об'єктно – орієнтованого середовища Visual Basic for Applications
Visual Basic Основы работы с базами данных iconДокументи
1. /Р.Райордан - Основы реляционных баз данных.pdf
Додайте кнопку на своєму сайті:
Документи


База даних захищена авторським правом ©te.zavantag.com 2000-2017
При копіюванні матеріалу обов'язкове зазначення активного посилання відкритою для індексації.
звернутися до адміністрації
Документи