Создание пустой таблицы в VB
Создание пустой таблицы в VB объясняется в 24.5.8. Чтобы не заглядывать так далеко вперед, воспользуйтесь пустой таблицей «Книги», созданной в Access. Если же Access не установлен, то проделайте следующее.
Создайте проект с кнопкой. Скопируйте созданный пустой файл базы данных в папку bin проекта, чтобы к нему было проще обращаться. Введите код:
Public Соединение As New OleDb.OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =Контакт.mdb")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Соединение.Open()
Dim Команда As New OleDb.OleDbCommand ("CREATE TABLE Книги(Код COUNTER CONSTRAINT Код
PRIMARY KEY,Avtor STRING,Nazvanie STRING, Data DATETIME, Kol_str INTEGER)", Соединение)
Команда.ExecuteNonQuery()
Соединение.Close()
End Sub
Объект Соединение обеспечивает соединение вашего проекта с файлом базы данных подобно тому, как телефонная станция обеспечивает ваше соединение с абонентом, когда вы поднимаете трубку. В первой строке фрагмента это соединение еще не осуществляется, а только объявляется, здесь вы должны правильно указать адрес существующего файла базы данных. У меня это Контакт.mdb.
Первая строка процедуры открывает соединение.
Следующая строка – оператор Dim. Он содержит очень длинную строку, заключенную в двойные кавычки. Эта строка не уместилась по ширине страницы книжки, которую вы держите в руках, и поэтому заняла две книжные строчки. В окне кода строковый литерал нельзя переносить на другую строчку при помощи привычных пробела и знака подчеркивания, поэтому в вашем окне кода это будет одна длинная строка. Впрочем, вы всегда можете настроить окно кода так, чтобы неумещающиеся строки кода переносились на другую строчку: Edit ® Advanced ® Word Wrap.
Объект Команда задает компьютеру содержащуюся в упомянутой длинной строке команду на создание таблицы.
Следующая строка выполняет команду, а последняя закрывает соединение.
Нажмите на кнопку. Пустая таблица с нужными полями создана в базе данных. Второй раз нажимать на кнопку не надо. Закройте проект.
