Воскресенье, 19 Марта 2017 г. 16:49
+ в цитатник
Здравствуйте.
Нужно создать новое поле в таблице базы MySQL если оно не существует. Для этого написал такой блок:
code:
dm1.Q_tmp.Active:=false;dm1.Q_tmp.SQL.Clear;
dm1.Q_tmp.SQL.Add('select taxkod_branch from firms limit 1');
try
dm1.Q_tmp.Open;
except
dm1.Q_tmp.Active:=false;dm1.Q_tmp.SQL.Clear;
dm1.Q_tmp.SQL.Add('ALTER TABLE `firms` ADD `taxkod_branch` VARCHAR(10) NULL AFTER `taxkod`');
dm1.Q_tmp.Open;
end;
Q_tmp это TQuery. При запуске скомпилированной проги выскакив ...
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83413
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-