`
Читать книги » Книги » Разная литература » Газеты и журналы » Интернет-журнал "Домашняя лаборатория", 2007 №4 - Тен

Интернет-журнал "Домашняя лаборатория", 2007 №4 - Тен

Перейти на страницу:
���, ���������� ������������� �� �����������. �������� ����� �������� ����� ���� ������, ����� ���� ������, ������������ ��������� DatabaseName ������� Data, �� �������. ����� �� ����������� ����������� ������������� ���� �, �������, ��������� ������ ���� ������ ���������� � �������������� ����������� ������� Visual Basic. � �������, � ���� ������ ���������� ������� Error, � ��������� ��������� �������� ����������� ����� ������ ����� ���������.

���������: Private Sub Data1 Error (DataErr As Integer, Response As Integer)

�������� DataErr �������� ��� ������. ��������� �������� �������� ����� ������������� ������ ������������ ���������� Response, � ��������� � ��������� �������:

���������� ∙ �������� ∙ ��������

vbDataErrContinue ∙ 0 ∙ ����� ������������� ������ ���������� ���������� �����������.

vbDataErrDisplay ∙ 1∙ ����� ������������� ������ ���������� ���������� ���� � ��������������� ����������. ���� ������� �������� ���������� �� ���������.

1.��������� ����� ������ � �������� �������� DatabaseName ������� ���������� ������� Data1 �� �: BIBLIO.MDB.

2.���������� ������ � ���������, ��� �� ������ ���������� ��������� �� ������.

3.��������� � ��������� ��������� ������� Error ��������� ��������:

Private Sub Data1_Error(DataErr As Integer, Response As Integer)

Response = vbDataErrContinue

End Sub

4.���������� ����������. � ���� ������ ��������� �� ������ �� ���������.

� Reposition

������� Reposition ����������, ����� ������ � ������ ������� ���������� �������.

���������: Private Sub Data1 Reposition ().

����� �������� ������� Data � �������� ���������������� ������ �������, ������ ������ � ������ ���������� ������� � ���������� ������� Reposition. ��� ������� ����� ����������, ����� ������������ �������� ������ �� ������� Data ��� ����������� �� ������ �������, � ����� ��� ������������� ������� Move ��� Find. ������ ������, ���������� ����� �������, ��� ������� ���������� ��������� ��������� ������� ������, �������� ������� Reposition.

� ������� �� ������� Validate, ������� ���������� ����� ���������� ������� ������, ������� Reposition ������ ���������� ����� ����, ��� ��������� ������ ����� �������.

� Validate

������� Validate ���������� ����� ���������� ��������� ������� ������, � ��� �� ����� ����������� ������� Update (�� ����������� ������, ����� ������ ����������� � ������� ������ UpdateRecord), Delete, Unload, ��� Close.

���������: Private Sub Data1 Validate (Action As Integer, Save As Integer)

�������� Save ���������� ��������� ��������� ��������� ����������. ���� �������� Save ���������� � True, �� ���������� ��������� ��������� ���������� ���� ��������. ���� �� �������� Save ���������� � False, �� ������� ��������� � ��������� ��������� ���������� �� ���������.

�������� Action ���������� ��������, ������� ������� ������� Validate. ��������� �������� ����� ��������� � �� ������� �������� ��������� � ��������� �������.

���������� ∙ �������� ∙ ��������

vbDataActionCancel ∙ 0 ∙ �������� �������� ��� ������ �� ��������� ��������� �������.

vbDataActionMoveFirst ∙ 1 ∙������� ������ �������� � ������ ������ �� ������� Data ��� �������� ����� MoveFirst ������� Recordset.

vbDataActionMovePrevious ∙ 2 ∙ ������ ������ �������� � ���������� ������ �� ������� Data ��� �������� ����� MovePrevious ������� Recordset.

vbDataActionMoveNext ∙ 3 ∙ ������ ������ �������� � ��������� ������ �� ������� Data ��� �������� ����� MoveNext ������� Recordset.

vbDataActionMoveLast ∙ 4 ∙ ������ ������ �������� � ��������� ������ �� ������� Data ��� �������� ����� MoveLast ������� Recordset.

vbDataActionAddNew ∙ 5 ∙ �������� ����� AddNew ������� Recordset ��� ��������� ������� ������ ��������� �� ����� ����� ��� ������������� �������� EOFAction ������� Data � AddNew.

vbDataActionUpdate ∙ 6 ∙ �������� ����� Update ������� Recordset (�� �� UpdateRecord ������� Data).

vbDataActionDelete ∙ 7 ∙ �������� ����� Delete ������� Recordset.

vbDataAction ∙ 8 ∙ �������� ���� �� ������� Find ������� Recordset.

vbDataActionBookmark ∙ 9 ∙ �������� �������� Bookmark ������� Recordset.

vbDataActionClose ∙ 10 ∙ �������� ����� Close ������� Recordset.

vbDataActionUnload ∙ 11 ∙ ��������� �������� �����, ���������� ������ ���������� �������.

� ��������� ��������� ������� Validate ����� �������� ��������, ��������� ��� �������, �� ������ �������� ��� ������ ��������� �������� Action ��������������� �������. ��� ���� ���������� �������� ����� ������ ����� �� ������� Move �� ����� AddNew � �������. ������ ������ �������� ������������ ���������� ��������� Action � 0 (Action = vbDataActionCancel).

�������� ��������� ������� Validate ����� ����� � ��� ������������� ����� �������, ����������� ���������� ������ UpdateControls. ������ ������, ������ ������ UpdateControls ��� ������ ����������� ��������������, �� ������ ������������ ��������� ��������� Action � vbDataActionC ancel:

Private Sub Data1_Validate(Action As Integer, Save As Integer) If Save=False Then Exit Sub End If

If MsgBox("Coxpa���� ��������� ���������",vbYesNo,"","",0)=vbNo Then

Action=vbDataActionCancel

Exit Sub

End If

End Sub

���� 5

������� ���������� Data � ������� ������� � ������

������������� ������� ���������� ������� ��������� ������ ��������� ������� ���������� ��� ������ � ������ ������ ����������� ��� ��������� ����, ������ ��� ������ ��������������� ��������� ��� ������� � ���������� ��� �������. ��� ����������� ���������� �� �������� ����� ������������ ��������� �������� ����������. ������, ��� ��������� ���������������� ���������������� ���������� ���, ������

Перейти на страницу:

Откройте для себя мир чтения на siteknig.com - месте, где каждая книга оживает прямо в браузере. Здесь вас уже ждёт произведение Интернет-журнал "Домашняя лаборатория", 2007 №4 - Тен, относящееся к жанру Газеты и журналы / Сделай сам / Хобби и ремесла. Никаких регистраций, никаких преград - только вы и история, доступная в полном формате. Наш литературный портал создан для тех, кто любит комфорт: хотите читать с телефона - пожалуйста; предпочитаете ноутбук - идеально! Все книги открываются моментально и представлены полностью, без сокращений и скрытых страниц. Каталог жанров поможет вам быстро найти что-то по настроению: увлекательный роман, динамичное фэнтези, глубокую классику или лёгкое чтение перед сном. Мы ежедневно расширяем библиотеку, добавляя новые произведения, чтобы вам всегда было что открыть "на потом". Сегодня на siteknig.com доступно более 200000 книг - и каждая готова стать вашей новой любимой. Просто выбирайте, открывайте и наслаждайтесь чтением там, где вам удобно.

Комментарии (0)