Связывание элемента управления данными с базой данных
Размещенный в форме элемент управления данными необходимо связать с информацией в базе данных. Это делается путем установки необходимых значений для определенных свойств элемента управления данными.
Достаточно установить лишь два свойства — DatabaseName (имя базы данных) и RecordSource (источник записей). Свойство DatabaseName «связывает» элемент управления данными с определенной базой данных, а свойство RecordSource — с определенной таблицей в базе данных. После этого элемент управления данными готов к получению, созданию и редактированию информации.
Пример:
Форма:
Свойства:
Data1:
Caption: Товары на складе
DatabaseName: C:\Мои документы\Склад.mdb
RecordSource: Товары
EOFAction: 2 – Add New (возможность добавления новых записей в базу)
Text1:
DataSource: Data1
DataField: Наименование
Text2:
DataSource: Data1
DataField: Цена
Text3:
DataSource: Data1
DataField: Количество
Text4:
DataSource: Data1
DataField: Доставка
Вы привязали базу данных к форме. Теперь базу можно заполнять и просматривать, щелкая по кнопочкам элемента Data. (Щелчок по правой кнопке добавляет новую запись)
Можно не только заполнять базу записями, но и редактировать ее: если вы изменили какое-то поле в записи, то щелкните по кнопке «вправо» или «влево» элемента Data - ваши изменения будут автоматически сохранены.
Примечание: вообще, нет такого понятия: сохранить данные в базе данных. Все изменения в записях автоматически записываются на диск (при переходе на другую запись или принудительно,
Заполните базу товарами:
Наименование |
Цена |
Количество |
Доставка |
Яблоки |
15 |
2000 |
12/12/01 |
Апельсины |
18 |
1500 |
5/4/01 |
Виноград |
35 |
800 |
8/8/01 |
Конфеты |
55 |
450 |
25/12/00 |
Шоколад |
10 |
280 |
21/7/01 |
Печенье |
8 |
1800 |
17/10/00 |
Колбаса |
65 |
400 |
12/3/00 |
Лимонад |
7,50 |
980 |
30/1/00 |
Чай |
12,80 |
1900 |
9/6/01 |
Кофе |
39 |
2200 |
7/1/01 |
Поскольку у Вас свойство EOFAction = 2 – Add New, то при щелчке <вправо> после последней записи - будут выведены чистые поля для новой записи. Если свойство EOFAction = 0 – Move Last, то автоматически новые (чистые) записи добавляться не будут.
Для внесения новых записей нужно в форму добавить кнопку «Добавить запись», а под ней ниписать код: Data1.Recordset.AddNew
Здесь появился новый объект базы данных Recordset.
Что такое Recordset?
Объект Recordset – это весь набор записей, к которым обращается элемент управления Data.
Для манипулирования набором записей используется свойство Recordset элемента управления Data. Одна запись набора Recordset является текущей. Информация из текущей записи отображается в связанных элементах управления (а нас – в текстовых полях). Позицию текущей записи можно изменить, щелкнув кнопку элемента Data или программно в коде с помощью методов объекта Recordset.
Использование методов объекта Recordset
Для отбора информации из набора записей используются свойства и методы объекта Recordset. Они позволяют перемещаться по записям, добавлять, модифицировать или удалять записи.
Измените форму на следующую:
В свойстве Data <EOFAction> поставьте: 0 – Move Last
Код:
Private Sub cmdAdd_Click()
‘ добавляется чистая запись
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
‘ удаляется текущая запись
With Data1.Recordset
.Delete
‘ передвинуть на следующую запись (иначе поля на форме будут пустыми)
.MoveNext
‘ если достигнута последняя запись, то оставаться на ней
If .EOF Then .MoveLast
End With
End Sub
Private Sub cmdRefresh_Click()
‘ Если поменялся источник записей RecordSource (таблица в БД),
‘ то этот метод заново перечитает всю таблицу. Используется при смене таблиц.
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
‘ сохранить запись
Data1.UpdateRecord
End Sub
Private Sub cmdClose_Click()
‘ выйти из программы
Unload Me
End Sub
Для того, чтобы избежать случайного удаления записи или случайного выхода из программы – самостоятельно сделайте на эти кнопки сообщения о подтверждении данных операций.