Создание таблицы CREATE

{ "title": "Создание таблицы CREATE в Delphi: Мифы, страхи и реальность", "keywords": "Delphi CREATE TABLE, создание таблицы SQL, Delphi TADOQuery, TSQLQuery, базы данных Delphi, мифы SQL Delphi, программирование Delphi", "description": "Разбираем популярные заблуждения о команде CREATE TABLE в Delphi. Реальные примеры кода, ответы на страхи начинающих и синтаксические ловушки. Полезное руководство для разработчиков на языке Delphi.", "html_content": "

Команда CREATE TABLE в Delphi: правда вместо вымысла

Работа с базами данных в языке Delphi часто окружена слухами и предубеждениями. Один из самых частых камней преткновения — создание таблиц с помощью SQL-команды CREATE TABLE. Начинающие боятся сломать структуру данных, опытные — теряют время из-за синтаксических нюансов. Давайте разберём самые живучие мифы и посмотрим, что стоит за ними на самом деле.

Миф No 1: CREATE TABLE работает одинаково во всех СУБД

Многие полагают, что достаточно выучить один синтаксис — и он подойдёт для Firebird, SQLite, MSSQL и InterBase. На деле различия критичны: например, в Firebird нельзя использовать AUTOINCREMENT, а в SQLite — GENERATOR. Delphi лишь передаёт запрос, но не унифицирует диалекты.

Реальность: Вам необходимо указывать тип данных, генераторы и триггеры вручную, в зависимости от выбранной СУБД. Для Firebird используется последовательность (GENERATOR), для SQLite — AUTOINCREMENT. Игнорирование этого правила ведёт к ошибке при выполнении запроса.

• Для Firebird: CREATE GENERATOR GEN_ ... CREATE TABLE MyTable (ID INTEGER PRIMARY KEY, ...)
• Для SQLite: CREATE TABLE MyTable (ID INTEGER PRIMARY KEY AUTOINCREMENT, ...)

Миф No 2: Достаточно один раз выполнить CREATE TABLE через TADOQuery

Типичная ошибка: разработчик пишет простой запрос в TADOQuery.SQL.Text, вызывает ExecSQL и ждёт, что таблица создастся мгновенно. Когда ничего не происходит или возникает исключение, паника.

Реальность: CREATE TABLE — это DDL-операция. Она не возвращает набор данных, поэтому ExecSQL — правильный выбор. Однако часто забывают открыть соединение, проверить активность компонента или выставить корректный провайдер. Кроме того, в некоторых настройках ADO блокирует DDL-запросы — нужно разрешить их через CommandTimeout и права пользователя.

1. Проверьте состояние Connection.Connected = True.
2. Укажите ADOQuery1.SQL.Text := 'CREATE TABLE Test (ID INTEGER, Name VARCHAR(50))';
3. Вызовите ADOQuery1.ExecSQL.
4. Оберните в try-except для отлова ошибок прав доступа.

Миф No 3: Создание таблицы через TSQLQuery ненадёжно

Среди пользователей dbExpress бытует мнение, что TSQLQuery не предназначен для DDL-команд и лучше использовать TSQLConnection.ExecuteDirect. Это порождает страх перед прямым написанием CREATE TABLE в компоненте.

Реальность: TSQLQuery прекрасно выполняет DDL, если не пытаться читать результирующий набор. Главное — не вызывать Open (он ожидает SELECT), а пользоваться ExecSQL. Никакой магии: запрос отправляется на сервер, а компонент лишь транслирует строку. Разницы с ExecuteDirect в плане надёжности нет — оба выполняют один и тот же текст.

Пример корректного кода для dbExpress:

• SQLQuery1.SQL.Text := 'CREATE TABLE Orders (OrderID INTEGER NOT NULL PRIMARY KEY, CustomerName VARCHAR(100))';
• SQLQuery1.ExecSQL();

Миф No 4: Если таблица уже существует, CREATE TABLE выдаст неисправимую ошибку

Страх потерять данные или получить крах приложения из-за повторного выполнения скрипта. Многие избегают динамического создания таблиц в runtime.

Реальность: Ошибка «Table already exists» ловится стандартным блоком try-except. В Delphi можно перед созданием проверить существование таблицы через запрос к системным таблицам (например, GetTableNames у TADOConnection) или использовать конструкцию IF NOT EXISTS, если СУБД поддерживает (MS SQL, SQLite). Никакого риска для данных — команда CREATE TABLE не перезаписывает существующую таблицу, а лишь выдает исключение.

1. Получите список таблиц: ADOConnection1.GetTableNames(ListBox1.Items, False).
2. Проверьте наличие имени.
3. Если таблицы нет, выполняйте CREATE TABLE.

Или используйте CREATE TABLE IF NOT EXISTS (для SQLite/MySQL).

Миф No 5: Кодировка и типы данных — неважны, Delphi сам подстроится

Заблуждение: если в Delphi строки AnsiString, то в БД создастся поле с ANSI-кодировкой, а Unicode-данные (например, Кириллица) будут потеряны.

Реальность: Тип данных и кодировка задаются исключительно в SQL-запросе. Если вы напишете VARCHAR(50), СУБД создаст поле ANSI (или зависит от дефолтной кодировки базы). Для поддержки Unicode используйте NVARCHAR (MSSQL) или VARCHAR(50) CHARACTER SET UTF8 (Firebird). Delphi не вмешивается — он лишь передаёт текст. Забота о правильных типах лежит полностью на разработчике.

Подводя итоги

Команда CREATE TABLE в Delphi — это мощный и гибкий инструмент, если понимать, что происходит «под капотом». Мифы возникают из-за поверхностного знакомства с различиями СУБД и невнимательности к настройкам подключения. Надеюсь, этот разбор развеял ваши сомнения. Теперь вы смело можете использовать CREATE TABLE в своих проектах, зная, как избежать типичных ловушек.

" }

Добавлено: 27.04.2026