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

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

Читать бесплатно Интернет-журнал "Домашняя лаборатория", 2007 №4 - Тен. Жанр: Газеты и журналы / Сделай сам / Хобби и ремесла год 2004. Так же читаем полные версии (весь текст) онлайн без регистрации и SMS на сайте kniga-online.club или прочесть краткое содержание, предисловие (аннотацию), описание и ознакомиться с отзывами (комментариями) о произведении.
Перейти на страницу:
�����, �������� ���-���� ������ ���. � �������, 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 ������� ���������� ���������� ������� ������. ������ �������� ������ �������� ��������� ����� ���� ������-������ ��������.

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

Тен читать все книги автора по порядку

Тен - все книги автора в одном месте читать по порядку полные версии на сайте онлайн библиотеки kniga-online.club.


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

Отзывы читателей о книге Интернет-журнал "Домашняя лаборатория", 2007 №4, автор: Тен. Читайте комментарии и мнения людей о произведении.


Уважаемые читатели и просто посетители нашей библиотеки! Просим Вас придерживаться определенных правил при комментировании литературных произведений.

  • 1. Просьба отказаться от дискриминационных высказываний. Мы защищаем право наших читателей свободно выражать свою точку зрения. Вместе с тем мы не терпим агрессии. На сайте запрещено оставлять комментарий, который содержит унизительные высказывания или призывы к насилию по отношению к отдельным лицам или группам людей на основании их расы, этнического происхождения, вероисповедания, недееспособности, пола, возраста, статуса ветерана, касты или сексуальной ориентации.
  • 2. Просьба отказаться от оскорблений, угроз и запугиваний.
  • 3. Просьба отказаться от нецензурной лексики.
  • 4. Просьба вести себя максимально корректно как по отношению к авторам, так и по отношению к другим читателям и их комментариям.

Надеемся на Ваше понимание и благоразумие. С уважением, администратор kniga-online.


Прокомментировать
Подтвердите что вы не робот:*
Подтвердите что вы не робот:*