- Любовные романы
- Фантастика и фэнтези
- Ненаучная фантастика
- Ироническое фэнтези
- Научная Фантастика
- Фэнтези
- Ужасы и Мистика
- Боевая фантастика
- Альтернативная история
- Космическая фантастика
- Попаданцы
- Юмористическая фантастика
- Героическая фантастика
- Детективная фантастика
- Социально-психологическая
- Боевое фэнтези
- Русское фэнтези
- Киберпанк
- Романтическая фантастика
- Городская фантастика
- Технофэнтези
- Мистика
- Разная фантастика
- Иностранное фэнтези
- Историческое фэнтези
- LitRPG
- Эпическая фантастика
- Зарубежная фантастика
- Городское фентези
- Космоопера
- Разное фэнтези
- Книги магов
- Любовное фэнтези
- Постапокалипсис
- Бизнес
- Историческая фантастика
- Социально-философская фантастика
- Сказочная фантастика
- Стимпанк
- Романтическое фэнтези
- Ироническая фантастика
- Детективы и Триллеры
- Проза
- Юмор
- Феерия
- Новелла
- Русская классическая проза
- Современная проза
- Повести
- Контркультура
- Русская современная проза
- Историческая проза
- Проза
- Классическая проза
- Советская классическая проза
- О войне
- Зарубежная современная проза
- Рассказы
- Зарубежная классика
- Очерки
- Антисоветская литература
- Магический реализм
- Разное
- Сентиментальная проза
- Афоризмы
- Эссе
- Эпистолярная проза
- Семейный роман/Семейная сага
- Поэзия, Драматургия
- Приключения
- Детская литература
- Загадки
- Книга-игра
- Детская проза
- Детские приключения
- Сказка
- Прочая детская литература
- Детская фантастика
- Детские стихи
- Детская образовательная литература
- Детские остросюжетные
- Учебная литература
- Зарубежные детские книги
- Детский фольклор
- Буквари
- Книги для подростков
- Школьные учебники
- Внеклассное чтение
- Книги для дошкольников
- Детская познавательная и развивающая литература
- Детские детективы
- Домоводство, Дом и семья
- Юмор
- Документальные книги
- Бизнес
- Работа с клиентами
- Тайм-менеджмент
- Кадровый менеджмент
- Экономика
- Менеджмент и кадры
- Управление, подбор персонала
- О бизнесе популярно
- Интернет-бизнес
- Личные финансы
- Делопроизводство, офис
- Маркетинг, PR, реклама
- Поиск работы
- Бизнес
- Банковское дело
- Малый бизнес
- Ценные бумаги и инвестиции
- Краткое содержание
- Бухучет и аудит
- Ораторское искусство / риторика
- Корпоративная культура, бизнес
- Финансы
- Государственное и муниципальное управление
- Менеджмент
- Зарубежная деловая литература
- Продажи
- Переговоры
- Личная эффективность
- Торговля
- Научные и научно-популярные книги
- Биофизика
- География
- Экология
- Биохимия
- Рефераты
- Культурология
- Техническая литература
- История
- Психология
- Медицина
- Прочая научная литература
- Юриспруденция
- Биология
- Политика
- Литературоведение
- Религиоведение
- Научпоп
- Психология, личное
- Математика
- Психотерапия
- Социология
- Воспитание детей, педагогика
- Языкознание
- Беременность, ожидание детей
- Транспорт, военная техника
- Детская психология
- Науки: разное
- Педагогика
- Зарубежная психология
- Иностранные языки
- Филология
- Радиотехника
- Деловая литература
- Физика
- Альтернативная медицина
- Химия
- Государство и право
- Обществознание
- Образовательная литература
- Учебники
- Зоология
- Архитектура
- Науки о космосе
- Ботаника
- Астрология
- Ветеринария
- История Европы
- География
- Зарубежная публицистика
- О животных
- Шпаргалки
- Разная литература
- Зарубежная литература о культуре и искусстве
- Пословицы, поговорки
- Боевые искусства
- Прочее
- Периодические издания
- Фанфик
- Военное
- Цитаты из афоризмов
- Гиды, путеводители
- Литература 19 века
- Зарубежная образовательная литература
- Военная история
- Кино
- Современная литература
- Военная техника, оружие
- Культура и искусство
- Музыка, музыканты
- Газеты и журналы
- Современная зарубежная литература
- Визуальные искусства
- Отраслевые издания
- Шахматы
- Недвижимость
- Великолепные истории
- Музыка, танцы
- Авто и ПДД
- Изобразительное искусство, фотография
- Истории из жизни
- Готические новеллы
- Начинающие авторы
- Спецслужбы
- Подростковая литература
- Зарубежная прикладная литература
- Религия и духовность
- Старинная литература
- Справочная литература
- Компьютеры и Интернет
- Блог
Интернет-журнал 'Домашняя лаборатория', 2007 №4 - Шаман
Шрифт:
Интервал:
Закладка:
������������� �������� Database � ������ ���������� ���������� ��������� �������� ������ �� ������ Database, ������� ������ �������� Data.
���������: Set databaseobject = data1.Database.
������ Data ������� ������ Database �� ������ ����� ������� DatabaseName, Exclusive, ReadOnly, � Connect. ��� ��� ������ Database ����� ���� ����������� �������� � ������ ��, ������� �� ���� ������, �� ������ ������������ �� � ����������. ��������, �� ������ ������������ ������ Close ��� Execute. ��������� �������� ������ � �������� Database ��������� � ������, ����������� �������� ������� � ������.
� DatabaseName
������������� �������� DatabaseName ��������� �������� ��� ���������� ��� � ����������������� ��������� ������ ��� ������� Data.
���������: data1.DatabaseName=string.
��������� ��������� string ���������� ����������������� � ��� ����� ���� ������ � �������� MS Access � Btrieve. ���� ������������ ���� ������, ����������� �� ����-�������, �� ������ ������ �������� ������ ���� � ���������� �����, ��������:
\SERVERDATADATABASE.MDB.
��� ��� ������ � ������� dBASE, Paradox � ��. ������ string ������ ��������� ������ ���� � �����.
��� ��� ������ ODBC ��� �������� �� ������������, ��� ��� ��� ����������� ��������� ��� ����� � ����� ������ ��������������� ��������� Connect.
���� �� �� ����� ������ ���������� ��������� �������� DatabaseName, �� ����� ��������� ��������� ���������� ��������� ����� Refresh ������� Data.
���������������� ������������� �������� DatabaseName � ������ ���������� ����������. ��� �����:
1.��������� ������, ��������� ��� ��������� ����������� ����� BIBLIO.MDB.
2.�������� ���������� �������� DatabaseName ������� ���������� ������� Data1.
3.��������� ��������� ��� � ��������� ��������� ��������� � �������� �����:
Private Sub Form_Load()
data1.databasename= "c: vb5biblio.mdb"
data1.refresh
End Sub
4.���������� ������.
��� ���������� ���������� ��� ������ � ������ ������ ����� �� ����������� ������������ � ���������� ��������� ��������� ���������� �������� DatabaseName �� ����� ���������� ���������. ��� ����� ���� �� ������ ������ ��� ������������. ������� �������� ������������� ��������� � ������������ ������ �������� ����� � ������ ��� ������ � ����������� ������ ������������ ������ ���������� � ����������� ����������� ���� ���������� � �������� �������� ���������. ���, �������������� ��� ��������, ����� ��������, ��������, � ��������� ��������� ������� Load ��� Activate ��������������� �������� �����.
������ �������� ����������� ���� � ����� ���� ������ �������� ������������� ����������� ������� Visual Basic � ������� ���. ���� ���� ������ �� ����� �� �������, �� �������, � ���� ���� ��������� ����� �������� �������. ����� �� ��� �������� �������� Path, ������� ���������� ���� � ������������ �����. ���� �� ����������� ��������������� ����� ���������� Visual Basic, ��������, ��� ������� ����������, �� App.Path ���������� ���� � ����� �������, ������� �� ���������.
����� ����� ��� ������ ��� ����� ��������� ��������� � ����������� DBASE ��������, � ������� ��������� ���� ���������� (������). ����� �� ������ ���������� ����������� ���� � ����� � ������� ���������� ��������� ����. ������ �������, �� �������� ����������� ���������� (������) ����� ���������� ��� ������.
Dim DBName As String
DBName = "BIBLIO.MDB"
Data1.Databasename = App.Path+"DBASE"+DBName Data1.Refresh
� EOFAction
�������� EOFAction ���������� �������� ������� Data, ���� �������� EOF (end of file � ����� �����) � ���������� �� ������ ������� ����������� � True.
���������: data1.EOFAction=value.
�������� value ����� ���� ������� �� ���� �����������: MoveLast, EOF, ��� AddNew.
��� �������� ������� Data �������� EOFAction ��������������� �� ��������� ��� MoveLast. ��� ���� ������� �������� ��������� ������ � ������ �������.
��������� �������� EOFAction � EOF �������� � ����, ��� ��� ����������� ��������� ������� ������ �� ������� ������ �����, ������� ������ ���������� ������������ (invalid) � ����� ������� �� �������������� �������� � ������. � ���� ������ ���������� ������� Validate �� ��������� ������ � ������ �, �����, ������� Reposition, ��� �� ������������ ������. ��� ���� ������ ����������� ��������� �� ��������� ������ �� ������� ���������� ������� ���������� ����������.
���� ���������� �������� EOFAction � AddNew, �� ��� ����������� ��������� ������� ������ �� ��������� ������ ������, ���������� ������� Validate �� ��������� ������, �����, � ����� ������� ����������� ����� ������ ������ � ���������� ������� Reposition. ����� ������������ ����� �������� ��������� ����� ������, ��� ��� ������� ��������� � ������ ���������� � ������ �����������. ���� ����� ����� ������������ ���� ����������� ������ � ���������� ��������� ������� ������ �� ����� ������ ������, �� ����� ������, ��� ���������� ������, ����� �������� � ����� ������� � ����� � ���� ������. � ��������� ������, ���� ������������ �� ���� ������ � ���������� ���������, �� ������ ����� ������ �� ����������� � ����� �������. ����� �������, ��������� �������� EOFAction � AddNew ���� ����������� ������������ ��������� � ���� ������ ����� ������ � ������� ������� Data � ��������� � ��� ��������� ����������.
���������� �������� EOFAction ������� ���������� ������� data1 � ������ ���������� ���������� ����� ��������� �������:
data1.EOFaction=vbEOFActionMoveLast,
data1.EOFaction=vbEOFActionEOF,
data1.EOFaction=vbEOFActionAddNew.
��������� ��������� �������� EOFAction ��������� � ��������� �������.
��������� ∙ �������� ∙ ��������
vbEOFActionMoveLast ∙ 0 ∙ MoveLast
vbEOFActionEOF ∙ 1 ∙ EOF
vbEOFActionAddNew ∙ 2 ∙ AddNew
�������� ������ ����������, � ������� ���� ����������� ��������� � ���� ������ ����� ������.
��� �����:
1.��������� ���������������

