Программа 16.4. Удаление и создание таблицы с помощью инструкций DDL

Dim db As Database

Dim fieldSize As Long, i As Long

Dim strDDL As String

' Узнаем линейный размер игрового поля, выраженный в клетках

fieldSize = CLng(get_parameter("РазмерПоля"))

' Открываем базу данных, в которой хранится нужная таблица

Set db = OpenDatabase(CurrentProject.Path & "\DominationGame.mdb")

' Удалить старую таблицу "ПолеИгрок" strDDL = "DROP TABLE ПолеИгрок;"

' Если таблица не существует, удаление вызовет ошибку

On Error GoTo the_next_2

db.Execute strDDL the_next_2:

On Error GoTo 0

' Создать новую таблицу "ПолеИгрок"

strDDL = "CREATE TABLE ПолеИгрок ("

For i = 1 To fieldSize - 1

strDDL = strDDL & get_column_name(i) & " TEXT(20), "

Next i

strDDL = strDDL & get_column_name(fieldSize) & " TEXT(20) );"

db.Execute strDDL

' Прочие действия ... db.Close