Интернет-журнал "Домашняя лаборатория", 2007 №4 - Арчер
Книгу Интернет-журнал "Домашняя лаборатория", 2007 №4 - Арчер читаем онлайн бесплатно полную версию! Чтобы начать читать не надо регистрации. Напомним, что читать онлайн вы можете не только на компьютере, но и на андроид (Android), iPhone и iPad. Приятного чтения!
Шрифт:
Интервал:
Закладка:
����� ���� ��������, ��� ������������ �� ������ � ������ � ���� ������ � �������������� ������ �� ��������� �� ������� ���������� �������. � ���� ������� ����������� ������� ����������� �� ���� ������ � ������������� ������� ������� 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. Просьба отказаться от дискриминационных высказываний. Мы защищаем право наших читателей свободно выражать свою точку зрения. Вместе с тем мы не терпим агрессии. На сайте запрещено оставлять комментарий, который содержит унизительные высказывания или призывы к насилию по отношению к отдельным лицам или группам людей на основании их расы, этнического происхождения, вероисповедания, недееспособности, пола, возраста, статуса ветерана, касты или сексуальной ориентации.
- 2. Просьба отказаться от оскорблений, угроз и запугиваний.
- 3. Просьба отказаться от нецензурной лексики.
- 4. Просьба вести себя максимально корректно как по отношению к авторам, так и по отношению к другим читателям и их комментариям.
Надеемся на Ваше понимание и благоразумие. С уважением, администратор knigkindom.ru.
Оставить комментарий
-
Гость Татьяна30 май 15:03 Сказка. А потом ускочет мальчик,а тётенька будет воспитывать сынка-внучка по новой тянуть лямку. ... Друг сына - Мария Зайцева
-
Гость Вера25 май 10:38 Я давно и безнадежно влюблена в эту серию книг... Королевская кровь. Стальные небеса - Ирина Котова
-
Гость Марина23 май 13:22 Очень жаль, что не закончена книга. Мне очень понравилась ... Вахтовик - Владимир Мухин