DBExpress – не выполняет скрипт SQL из нескольких инструкций…

Проблема

Сегодня экспериментировал с DBExpress, многие в сети ругают данную технологию из-за однонаправленных курсоров, в частности. То есть, обойти это можно, использовав кэширующие компоненты TClientDataSet и TSimpleDataSet – в принципе, для большинства задач годится.

Но вот что мне откровенно не понравилось – невозможность выполнять скрипты SQL из нескольких инструкций. Ни TSQLQuery, ни TSQLConnection никак не хотели выполнять инструкции, если их было больше 1 штуки ((( Ошибка была примерно следующей, на примере создания таблиц в БД…

Итак, что я сделал – в программе Worbench оттестировал и выгрузил рабочий скрипт для создания БД и таблиц в БД. Если всё запускать из консоли MySQL.exe – всё прекрасно работает. Если тот же самый скрипт отдать компонентам Delphi TSQLQuery или TSQLConnection как тут же вылезает эта ошибка…

Оказывается, в технологии DBExpress нельзя вот так просто скормить скрипт целиком компонентам…((( TSQLQuery, ни TSQLConnection и др. понимают только единичные sql инструкции, то есть только до символа delimiter, по умолчанию при установке он равняется точке с запятой.

Решение

Разминки ради, я решил обойти эту ошибку, создав код, который будет “скармливать” компонентам Delphi эти инструкции по 1, но, согласитесь, это крайне неудобно )))

Алгоритм такой…

-Создать скрипт (в workbench или ручками…);

-Сохранить его в текстовом файле

-Поставить свой разделитель (или не ставить – в конце я привожу улучшенный код, этот шаг можно пропустить)

-Прочитать скрипт с помощью кода, указанного в данном посте ниже

Итак, для простоты сохраним скрипт в txt файле…, предварительно расставив между инструкциями какой-нибудь знак разделитель, типа правой фигурной скобки… “}”

CREATE SCHEMA IF NOT EXISTS `test_db` DEFAULT CHARACTER SET utf8 COLLATE utf8_general_ci;}

USE `test_db`;}

CREATE  TABLE IF NOT EXISTS `test_db`.`Departments` (
  `Primary_key` INT NOT NULL AUTO_INCREMENT ,`Name` 

VARCHAR(45) NOT NULL ,
  PRIMARY KEY (`Primary_key`) )
ENGINE = InnoDB;
}


CREATE  TABLE IF NOT EXISTS `test_db`.`Employee` (
  `Primary_key` INT NOT NULL AUTO_INCREMENT ,
`Name` VARCHAR

(45) NOT NULL DEFAULT 'Default_Name' ,
  `Family` VARCHAR(45) NOT NULL DEFAULT 'Default_Family' ,
  `Age` INT 

NOT NULL DEFAULT 32 ,
  `Salary` VARCHAR(45) NOT NULL DEFAULT '50000' ,
  `Department_key` INT NOT NULL ,
  

PRIMARY KEY (`Primary_key`) ,
  INDEX `FKDapartment_idx` (`Department_key` ASC) ,
  CONSTRAINT `FKDapartment`
    

FOREIGN KEY (`Department_key` )
    REFERENCES `test_db`.`Departments` (`Primary_key` )
    ON DELETE NO ACTION
  

  ON UPDATE NO ACTION)
ENGINE = InnoDB;

}



START TRANSACTION;}


INSERT INTO `test_db`.`Departments` (`Primary_key`, `Name`) VALUES  (1, 'Accounting');}

INSERT INTO `test_db`.`Departments` (`Primary_key`, `Name`) VALUES (2, 'Marketing');
}
INSERT INTO `test_db`.`Departments` (`Primary_key`, `Name`) VALUES (3, 'Production');}

INSERT INTO `test_db`.`Departments` (`Primary_key`, `Name`) VALUES (4, 'Sales');}

INSERT INTO `test_db`.`Departments` (`Primary_key`, `Name`) VALUES (5, 'Quality_control');

}

COMMIT;
}


START TRANSACTION;}

INSERT INTO `test_db`.`Employee` (`Primary_key`, `Name`, `Family`, `Age`, `Salary`, `Department_key`) VALUES 

(1, 'Simon', 'Kelly', 32, '50000', 1);
}
INSERT INTO `test_db`.`Employee` (`Primary_key`, `Name`, `Family`, `Age`, `Salary`, `Department_key`) VALUES 

(2, 'Sally', 'Ocran', 35, '43000', 3);}

INSERT INTO `test_db`.`Employee` (`Primary_key`, `Name`, `Family`, `Age`, `Salary`, `Department_key`) VALUES 

(3, 'Ofelia', 'Oreiro', 37, '42000', 5);}


INSERT INTO `test_db`.`Employee` (`Primary_key`, `Name`, `Family`, `Age`, `Salary`, `Department_key`) VALUES 

(4, 'Ontario', 'Anapa', 40, '41000', 1);
}
INSERT INTO `test_db`.`Employee` (`Primary_key`, `Name`, `Family`, `Age`, `Salary`, `Department_key`) VALUES 

(5, 'Maxim', 'Petrunin', 41, '40000', 2);

}
COMMIT;
}

CREATE SCHEMA IF NOT EXISTS `test_db` DEFAULT CHARACTER SET utf8 COLLATE utf8_general_ci;}

USE `test_db`;}

CREATE TABLE IF NOT EXISTS `test_db`.`Departments` (

`Primary_key` INT NOT NULL AUTO_INCREMENT ,`Name`

VARCHAR(45) NOT NULL ,

PRIMARY KEY (`Primary_key`) )

ENGINE = InnoDB;

}

CREATE TABLE IF NOT EXISTS `test_db`.`Employee` (

`Primary_key` INT NOT NULL AUTO_INCREMENT ,

`Name` VARCHAR

(45) NOT NULL DEFAULT 'Default_Name' ,

`Family` VARCHAR(45) NOT NULL DEFAULT 'Default_Family' ,

`Age` INT

NOT NULL DEFAULT 32 ,

`Salary` VARCHAR(45) NOT NULL DEFAULT '50000' ,

`Department_key` INT NOT NULL ,

PRIMARY KEY (`Primary_key`) ,

INDEX `FKDapartment_idx` (`Department_key` ASC) ,

CONSTRAINT `FKDapartment`

FOREIGN KEY (`Department_key` )

REFERENCES `test_db`.`Departments` (`Primary_key` )

ON DELETE NO ACTION

ON UPDATE NO ACTION)

ENGINE = InnoDB;

}

START TRANSACTION;}

INSERT INTO `test_db`.`Departments` (`Primary_key`, `Name`) VALUES (1, 'Accounting');}

INSERT INTO `test_db`.`Departments` (`Primary_key`, `Name`) VALUES (2, 'Marketing');

}

INSERT INTO `test_db`.`Departments` (`Primary_key`, `Name`) VALUES (3, 'Production');}

INSERT INTO `test_db`.`Departments` (`Primary_key`, `Name`) VALUES (4, 'Sales');}

INSERT INTO `test_db`.`Departments` (`Primary_key`, `Name`) VALUES (5, 'Quality_control');

}

COMMIT;

}

START TRANSACTION;}