Интернет-журнал "Домашняя лаборатория", 2007 №4 - Арчер
Шрифт:
Интервал:
����� ���� ��������, ��� ������������ �� ������ � ������ � ���� ������ � �������������� ������ �� ��������� �� ������� ���������� �������. � ���� ������� ����������� ������� ����������� �� ���� ������ � ������������� ������� ������� 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 ������� ���������� ���������� ������� ������. ������ �������� ������ �������� ��������� ����� ���� ������-������ ��������.
Поделиться книгой в соц сетях:
Обратите внимание, что комментарий должен быть не короче 20 символов. Покажите уважение к себе и другим пользователям!