- •Знакомство с visual basic
- •Практическая работа
- •Свойства, методы и события
- •Практическая работа
- •Переменные
- •Объявление переменных
- •Область видимости переменной
- •Ф орма 1
- •Форма 2
- •Математические операторы
- •Операторы сравнения
- •Логические операторы
- •Практическая работа
- •Обработка ошибок
- •Практическая работа
- •Самостоятельно
- •Условия и циклы
- •Самостоятельно
- •Использование списков и полей со списками
- •Удаление строк из списка
- •Ф орма Код (самостоятельно)
- •Массивы
- •Объявления массивов Объявление массива как одной переменной:
- •Заполнение массива
- •Динамический массив
- •Самостоятельно
- •Работа со строками
- •Определение длины строки
- •Усечение строк
- •Самостоятельно
- •Использование одной кнопки для включения / выключения
- •Конкатенация разнотипных строк
- •Коды символов в формате ascii
- •Окно ввода данных
- •Функция Val() и Slr()
- •Вывод информации на форму
- •Функция Format
- •Работа с графическим окном
- •Элемент управления RichTextBox
- •Объект Printer
- •Дополнительные возможности работы со строками Оператор Like и неопределенный поиск
- •Прочие строковые функции
- •Работа с файлами Чтение текстового файла (1 способ)
- •Запись текста в текстовый файл: Форма
- •Чтение текстового файла (2 способ)
- •Самостоятельно
- •Код (самостоятельно)
- •Простой файловый менеджер
- •'FileCopy не допускает файловые шаблоны, поэтому копирование по полному пути
- •Изменение регистра символов строки
- •Код (проанализировать программу, при необходимости – набрать и проверить работу)
- •Создание меню
- •Клавиши доступа и быстрые клавиши
- •Создание всплывающих меню
- •Разделение строк меню
- •Вырезание, копирование и вставка с помощью объекта Clipboard (буфера обмена)
- •Выделение текста в поле текста
- •Самостоятельно
- •Код (сначала попытайтесь самостоятельно написать код)
- •Использование элемента управления
- •Управляющие элементы Image List и Tool Bar
- •Создание дистрибутивного пакета – подготовка приложения к распространению
- •Время и таймеры
- •Использование одной кнопки для включения /выключения
- •Вычисление разницы между датами
- •Вычисление возраста
- •Код (проанализировать, при необходимости набрать проверить работу)
- •Самостоятельно
- •Код (сначала самостоятельно)
- •Подпрограммы и функции Использование процедур в Visual Basic
- •Самостоятельно
- •Определение точки входа в программу (запуск проекта с нужной формы)
- •Выбор подпрограммы Main() точкой входа проекта
- •' Оповещаем пользователя
- •Тестирование и отладка программ
- •Точка остановки программы
- •Наблюдение за несколькими переменными
- •Полосы прокрутки
- •Самостоятельно
- •Дополнительные компоненты active X
- •Создание дистрибутивного пакета – подготовка приложения к распространению
- •Время и таймеры
- •Использование одной кнопки для включения /выключения
- •Вычисление разницы между датами
- •Вычисление возраста
- •Код (проанализировать, при необходимости набрать проверить работу)
- •Самостоятельно
- •Форма Код (сначала самостоятельно)
- •Подпрограммы и функции Использование процедур в Visual Basic
- •Самостоятельно
- •Определение точки входа в программу (запуск проекта с нужной формы)
- •Выбор подпрограммы Main() точкой входа проекта
- •' Оповещаем пользователя
- •Понятие о базах данных
- •Терминология баз данных
- •Элемент управления данными
- •Свойства элемента управления данными
- •Методы элемента управления данными
- •Свойства набора данных
- •Методы набора записей
- •Практическая работа
- •Связывание элемента управления данными с базой данных
- •Что такое Recordset?
- •Поиск записей
- •Поиск дальше
- •Запросы
- •Компоненты языка sql
- •Самостоятельно
- •Создание отчетов с помощью crystal reports
- •Создание отчета
- •Объекты
- •Практика
- •Движение объектов
- •О связанных элементах управления Последовательность событий при загрузке формы
- •Отношения родитель/потомок между элементами управления данными
- •Практикум –
- •Создание базы данных своими руками
- •Какую технологию выбрать?
- •Элемент управления данными ado
- •Сортировка и объединение данных с помощью элемента управления Hierarchical FlexGrid
- •Проект «Школьный журнал» (пример создания и работы с базой данных)
- •Практическое задание Создать базу данных «Записная книжка»
- •Простейший графический редактор
- •При отпускании кнопки мыши
- •Dim n As Integer ‘счетчик новых записей в массиве
Создание базы данных своими руками
До сих пор мы работали с базами данных, созданных средствами Access. С его помощью базы создавались быстро, без особых проблем. Однако может наступить время, когда Вам понадобится из программы создать базу, таблицы, определить поля в таблице, или уже к готовой базе добавить таблицы, удалить таблицы или поля и так далее. Этакая динамическая БД.
Демонстрационная программа создает базу шаг за шагом. Все лишнее из программы убрано, поэтому для корректного выполнения необходимо два условия:
Ранее такой базы не должно существовать
Кнопки на форме щелкать сверху вниз последовательно (впрочем, последовательность задается принудительно свойством Enabled)
База данных создается в несколько приемов, причем их последовательность строго определена, иначе Вы, в лучшем случае, получите базу без таблиц.
Примечания:
Не забудьте в форму поместить элемент управления данными Data и сделать его невидимым. База будет располагаться на рабочем столе.
Форма:
(В свойствах кнопок 2, 3 и 4 => Enabled = False)
Код:
'создание объектных переменных
Dim db As Database ‘для базы данных
Dim tbl As TableDef ‘для таблицы
Dim fld As Field ‘для полей таблицы
Private Sub createDB_Click()
Set db = DBEngine.Workspaces(0).CreateDatabase _
("c:\windows\Рабочий стол\ПробнаяБД.mdb", dbLangGeneral)
‘делаем доступной вторую кнопку
createTbl.Enabled = True
End Sub
Private Sub createTbl_Click()
'создаем таблицу ДЛЯ базы данных (не в базе!!!)
Set tbl = db.CreateTableDef("Таблица")
createFld.Enabled = True
End Sub
Private Sub createFld_Click()
'создаем поле для таблицы
Set fld = tbl.CreateField("Поле", dbText, 20)
'добавляем поле в таблицу
tbl.Fields.Append fld
addTable.Enabled = True
End Sub
Private Sub addTable_Click()
'а вот ТЕПЕРЬ созданную таблицу (с полем!) можно добавить в базу!
db.TableDefs.Append tbl
End Sub
Примечание:
Если в строке типа
Set fld = tbl.CreateField("Поле", dbText, 20)
не указать размер текстового поля (здесь = 20), то по умолчанию он будет 255 символов.
Создавать таблицу в базе можно несколько иначе:
Данный пример открывает существующую базу данных и создает в ней таблицу с полями:
Форма:
Код:
'создание объектных переменных
Dim db As Database
Dim tbl As TableDef
Private Sub createDB_Click()
Set db = OpenDatabase("C:\Program Files\SchoolDB\SchoolDB.mdb")
End Sub
Private Sub Command1_Click()
Set tbl = db.CreateTableDef("Таблица")
With tbl
.Fields.Append .CreateField("Фамилия", dbText)
.Fields.Append .CreateField("Имя", dbText)
.Fields.Append .CreateField("Отчество", dbText)
.Fields.Append .CreateField("Дата рождения", dbDate)
.Fields.Append .CreateField("Год рождения", dbInteger)
db.TableDefs.Append tbl
End With
End Sub
А теперь сделайте самостоятельно следующее:
На предыдущую форму поместите кнопку «Добавить таблицу в БД» и добавьте новое поле (запрашивая имя поля у пользователя) в существующую таблицу.
Как это делается (сначала самостоятельно):
Dim dbOpen As Database
Dim NewTbl As TableDef
Set dbOpen = OpenDatabase("c:\Program Files\SchoolDB\SchoolDB.mdb")
Set NewTbl = dbOpen.TableDefs(“Таблица”)
With NewTbl
.Fields.Append .CreateField(“Новое поле”, dbText)
End With
dbOpen.Close
Кроме создания таблиц в базах данных, нужно еще уметь и удалять эти таблицы.
Это делается так:
Set dbOpen = OpenDatabase("c:\Program Files\SchoolDB\SchoolDB.mdb")
Set NewTbl = dbOpen.TableDefs(“Имя Таблицы”)
dbOpen.TableDefs.Delete NewTbl.Name
Если Вам нужно сохранить таблицу вместе с данными под другим именем, то таблицу можно просто переименовать (создается не копия, а эта же таблица получает другое имя):
'создание объектных переменных
Dim db As Database
Dim tbl As TableDef
Private Sub createDB_Click()
Set db = OpenDatabase("C:\Program Files\SchoolDB\SchoolDB.mdb")
End Sub
Private Sub Rename_Click()
Set tbl = db.TableDefs("Таблица")
tbl.Name = "ДругоеИмяТаблицы"
End Sub
DAO или ADO: