- Любовные романы
- Фантастика и фэнтези
- Ненаучная фантастика
- Ироническое фэнтези
- Научная Фантастика
- Фэнтези
- Ужасы и Мистика
- Боевая фантастика
- Альтернативная история
- Космическая фантастика
- Попаданцы
- Юмористическая фантастика
- Героическая фантастика
- Детективная фантастика
- Социально-психологическая
- Боевое фэнтези
- Русское фэнтези
- Киберпанк
- Романтическая фантастика
- Городская фантастика
- Технофэнтези
- Мистика
- Разная фантастика
- Иностранное фэнтези
- Историческое фэнтези
- LitRPG
- Эпическая фантастика
- Зарубежная фантастика
- Городское фентези
- Космоопера
- Разное фэнтези
- Книги магов
- Любовное фэнтези
- Постапокалипсис
- Бизнес
- Историческая фантастика
- Социально-философская фантастика
- Сказочная фантастика
- Стимпанк
- Романтическое фэнтези
- Ироническая фантастика
- Детективы и Триллеры
- Проза
- Юмор
- Феерия
- Новелла
- Русская классическая проза
- Современная проза
- Повести
- Контркультура
- Русская современная проза
- Историческая проза
- Проза
- Классическая проза
- Советская классическая проза
- О войне
- Зарубежная современная проза
- Рассказы
- Зарубежная классика
- Очерки
- Антисоветская литература
- Магический реализм
- Разное
- Сентиментальная проза
- Афоризмы
- Эссе
- Эпистолярная проза
- Семейный роман/Семейная сага
- Поэзия, Драматургия
- Приключения
- Детская литература
- Загадки
- Книга-игра
- Детская проза
- Детские приключения
- Сказка
- Прочая детская литература
- Детская фантастика
- Детские стихи
- Детская образовательная литература
- Детские остросюжетные
- Учебная литература
- Зарубежные детские книги
- Детский фольклор
- Буквари
- Книги для подростков
- Школьные учебники
- Внеклассное чтение
- Книги для дошкольников
- Детская познавательная и развивающая литература
- Детские детективы
- Домоводство, Дом и семья
- Юмор
- Документальные книги
- Бизнес
- Работа с клиентами
- Тайм-менеджмент
- Кадровый менеджмент
- Экономика
- Менеджмент и кадры
- Управление, подбор персонала
- О бизнесе популярно
- Интернет-бизнес
- Личные финансы
- Делопроизводство, офис
- Маркетинг, PR, реклама
- Поиск работы
- Бизнес
- Банковское дело
- Малый бизнес
- Ценные бумаги и инвестиции
- Краткое содержание
- Бухучет и аудит
- Ораторское искусство / риторика
- Корпоративная культура, бизнес
- Финансы
- Государственное и муниципальное управление
- Менеджмент
- Зарубежная деловая литература
- Продажи
- Переговоры
- Личная эффективность
- Торговля
- Научные и научно-популярные книги
- Биофизика
- География
- Экология
- Биохимия
- Рефераты
- Культурология
- Техническая литература
- История
- Психология
- Медицина
- Прочая научная литература
- Юриспруденция
- Биология
- Политика
- Литературоведение
- Религиоведение
- Научпоп
- Психология, личное
- Математика
- Психотерапия
- Социология
- Воспитание детей, педагогика
- Языкознание
- Беременность, ожидание детей
- Транспорт, военная техника
- Детская психология
- Науки: разное
- Педагогика
- Зарубежная психология
- Иностранные языки
- Филология
- Радиотехника
- Деловая литература
- Физика
- Альтернативная медицина
- Химия
- Государство и право
- Обществознание
- Образовательная литература
- Учебники
- Зоология
- Архитектура
- Науки о космосе
- Ботаника
- Астрология
- Ветеринария
- История Европы
- География
- Зарубежная публицистика
- О животных
- Шпаргалки
- Разная литература
- Зарубежная литература о культуре и искусстве
- Пословицы, поговорки
- Боевые искусства
- Прочее
- Периодические издания
- Фанфик
- Военное
- Цитаты из афоризмов
- Гиды, путеводители
- Литература 19 века
- Зарубежная образовательная литература
- Военная история
- Кино
- Современная литература
- Военная техника, оружие
- Культура и искусство
- Музыка, музыканты
- Газеты и журналы
- Современная зарубежная литература
- Визуальные искусства
- Отраслевые издания
- Шахматы
- Недвижимость
- Великолепные истории
- Музыка, танцы
- Авто и ПДД
- Изобразительное искусство, фотография
- Истории из жизни
- Готические новеллы
- Начинающие авторы
- Спецслужбы
- Подростковая литература
- Зарубежная прикладная литература
- Религия и духовность
- Старинная литература
- Справочная литература
- Компьютеры и Интернет
- Блог
Интернет-журнал 'Домашняя лаборатория', 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 ������� ���������� ���������� ������� ������. ������ �������� ������ �������� ��������� ����� ���� ������-������ ��������.

