📚 Hub Books: Онлайн-чтение книгРазная литератураИнтернет-журнал "Домашняя лаборатория", 2007 №4 - Тен

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

Шрифт:

-
+

Интервал:

-
+
1 ... 189 190 191 192 193 194 195 196 197 ... 206
Перейти на страницу:
�����, �������� ���-���� ������ ���. � �������, Visual Basic 5 ������������ ����� ������� ����������� ��� ���������������� �������� � �������. � ��������� �������� ���� ����� ������� ���� ��������� ����� �� ����������� �������� �������, ���������������� ������������ �������� Visual Basic 5. ����� ����� � �������� ������������� � ����������� �������� ������� � ������ �������� � ����������� ������.����������� �� ������ ������� � �������������� ��v�-�������

����� ���� ��������, ��� ������������ �� ������ � ������ � ���� ������ � �������������� ������ �� ��������� �� ������� ���������� �������. � ���� ������� ����������� ������� ����������� �� ���� ������ � ������������� ������� ������� Recordset, ���������� �������� Data, �� ���� � ������� ������������ ����.

��������� ������� ����������, ����� ������ �� ������� ������� Recordset ������������ ������� ������ �� �������� �� ������� ���������� �������.

���� ����������� ��������� ������� ������ ∙ ������������� ������ Move

� ������ ������ ∙ Data1.Recordset.MoveFirst

� ���������� ������ ∙ Data1.Recordset.MovePrevious

� ��������� ������ ∙ Data1.Recordset.MoveNext

� ��������� ������ ∙ Data1.Recordset.MoveLast

��� ���������� ���������� ����� ��������� ������������� ����������� � ������ ��� ��������� ������ � ������ �������. ��������, ���� ��� ��������� ����������������� ��������� ������ ������, ���������� �����-���� ��������, ������ ������������ �������� ����� �������� ����� � ������ ������.

��� ����������� ��������� ������� ������ �� ������ ��� ��������� ������ ������������ ������ MoveFirst � MoveLast:

Data1.Recordset.MoveFirst

Data1.Recordset.MoveLast.

���� ������� ��������� �������������� �� ������ ��� ��������� ������ � ������ �������, �� ���������� ����������� ����� � ������, ��������������, ������������� �������� ������� Recordset BOF � EOF � True. ���� BOFAction � EOFAction �������� ������� ���������� ������� ����������� � �������, �� � ���� ������ ��������� ������� ������ ���������� ������������ � ��������� ������ ���������� ���������. ��� ������������� ������ Move ��� ����������� ��������� �� ������� ����� Visual Basic ���������� ������.

����� ��������� ��������������� ��������� �����-���� �������� � �������� �� ������� �� ��������� ������������. � ���� ������ �� ������ ������������ ��������� �������� ���� ��� ����������� ����������� �� ����� ������ � ���� ������ � ���������:

Do While Data1.Recordset.EOF = False

Data1.Recordset.MoveNext ��� ��� ������ � ������� �������

Loop

Data1.Recordset.MoveLast

� ����� ����� ����� ��������� ������� ������ ���������� ������������ � ��������� ������������ ����� MoveLast, ����� ��� �������������� �� ��������� ������ � ������.

������ MoveNext � MovePrevious ���������� ��������� �� ��������� � ���������� ������ � ������ �������. ������ ��� ������ ������������ ��� ����������������� ��������� ����������� ����� ���� ������.

��������� �������� ���� ��������� ��� ������ � ��������� �� ���������� ���� � ������ �� ���������� �� ������� TITLES ���� ������ BIBLIO.MDB.

Data1.DatabaseName="C: VB5BIBLIO.MDB"

Data1.RecordSource="Titles"

Data1.Refresh

Do Until Data1.Recordset.EOF Entry = Data1.Recordset("Title")

List1Addltem Entry

Entry = Data1.Recordset("Year Published")

List2.AddItem Entry

Data1.Recordset.MoveNext

Loop

�� ����� ������ ��������� Move ����� � ������������� ���������� ��� ����������� ��������� ������� ������ �� ������������ ���������� ����� ������ ��� ����� (� ����������� �� ����� ���������) �� �������� ��������� ��������� ��� �� ���������, ������������ � �������������� ��������. ��������� ������ ����������, ��� ����������� ��������� ������� ������ �� ���� ����� ������, ������� �� ���������, ������������� ��������� MyBookmark:

Data1.Recordset.Move 5, MyBookmark.

��� ����������� �� ������ ������� ����� ����� ������������ ����� �������� ������� Recordset, ��� AbsolutePosition � PercentPosition.

����������� �� ������ ������� � ������� ��������

������������� �������� (bookmark) ��������� ������� ��������� ��������� �� ������� ������ � �����, �� ������ ����� ���� ������ ��������������� ��������������� ��� �� ���� ������. �������� Bookmark ������� Recordset �������� ��������� �� ������. ���������� �������� Bookmark, ������� �������� ������������ ����� ���������, �� ������ ����� ��������������� ��������� �� ��������� ������.

��������� �������� ���� ������������� ��������� ������� ������ � ���������, �������������� ����������� � �������������� �������� MyBookmark:

Dim MyBookmark As Variant

MyBookmark = Data1.Recordset.Bookmark

Data1.Recordset.MoveLast

Data1.Recordset.Bookmark=MyBookmark.

���������� Find-������� ��� ������ ������

����� ���� ��������, ��� ������������ ����������� �� ���� ������ ��� ��������� �������. ������ ����������� ������������� ���������� ����� ����������� �� ������ ������������� ������ �� ������� � ���� ������, �� � ������������ ����� ������, ���������� ������-���� �������. ����� ����� ������������ ������, ����� ��������������� �������� Find ��� �������� � ������� ������� ���� dynaset � snapshot � ������� Seek � ��� ������� ������� ���� table.

������ Find ������������ ��� ������ � ������� ������� ���� dynaset � snapshot. � Visual Basic �������������� ������ ������ Find:

����� FindFirst ������������ ����� ������ ������, ��������������� �������.

����� FindLast ������������ ����� ��������� ������, ��������������� �������.

����� FindNext ������������ ����� ��������� ������, ��������������� �������.

����� FindPrevious ������������ ����� ���������� ������, ��������������� �������.

��� ������������� ������ �� Find ������� ���������� ���������� ������� ������. ������ �������� ������ �������� ��������� ����� ���� ������-������ ��������.

1 ... 189 190 191 192 193 194 195 196 197 ... 206
Перейти на страницу:

Комментарии

Обратите внимание, что комментарий должен быть не короче 20 символов. Покажите уважение к себе и другим пользователям!

Никто еще не прокомментировал. Хотите быть первым, кто выскажется?